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

Compare commits

base: Emi:3d8637dc318789866c748a167cadcf633bd8da2b
Branches Tags
Emi:main
...
compare: Emi:e217089bca9eff6f3bd9f186f1a1f3ae22e5b3c1
Branches Tags
Emi:main

2 Commits
3d8637dc31 ... e217089bca

Author SHA1 Message Date
Emi Simpson e217089bca
Set page language 2023-05-22 15:46:33 -04:00
Emi Simpson deeea00f5e
Add an easter egg for queer-platonic kitties and wuppie 2023-05-22 15:46:13 -04:00
2 changed files with 4 additions and 2 deletions
Show Stats 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" ]

2
static/index.html
View File

@ -1,5 +1,5 @@
<!Doctype HTML>
<html>
<html lang="en">
<head>
<script src="gender.min.js"> </script>
<title>do u think a wuppie and a kitties could be friends,,?</title>