WIP

Author: functora

ghcjs/currency-converter/app.cabal

@@ -46,6 +46,8 @@ common pkg
     App.Widgets.SwapAmounts
     App.Widgets.Switch
     App.Widgets.Templates
+    Functora.Miso.Prelude
+    Functora.Miso.Storage
 
   ghc-options:
     -Werror -Weverything -Wno-all-missed-specialisations

ghcjs/currency-converter/src/App/Widgets/Fav.hs

@@ -46,7 +46,7 @@ fav st =
                         $ Button.raised
                           ( Button.config
                               & Button.setOnClick saveAction
-                              & Button.setIcon (Just "add_box")
+                              & Button.setIcon (Just "favorite")
                               & Button.setAttributes
                                 [ Theme.secondaryBg,
                                   class_ "fill"

ghcjs/currency-converter/src/App/Widgets/Menu.hs

@@ -62,7 +62,16 @@ menu st =
                   $ IconButton.iconButton
                     ( IconButton.config
                         & IconButton.setOnClick
-                          ( pureUpdate 0 (& #modelFav .~ Opened)
+                          ( pureUpdate 0
+                              $ (& #modelFav .~ Opened)
+                              . ( &
+                                    #modelState
+                                      . #stDoc
+                                      . #stDocPreFavName
+                                      . #fieldInput
+                                      . #uniqueValue
+                                      .~ mempty
+                                )
                           )
                         & IconButton.setAttributes
                           [ TopAppBar.actionItem,

ghcjs/currency-converter/src/Functora/Miso/Prelude.hs

@@ -0,0 +1,72 @@
+{-# LANGUAGE CPP #-}
+{-# OPTIONS_GHC -Wno-orphans #-}
+
+module Functora.Miso.Prelude
+  ( module X,
+    inspect,
+    consoleLog,
+  )
+where
+
+#if defined(__GHCJS__) || defined(ghcjs_HOST_OS) || defined(wasi_HOST_OS)
+import qualified Data.Binary as Binary (get, put)
+#endif
+import Functora.Cfg as X
+import Functora.Prelude as X hiding
+  ( Field (..),
+    String,
+    Text,
+    field,
+    inspect,
+  )
+import qualified Functora.Prelude as Prelude
+import Miso as X hiding
+  ( Key,
+    URI,
+    at,
+    consoleLog,
+    for_,
+    view,
+  )
+import qualified Miso
+import Miso.String as X
+  ( FromMisoString,
+    MisoString,
+    ToMisoString,
+    fromMisoString,
+    toMisoString,
+  )
+import Type.Reflection
+
+#if defined(__GHCJS__) || defined(ghcjs_HOST_OS) || defined(wasi_HOST_OS)
+instance Binary MisoString where
+  put = Binary.put . fromMisoString @Prelude.Text
+  get = fmap (toMisoString @Prelude.Text) Binary.get
+
+instance From Prelude.Text MisoString where
+  from = toMisoString
+
+instance From Prelude.String MisoString where
+  from = toMisoString
+
+instance From MisoString Prelude.Text where
+  from = fromMisoString
+
+
+instance From MisoString Prelude.String where
+  from = fromMisoString
+
+instance ConvertUtf8 MisoString ByteString where
+  encodeUtf8 = encodeUtf8 . from @MisoString @Prelude.Text
+  decodeUtf8 = from @Prelude.Text @MisoString . decodeUtf8
+  decodeUtf8Strict = fmap (from @Prelude.Text @MisoString) . decodeUtf8Strict
+#endif
+
+inspect :: (Show a, Data a) => a -> MisoString
+inspect x =
+  case typeOf x `eqTypeRep` typeRep @MisoString of
+    Just HRefl -> x
+    Nothing -> toMisoString $ Prelude.inspect @Prelude.Text x
+
+consoleLog :: (Show a, Data a) => a -> JSM ()
+consoleLog = Miso.consoleLog . inspect

ghcjs/currency-converter/src/Functora/Miso/Storage.hs

@@ -0,0 +1,43 @@
+module Functora.Miso.Storage
+  ( insertStorage,
+    selectStorage,
+  )
+where
+
+import qualified Data.Text.Lazy.Encoding as TL
+import Functora.Miso.Prelude
+import qualified Language.Javascript.JSaddle as JS
+
+insertStorage :: (ToJSON a) => MisoString -> a -> JSM ()
+insertStorage key raw = do
+  val <-
+    either throw (pure . toMisoString)
+      . TL.decodeUtf8'
+      . unTagged
+      $ encodeJson raw
+  void
+    $ JS.global
+    ^. JS.js2 @MisoString "insertStorage" key val
+
+selectStorage :: (FromJSON a) => MisoString -> (Maybe a -> JSM ()) -> JSM ()
+selectStorage key after = do
+  success <- JS.function $ \_ _ ->
+    handleAny (\e -> consoleLog e >> after Nothing) . \case
+      [val] -> do
+        valExist <- ghcjsPure $ JS.isTruthy val
+        if not valExist
+          then after Nothing
+          else do
+            raw <- JS.fromJSVal @MisoString val
+            str <- maybe (throwString @MisoString "Storage bad type!") pure raw
+            res <- either throwString pure $ decodeJson str
+            after $ Just res
+      _ ->
+        throwString @MisoString "Storage bad argv!"
+  failure <-
+    JS.function $ \_ _ _ -> consoleLog @MisoString "Storage reader failure!"
+  prom <-
+    JS.global ^. JS.js1 @MisoString "selectStorage" key
+  void
+    $ prom
+    ^. JS.js2 @MisoString "then" success failure