From deeea00f5e3d3f172fcb0f4b3bfcbb85eaf0fcf0 Mon Sep 17 00:00:00 2001
From: Emi Simpson <emi@alchemi.dev>
Date: Mon, 22 May 2023 15:46:13 -0400
Subject: [PATCH] Add an easter egg for queer-platonic kitties and wuppie

---
 src/Main.elm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Main.elm b/src/Main.elm
index 53bc3be..0683cb2 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -3,6 +3,7 @@ module Main exposing (main)
 import Browser
 import Random
 import Html exposing (Html, button, div, p, text)
+import Html.Attributes exposing (disabled, hidden)
 import Html.Events exposing (onClick)
 import GenderFriends exposing (altBlumBlumShub, getPolygenderWithLength, renderPolygender)
 
@@ -44,7 +45,7 @@ viewStr model = case model of
   Ready seed regenCount ->
     let
       (gender, newSeed) = getPolygenderWithLength regenCount seed
-      genderStr = renderPolygender gender
+      genderStr = if regenCount == 75 then "queer platonic partners" else renderPolygender gender
     in "do u think a wuppie and a kitties could be " ++ genderStr ++ ",,?"
 
 view : Model -> Html Msg
@@ -54,6 +55,7 @@ view model =
   , button
     ( case model of
       AwaitingSeed -> []
+      Ready _ 75 -> [disabled True, hidden True]
       Ready _ _ -> [onClick Regenerate]
     )
     [ text "make it gayer" ]