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

Browse source
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 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" ]