wip

Author: functora

ghcjs/delivery-calculator/src/App/Widgets/Menu.hs

@@ -108,6 +108,8 @@ menu st =
     <> Fav.fav st
     <> Dialog.dialog
       ( Dialog.defOpts
+          & #optsTitleIcon
+          .~ Just Icon.IconSettings
           & #optsTitle
           .~ Just "Settings"
       )

ghcjs/miso-functora/src/Functora/Miso/Widgets/Dialog.hs

@@ -21,6 +21,7 @@ data Args model action = Args
 
 data Opts model action = Opts
   { optsTitle :: Maybe Unicode,
+    optsTitleIcon :: Maybe Icon.Icon,
     optsHeaderLeft :: [View action] -> [View action],
     optsHeaderRight :: [View action] -> [View action],
     optsFooterLeft :: [View action] -> [View action],
@@ -34,6 +35,7 @@ defOpts :: Opts model action
 defOpts =
   Opts
     { optsTitle = Nothing,
+      optsTitleIcon = Nothing,
       optsHeaderLeft = id,
       optsHeaderRight = id,
       optsFooterLeft = id,
@@ -72,20 +74,30 @@ dialog opts args =
   where
     opened =
       args ^? #argsModel . cloneTraversal (argsOptic args) == Just Opened
+    defHeaderStyle =
+      style_
+        [ ("margin", "0"),
+          ("display", "flex"),
+          ("align-items", "center")
+        ]
     defHeaderLeft =
       maybeToList
-        . fmap
-          ( h1_
-              [ style_
-                  [ ("margin", "0"),
-                    ("display", "flex"),
-                    ("align-items", "center")
-                  ]
-              ]
-              . singleton
-              . text
+        ( fmap
+            ( h1_
+                [ defHeaderStyle,
+                  style_ [("margin-right", "0.5em")]
+                ]
+                . singleton
+                . optsIcon opts
+            )
+            $ optsTitleIcon opts
+        )
+        <> maybeToList
+          ( fmap
+              ( h1_ [defHeaderStyle] . singleton . text
+              )
+              $ optsTitle opts
           )
-        $ optsTitle opts
     defHeaderRight =
       [ button_
           [onClick $ closeDialogAction opts args]

ghcjs/miso-functora/src/Functora/Miso/Widgets/Icon.hs

@@ -19,6 +19,7 @@ data Icon
   | IconQr
   | IconDelivery
   | IconBack
+  | IconSettings
   deriving stock (Eq, Ord, Show, Read, Data, Generic, Enum, Bounded)
 
 class (From Icon a) => IsIcon a where
@@ -35,6 +36,7 @@ data Fa
   | FaQrcode
   | FaTruck
   | FaArrowLeft
+  | FaGear
   deriving stock (Eq, Ord, Show, Read, Data, Generic, Enum, Bounded)
 
 instance From Icon Fa where
@@ -49,6 +51,7 @@ instance From Icon Fa where
     IconQr -> FaQrcode
     IconDelivery -> FaTruck
     IconBack -> FaArrowLeft
+    IconSettings -> FaGear
 
 instance IsIcon Fa where
   icon x =