Make activity-matching case-insensitive

src/Main.elm

@@ -28,7 +28,7 @@ import List.Extra exposing (elemIndex, getAt)
 import Maybe exposing (andThen)
 import Maybe.Extra exposing (isJust)
 import Result exposing (toMaybe)
-import String exposing (fromInt, isEmpty)
+import String exposing (fromInt, isEmpty, toLower)
 import String.Extra exposing (isBlank)
 import Svg exposing (path, Svg, svg)
 import Svg.Attributes exposing (d, fill, height, stroke, viewBox, width)
@@ -431,7 +431,7 @@ loadColumn =
 
 saveTile : Tile -> CE.Encoder
 saveTile { text } =
-  case elemIndex text activities of
+  case elemIndex (toLower text) activities of
     Just index -> CE.int index
     Nothing -> CE.string text
 

src/Presets.elm

@@ -11,388 +11,388 @@ type alias WordSet =
 
 activities =
   [ "69"
-  , "Age-Play"
-  , "Anal Sex"
-  , "Analingus/Rimming"
-  , "Ball Stretching"
-  , "Being Filmed/Photographed"
-  , "Being Watched"
-  , "Biting"
-  , "Blindfolds"
-  , "Blood Play"
-  , "Light Bondage"
-  , "Heavy Bondage"
-  , "Rope"
-  , "Boot-blacking"
-  , "Bratting"
-  , "Breath Play"
-  , "Butt Plugs"
-  , "Cages/Confinement"
-  , "Caning"
-  , "Chastity"
-  , "Cock/Pussy Worship"
-  , "Cockrings"
-  , "Collars"
-  , "Consensual Non-Consent"
-  , "Costumes"
-  , "Cross Dressing"
-  , "Cuckolding"
-  , "Cuddling"
-  , "Cunnilingus"
-  , "Degradation"
-  , "Dirty Talk"
-  , "Domination"
-  , "Double Penetration" -- TODO Which hole(s)? note???  how do we handle this?
-  , "E-Stim"
-  , "Edging"
-  , "Ejaculate"
-  , "Enemas"
-  , "Eye Contact (or restriction from)"
-  , "Face Fucking"
-  , "Facesitting"
-  , "Fellatio"
-  , "Fingering" -- (External? Anal? Vaginal?)
-  , "Fisting" -- (Anal? Vaginal?)
-  , "Flogging"
-  , "Food Play"
-  , "Foot Play"
-  , "Frottage"
-  , "Furries"
-  , "G-Spot"
-  , "Gags"
-  , "Gender Play"
-  , "Genital Torture"
-  , "Group Sex"
-  , "Hair Pulling"
-  , "Hoods"
-  , "Humiliation"
-  , "Incest"
-  , "Roleplay"
-  , "Kicking"
-  , "Kidnapping"
-  , "Roleplay"
-  , "Kissing" -- (Where?)
-  , "Knife Play"
-  , "Leather"
-  , "Lingerie"
-  , "Massage"
-  , "Medical Play"
-  , "Moans"
-  , "Mutual Masturbation"
-  , "Nipple Clamps"
-  , "Nipple Play"
-  , "Nipple Torture"
-  , "Objectification"
-  , "Orgasm Control"
-  , "Orgasm Denial"
-  , "Paddles"
-  , "Mild Pain"
-  , "Moderate Pain"
-  , "Severe Pain"
-  , "Pegging"
-  , "Piercing"
-  , "Phone Sex"
-  , "Piss Play"
-  , "Porn"
-  , "Power Exchange"
-  , "Prostate Play"
-  , "Punching"
-  , "Punishment"
-  , "Race Play"
-  , "Riding Crops"
-  , "Role Play" -- (Which Roles?)
-  , "Rubber/Latex Clothing"
-  , "Scat"
-  , "Scratching"
-  , "Sensory Deprivation"
-  , "Service"
-  , "Sex During Menstruation"
-  , "Sex in Public"
-  , "Sex Magic"
-  , "Sex Parties"
-  , "Sex Toys"
-  , "Sexting"
-  , "Shaving"
-  , "Slapping" -- (Where?)
-  , "Smoking" -- (Cigarettes? 420? Cigars?)
-  , "Spanking"
-  , "Sploshing"
-  , "Spreader Bars"
-  , "Strap Ons"
-  , "Strip Clubs"
-  , "Submission"
-  , "Suspension"
-  , "Swallowing Ejaculate"
-  , "Tantra"
-  , "Teasing"
-  , "Temporary Marks"
-  , "Threesome" -- (Genders?)
-  , "Tickling"
-  , "Tit-Fucking"
-  , "Tribadism"
-  , "Triple Penetration"
-  , "Vaginal Penetration"
-  , "Watching Others"
-  , "Wax"
-  , "Whips"
-  , "Wrestling"
+  , "age-play"
+  , "anal sex"
+  , "analingus/rimming"
+  , "ball stretching"
+  , "being filmed/photographed"
+  , "being watched"
+  , "biting"
+  , "blindfolds"
+  , "blood play"
+  , "light bondage"
+  , "heavy bondage"
+  , "rope"
+  , "boot-blacking"
+  , "bratting"
+  , "breath play"
+  , "butt plugs"
+  , "cages/confinement"
+  , "caning"
+  , "chastity"
+  , "cock/pussy worship"
+  , "cockrings"
+  , "collars"
+  , "consensual non-consent"
+  , "costumes"
+  , "cross dressing"
+  , "cuckolding"
+  , "cuddling"
+  , "cunnilingus"
+  , "degradation"
+  , "dirty talk"
+  , "domination"
+  , "double penetration" -- todo which hole(s)? note???  how do we handle this?
+  , "e-stim"
+  , "edging"
+  , "ejaculate"
+  , "enemas"
+  , "eye contact (or restriction from)"
+  , "face fucking"
+  , "facesitting"
+  , "fellatio"
+  , "fingering" -- (external? anal? vaginal?)
+  , "fisting" -- (anal? vaginal?)
+  , "flogging"
+  , "food play"
+  , "foot play"
+  , "frottage"
+  , "furries"
+  , "g-spot"
+  , "gags"
+  , "gender play"
+  , "genital torture"
+  , "group sex"
+  , "hair pulling"
+  , "hoods"
+  , "humiliation"
+  , "incest"
+  , "roleplay"
+  , "kicking"
+  , "kidnapping"
+  , "roleplay"
+  , "kissing" -- (where?)
+  , "knife play"
+  , "leather"
+  , "lingerie"
+  , "massage"
+  , "medical play"
+  , "moans"
+  , "mutual masturbation"
+  , "nipple clamps"
+  , "nipple play"
+  , "nipple torture"
+  , "objectification"
+  , "orgasm control"
+  , "orgasm denial"
+  , "paddles"
+  , "mild pain"
+  , "moderate pain"
+  , "severe pain"
+  , "pegging"
+  , "piercing"
+  , "phone sex"
+  , "piss play"
+  , "porn"
+  , "power exchange"
+  , "prostate play"
+  , "punching"
+  , "punishment"
+  , "race play"
+  , "riding crops"
+  , "role play" -- (which roles?)
+  , "rubber/latex clothing"
+  , "scat"
+  , "scratching"
+  , "sensory deprivation"
+  , "service"
+  , "sex during menstruation"
+  , "sex in public"
+  , "sex magic"
+  , "sex parties"
+  , "sex toys"
+  , "sexting"
+  , "shaving"
+  , "slapping" -- (where?)
+  , "smoking" -- (cigarettes? 420? cigars?)
+  , "spanking"
+  , "sploshing"
+  , "spreader bars"
+  , "strap ons"
+  , "strip clubs"
+  , "submission"
+  , "suspension"
+  , "swallowing ejaculate"
+  , "tantra"
+  , "teasing"
+  , "temporary marks"
+  , "threesome" -- (genders?)
+  , "tickling"
+  , "tit-fucking"
+  , "tribadism"
+  , "triple penetration"
+  , "vaginal penetration"
+  , "watching others"
+  , "wax"
+  , "whips"
+  , "wrestling"
   ]
 
 language =
