feat: added cuckery

frontend/src/Pages/Dodgers.elm

@@ -3,6 +3,9 @@ module Pages.Dodgers exposing (Model, Msg, page)
 import Config.Colour as T exposing (..)
 import Config.Format as O exposing (..)
 import Config.Identity as I exposing (..)
+import Cuckery.CuckList.AdamSinger exposing (cuckAdamSinger)
+import Cuckery.CuckList.AnthonyGustin exposing (cuckAnthonyGustin)
+import Cuckery.Helpers exposing (..)
 import Effect exposing (Effect)
 import Element exposing (..)
 import Element.Border as D
@@ -93,7 +96,11 @@ dodgersList : Element msg
 dodgersList =
     column
         pageList
-        dodgers
+    <|
+        List.map cuckMaker
+            [ cuckAdamSinger
+            , cuckAnthonyGustin
+            ]
 
 
 type alias MakeRowInput msg =
@@ -200,7 +207,7 @@ dodgers =
         dodgeType : DodgeType
         dodgeType =
             { noReply = "Invitation extended with no response"
-            , ranAway = "Engaged in written debate and dodged when cornered"
+            , ranAway = "Engaged in written debate and ran away when cornered"
             , ghostedMe = "Debate invitation accepted with no follow-up"
             , outrightNo = "Debate invitation declined"
             , inTooDeep = "Debate invitation accepted and subsequently retracted"
@@ -287,7 +294,7 @@ dodgers =
                   }
                 ]
           }
-        , { cuckImage = "cucks/bartkay.png"
+        , { cuckImage = "cucks/bartkay3.png"
           , cuckName = "Bart Kay"
           , cuckSocial = "https://twitter.com/@Bart_WT_Kay"
           , cuckDodges =

frontend/src/Pages/Home_.elm

@@ -3,6 +3,7 @@ module Pages.Home_ exposing (Model, Msg, page)
 import Config.Colour as T exposing (..)
 import Config.Format as O exposing (..)
 import Config.Identity as I exposing (..)
+import Cuckery.Types
 import Effect exposing (Effect)
 import Element exposing (..)
 import Html.Attributes as H exposing (style)