Emi
/
ouppy
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add an easter egg for queer-platonic kitties and wuppie

This commit is contained in:
Emi Simpson 2023-05-22 15:46:13 -04:00
parent 3d8637dc31
commit deeea00f5e
Signed by: Emi
GPG Key ID: A12F2C2FFDC3D847
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Main.elm
View File

@ -3,6 +3,7 @@ module Main exposing (main)
import Browser import Browser
import Random import Random
import Html exposing (Html, button, div, p, text) import Html exposing (Html, button, div, p, text)
import Html.Attributes exposing (disabled, hidden)
import Html.Events exposing (onClick) import Html.Events exposing (onClick)
import GenderFriends exposing (altBlumBlumShub, getPolygenderWithLength, renderPolygender) import GenderFriends exposing (altBlumBlumShub, getPolygenderWithLength, renderPolygender)
@ -44,7 +45,7 @@ viewStr model = case model of
Ready seed regenCount -> Ready seed regenCount ->
let let
(gender, newSeed) = getPolygenderWithLength regenCount seed (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 ++ ",,?" in "do u think a wuppie and a kitties could be " ++ genderStr ++ ",,?"
view : Model -> Html Msg view : Model -> Html Msg
@ -54,6 +55,7 @@ view model =
, button , button
( case model of ( case model of
AwaitingSeed -> [] AwaitingSeed -> []
Ready _ 75 -> [disabled True, hidden True]
Ready _ _ -> [onClick Regenerate] Ready _ _ -> [onClick Regenerate]
) )
[ text "make it gayer" ] [ text "make it gayer" ]