-  [ "Abuse"
-  , "Aching"
-  , "Ample"
-  , "Aroused"
-  , "Ass"
-  , "Asshole"
-  , "Babe"
-  , "Baby"
-  , "Baby Girl/Boy"
-  , "Balls"
-  , "Bang"
-  , "Beat"
-  , "Beautiful"
-  , "Beg"
-  , "Bitch"
-  , "Bite"
-  , "Bits"
-  , "Blowjob"
-  , "Blush"
-  , "Bone/Boner"
-  , "Boobs"
-  , "Booty"
-  , "Bottom"
-  , "Boy/Boi"
-  , "Brat"
-  , "Breasts"
-  , "Bruise"
-  , "Bulge"
-  , "Blush"
-  , "Butt"
-  , "Button"
-  , "Choke"
-  , "Clit"
-  , "Clitoris"
-  , "Cock"
-  , "Cock Sucking"
-  , "Cum"
-  , "Cum Dumpster"
-  , "Cum Slut"
-  , "Cunnilingus"
-  , "Cunt"
-  , "Daddy"
-  , "Darling"
-  , "Destroy"
-  , "Dick"
-  , "Dirty"
-  , "Disappointment"
-  , "Disgusting"
-  , "“Down There”"
-  , "Dripping"
-  , "Eating Out"
-  , "Embarrassed"
-  , "Face Fucking"
-  , "Faggot"
-  , "Fap"
-  , "Fellatio"
-  , "Filthy"
-  , "Finger"
-  , "Finger Bang"
-  , "Finger Fuck"
-  , "Freak"
-  , "Fuck"
-  , "Fuck Toy"
-  , "Gag"
-  , "Giggle"
-  , "Girl"
-  , "Goddess"
-  , "Gorgeous"
-  , "Grab"
-  , "Groan"
-  , "Hairy"
-  , "Hard/Hard On"
-  , "Hole"
-  , "Honey"
-  , "Horny"
-  , "Hot"
-  , "Intense"
-  , "Jerk Off"
-  , "Jizz"
-  , "Jugs"
-  , "Juicy"
-  , "Junk"
-  , "Kitten"
-  , "Lick"
-  , "Lips"
-  , "Little"
-  , "Little One"
-  , "Load"
-  , "Ma’am"
-  , "Master"
-  , "Masturbate"
-  , "Member"
-  , "Mine"
-  , "Miss"
-  , "Mister"
-  , "Mistress"
-  , "Moan"
-  , "Moist"
-  , "Mouth"
-  , "Nads"
-  , "Nasty"
-  , "Nipples"
-  , "Pathetic"
-  , "Pecker"
-  , "Pervert"
-  , "Pig/Piggy"
-  , "Pink"
-  , "Please"
-  , "Pound"
-  , "Prick"
-  , "Princess"
-  , "Property"
-  , "Punch"
-  , "Pup"
-  , "Pussy"
-  , "Rape"
-  , "Ravage"
-  , "Red"
-  , "Rump"
-  , "Sack"
-  , "Sad"
-  , "Schlong"
-  , "Scratch"
-  , "Scream"
-  , "Screw"
-  , "Sexy"
-  , "Shiver"
-  , "Shoot"
-  , "Sir"
-  , "Sissy"
-  , "Skank"
-  , "Slam"
-  , "Slap"
-  , "Slave"
-  , "Slide"
-  , "Slut"
-  , "Smack"
-  , "Smooth"
-  , "Snatch"
-  , "Soft"
-  , "Solid"
-  , "Spank"
-  , "Spit"
-  , "Squeeze"
-  , "Strong"
-  , "Stupid"
-  , "Suck"
-  , "Sweet"
-  , "Sweetheart"
-  , "Tease"
-  , "Teeth"
-  , "Tight"
-  , "Tits"
-  , "Top"
-  , "Toy"
-  , "Tramp"
-  , "Turgid"
-  , "Twat"
-  , "Vag"
-  , "Vagina"
-  , "Vixen"
-  , "Vulva"
-  , "Wad"
-  , "Wang"
-  , "Wank"
-  , "Watch"
-  , "Wet"
-  , "Whimper"
-  , "Whore"
-  , "Worthless"
+  [ "abuse"
+  , "aching"
+  , "ample"
+  , "aroused"
+  , "ass"
+  , "asshole"
+  , "babe"
+  , "baby"
+  , "baby girl/boy"
+  , "balls"
+  , "bang"
+  , "beat"
+  , "beautiful"
+  , "beg"
+  , "bitch"
+  , "bite"
+  , "bits"
+  , "blowjob"
+  , "blush"
+  , "bone/boner"
+  , "boobs"
+  , "booty"
+  , "bottom"
+  , "boy/boi"
+  , "brat"
+  , "breasts"
+  , "bruise"
+  , "bulge"
+  , "blush"
+  , "butt"
+  , "button"
+  , "choke"
+  , "clit"
+  , "clitoris"
+  , "cock"
+  , "cock sucking"
+  , "cum"
+  , "cum dumpster"
+  , "cum slut"
+  , "cunnilingus"
+  , "cunt"
+  , "daddy"
+  , "darling"
+  , "destroy"
+  , "dick"
+  , "dirty"
+  , "disappointment"
+  , "disgusting"
+  , "“down there”"
+  , "dripping"
+  , "eating out"
+  , "embarrassed"
+  , "face fucking"
+  , "faggot"
+  , "fap"
+  , "fellatio"
+  , "filthy"
+  , "finger"
+  , "finger bang"
+  , "finger fuck"
+  , "freak"
+  , "fuck"
+  , "fuck toy"
+  , "gag"
+  , "giggle"
+  , "girl"
+  , "goddess"
+  , "gorgeous"
+  , "grab"
+  , "groan"
+  , "hairy"
+  , "hard/hard on"
+  , "hole"
+  , "honey"
+  , "horny"
+  , "hot"
+  , "intense"
+  , "jerk off"
+  , "jizz"
+  , "jugs"
+  , "juicy"
+  , "junk"
+  , "kitten"
+  , "lick"
+  , "lips"
+  , "little"
+  , "little one"
+  , "load"
+  , "ma’am"
+  , "master"
+  , "masturbate"
+  , "member"
+  , "mine"
+  , "miss"
+  , "mister"
+  , "mistress"
+  , "moan"
+  , "moist"
+  , "mouth"
+  , "nads"
+  , "nasty"
+  , "nipples"
+  , "pathetic"
+  , "pecker"
+  , "pervert"
+  , "pig/piggy"
+  , "pink"
+  , "please"
+  , "pound"
+  , "prick"
+  , "princess"
+  , "property"
+  , "punch"
+  , "pup"
+  , "pussy"
+  , "rape"
+  , "ravage"
+  , "red"
+  , "rump"
+  , "sack"
+  , "sad"
+  , "schlong"
+  , "scratch"
+  , "scream"
+  , "screw"
+  , "sexy"
+  , "shiver"
+  , "shoot"
+  , "sir"
+  , "sissy"
+  , "skank"
+  , "slam"
+  , "slap"
+  , "slave"
+  , "slide"
+  , "slut"
+  , "smack"
+  , "smooth"
+  , "snatch"
+  , "soft"
+  , "solid"
+  , "spank"
+  , "spit"
+  , "squeeze"
+  , "strong"
+  , "stupid"
+  , "suck"
+  , "sweet"
+  , "sweetheart"
+  , "tease"
+  , "teeth"
+  , "tight"
+  , "tits"
+  , "top"
+  , "toy"
+  , "tramp"
+  , "turgid"
+  , "twat"
+  , "vag"
+  , "vagina"
+  , "vixen"
+  , "vulva"
+  , "wad"
+  , "wang"
+  , "wank"
+  , "watch"
+  , "wet"
+  , "whimper"
+  , "whore"
+  , "worthless"
   ]
 
 feelings =
-  [ "Abandoned"
-  , "Accomplished"
-  , "Adored"
-  , "Animalistic"
-  , "Anger"
-  , "Ashamed"
-  , "Bad"
-  , "Belonging"
-  , "Big"
-  , "Catharsis"
-  , "Cherished"
-  , "Clever"
-  , "Coerced"
-  , "Competent"
-  , "Connected"
-  , "Corrupted"
-  , "Defeated"
-  , "Desired"
-  , "Dirty"
-  , "Disrespected"
-  , "Dutiful"
-  , "Embarrassed"
-  , "Encouraged"
-  , "Euphoric"
-  , "Fear"
-  , "Focused"
-  , "Forced"
-  , "Forgiveness"
-  , "Free"
-  , "Good"
-  , "Helplessness"
-  , "Humiliation"
-  , "Humility"
-  , "Idolized"
-  , "Impressed"
-  , "Infantilized"
-  , "Innocent"
-  , "Loss of Control"
-  , "Loved"
-  , "Lust"
-  , "Mean"
-  , "Neediness"
-  , "Nurturing"
-  , "Objectified"
-  , "Open"
-  , "Out of Control"
-  , "Overpowered"
-  , "Overwhelmed"
-  , "Owned"
-  , "Passivity"
-  , "Pathos"
-  , "Perverted"
-  , "Pity"
-  , "Powerful"
-  , "Protected"
-  , "Punished"
-  , "Rebellious"
-  , "Rebellious"
-  , "Redemption"
-  , "Resentment"
-  , "Redeemed"
-  , "Resentment"
-  , "Respected"
-  , "Sadistic"
-  , "Sadness"
-  , "Safe"
-  , "Satiated"
-  , "Served"
-  , "Sexy"
-  , "Small"
-  , "Special"
-  , "Strong"
-  , "Submissive"
-  , "Subservient"
-  , "Trust"
-  , "Used"
-  , "Useful"
-  , "Victimized"
-  , "Violated"
-  , "Wanted"
-  , "Worshiped"
-  , "Worthless"
-  , "Wrong"
+  [ "abandoned"
+  , "accomplished"
+  , "adored"
+  , "animalistic"
+  , "anger"
+  , "ashamed"
+  , "bad"
+  , "belonging"
+  , "big"
+  , "catharsis"
+  , "cherished"
+  , "clever"
+  , "coerced"
+  , "competent"
+  , "connected"
+  , "corrupted"
+  , "defeated"
+  , "desired"
+  , "dirty"
+  , "disrespected"
+  , "dutiful"
+  , "embarrassed"
+  , "encouraged"
+  , "euphoric"
+  , "fear"
+  , "focused"
+  , "forced"
+  , "forgiveness"
+  , "free"
+  , "good"
+  , "helplessness"
+  , "humiliation"
+  , "humility"
+  , "idolized"
+  , "impressed"
+  , "infantilized"
+  , "innocent"
+  , "loss of control"
+  , "loved"
+  , "lust"
+  , "mean"
+  , "neediness"
+  , "nurturing"
+  , "objectified"
+  , "open"
+  , "out of control"
+  , "overpowered"
+  , "overwhelmed"
+  , "owned"
+  , "passivity"
+  , "pathos"
+  , "perverted"
+  , "pity"
+  , "powerful"
+  , "protected"
+  , "punished"
+  , "rebellious"
+  , "rebellious"
+  , "redemption"
+  , "resentment"
+  , "redeemed"
+  , "resentment"
+  , "respected"
+  , "sadistic"
+  , "sadness"
+  , "safe"
+  , "satiated"
+  , "served"
+  , "sexy"
+  , "small"
+  , "special"
+  , "strong"
+  , "submissive"
+  , "subservient"
+  , "trust"
+  , "used"
+  , "useful"
+  , "victimized"
+  , "violated"
+  , "wanted"
+  , "worshiped"
+  , "worthless"
+  , "wrong"
   ]