wip

Author: functora

ghcjs/delivery-calculator/src/Main.hs

@@ -245,10 +245,15 @@ viewModel st =
       link_
         [ rel_ "stylesheet",
           -- href_ "https://unpkg.com/[email protected]/css/nes.min.css"
-          href_ "static/css/mvp.css"
+          -- href_ "static/css/mvp.css"
           -- href_ "static/css/simple.min.css"
           -- href_ "static/css/tacit-css-1.8.1.min.css"
           -- href_ "node_modules/@lowlighter/matcha/dist/matcha.css"
+          -- href_ "https://unpkg.com/@sakun/system.css"
+          -- href_ "https://unpkg.com/papercss/dist/paper.min.css"
+          -- href_ "https://unpkg.com/[email protected]/dist/terminal.min.css"
+          -- href_ "https://vinibiavatti1.github.io/TuiCss/dist/tuicss.min.css"
+          href_ "https://fieber.hack.re/fieber.css"
         ],
       link_
         [ rel_ "stylesheet",

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

@@ -10,6 +10,7 @@ import Functora.Miso.Prelude
 import Functora.Miso.Types
 import qualified Functora.Miso.Widgets.Dialog as Dialog
 import qualified Functora.Miso.Widgets.Field as Field
+import qualified Functora.Miso.Widgets.Icon as Icon
 import Functora.Money hiding (Currency, Money, Text)
 import qualified Miso
 import qualified Text.Fuzzy as Fuzzy
@@ -70,6 +71,7 @@ selectCurrency
       <> Dialog.dialog
         Dialog.defOpts
           { Dialog.optsTitle = Just "Currency",
+            Dialog.optsTitleIcon = Just Icon.IconCoins,
             Dialog.optsHeaderRight =
               ( <>
                   Field.textField

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

@@ -84,7 +84,7 @@ dialog opts args =
     defHeaderLeft =
       maybeToList
         ( fmap
-            ( h1_
+            ( h2_
                 [ defHeaderStyle,
                   style_ [("margin-right", "0.5em")]
                 ]
@@ -95,7 +95,7 @@ dialog opts args =
         )
         <> maybeToList
           ( fmap
-              ( h1_ [defHeaderStyle] . singleton . text
+              ( h2_ [defHeaderStyle] . singleton . text
               )
               $ optsTitle opts
           )

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

@@ -38,6 +38,8 @@ data Icon
   | IconExpand
   | IconCollapse
   | IconFile
+  | IconDollar
+  | IconCoins
   deriving stock (Eq, Ord, Show, Read, Data, Generic, Enum, Bounded)
 
 class (From Icon a) => IsIcon a where
@@ -73,6 +75,8 @@ data Fa
   | FaUpRightAndDownLeftFromCenter
   | FaDownLeftAndUpRightToCenter
   | FaFileLines
+  | FaDollarSign
+  | FaCoins
   deriving stock (Eq, Ord, Show, Read, Data, Generic, Enum, Bounded)
 
 instance From Icon Fa where
@@ -106,6 +110,8 @@ instance From Icon Fa where
     IconExpand -> FaUpRightAndDownLeftFromCenter
     IconCollapse -> FaDownLeftAndUpRightToCenter
     IconFile -> FaFileLines
+    IconDollar -> FaDollarSign
+    IconCoins -> FaCoins
 
 instance IsIcon Fa where
   icon x =