feat: metadata test

frontend/src/Pages/Debate/Cucklist.elm

@@ -278,6 +278,9 @@ circumstance cuck dodge =
 
                 VagueGesture ->
                     "Chose to gesture vaguely instead of engaging"
+
+                EmptyHanded ->
+                    "Engaged in written debate and ran away when pressed for specifics"
             )
         , el [ F.color colourTheme.textLightGrey ] <|
             text "."
@@ -402,11 +405,7 @@ reductioMaker device dodge =
         Just fallacy ->
             case fallacy of
                 SpecificFallacy str ->
-                    if String.isEmpty str then
-                        none
-
-                    else
-                        displayFallacy str
+                    displayFallacy str
 
                 AppealToNature ->
                     displayFallacy "Appeal to Nature"
@@ -438,6 +437,11 @@ reductioMaker device dodge =
                 MotteAndBailey ->
                     displayFallacy "Motte and Bailey"
 
+                MechanisticMasturbation ->
+                    displayFallacy "Mechanistic Masturbation"
+                Vaguemongering ->
+                    displayFallacy "Vaguemongering"
+
 
 reasonMaker : Device -> Dodge -> Element msg
 reasonMaker device dodge =

frontend/src/Pages/Interviews.elm

@@ -192,16 +192,7 @@ contentList shared interview =
                 _ ->
                     image "Fatty"
     in
-    [ row
-        [ paddingEach
-            { top = 3
-            , right = 0
-            , bottom = 0
-            , left = 0
-            }
-        , detailSpacing
-        , width fill
-        ]
+    [ detailFormat row
         [ imageMaker
         , detailFormat column
             [ socialMaker interview.interviewSocial interview.interviewSocial
@@ -214,7 +205,7 @@ contentList shared interview =
 
 appearanceMaker : Shared.Model -> Interview -> Element msg
 appearanceMaker shared interview =
-    detailFormat paragraph
+    detailFormat column
         [ listMaker2 (makeAppearance shared) interview.interviewAppearances ]
 
 
@@ -234,9 +225,9 @@ makeAppearance shared appearanceEntry index =
 episodeMaker : Appearance -> Element msg
 episodeMaker appearanceEntry =
     newTabLink
-        []
+        [ width fill ]
         { url = appearanceEntry.appearanceLink
-        , label = detailTitleMaker TextLightOrange ("#" ++ appearanceEntry.appearanceEpisode ++ ": " ++ appearanceEntry.appearanceTitle)
+        , label = detailTitleLinkWide TextLightOrange ("#" ++ appearanceEntry.appearanceEpisode ++ ": " ++ appearanceEntry.appearanceTitle)
         }