can save favorite rates

Author: functora

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

@@ -119,7 +119,11 @@ fav st =
       let nextFavName = makeFavName nextSt
        in nextSt
             & ( Misc.textPopupPure
-                  $ "Removed "
+                  $ "Removed"
+                  <> ( if nextFavName == mempty
+                        then mempty
+                        else " "
+                     )
                   <> nextFavName
                   <> "!"
               )
@@ -138,7 +142,8 @@ makeFavName st =
         ^. #modelState
         . #stDoc
         . #stDocPreFavName
-        . #fieldOutput
+        . #fieldInput
+        . #uniqueValue
 
 favItems :: Model -> [View Action]
 favItems st =

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

@@ -44,7 +44,7 @@ mainWidget st =
                    --  . (: mempty)
                    --  $ div_
                    --    mempty
-                   --    [ inspect $ st ^. #modelFavMap
+                   --    [ text . inspect $ st ^. #modelFavMap
                    --    ],
                    tosWidget,
                    Snackbar.snackbar (Snackbar.config Misc.textPopupClosed)

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

@@ -61,6 +61,12 @@ instance ConvertUtf8 MisoString ByteString where
   encodeUtf8 = encodeUtf8 . from @MisoString @Prelude.Text
   decodeUtf8 = from @Prelude.Text @MisoString . decodeUtf8
   decodeUtf8Strict = fmap (from @Prelude.Text @MisoString) . decodeUtf8Strict
+
+instance ToJSONKey MisoString where
+  toJSONKey = contramap (fromMisoString @Prelude.Text) $ toJSONKey
+
+instance FromJSONKey MisoString where
+  fromJSONKey = fmap toMisoString $ fromJSONKey @Prelude.Text
 #endif
 
 inspect :: (Show a, Data a) => a -> MisoString

ghcjs/currency-converter/src/Main.hs

@@ -127,15 +127,33 @@ updateModel (InitUpdate ext) prevSt = do
                 { modelProducerQueue = prod,
                   modelConsumerQueue = cons
                 }
-        if isJust ext
-          then Misc.pushActionQueue nextSt $ ChanItem 0 (& #modelLoading .~ False)
-          else Storage.selectStorage ("current-" <> vsn) $ \case
-            Nothing ->
-              Misc.pushActionQueue nextSt $ ChanItem 0 (& #modelLoading .~ False)
-            Just uri -> do
-              finSt <- newModel (nextSt ^. #modelWebOpts) (Just nextSt) uri
-              Misc.pushActionQueue nextSt
-                $ ChanItem 0 (const $ finSt & #modelLoading .~ False)
+        Storage.selectStorage ("favorite-" <> vsn) $ \mFav -> do
+          let fav = mergeMap (const id) $ fromMaybe mempty mFav
+          if isJust ext
+            then
+              Misc.pushActionQueue
+                nextSt
+                . ChanItem 0
+                $ (& #modelFavMap %~ fav)
+                . (& #modelLoading .~ False)
+            else Storage.selectStorage ("current-" <> vsn) $ \case
+              Nothing ->
+                Misc.pushActionQueue nextSt
+                  . ChanItem 0
+                  $ (& #modelFavMap %~ fav)
+                  . (& #modelLoading .~ False)
+              Just uri -> do
+                finSt <- newModel (nextSt ^. #modelWebOpts) (Just nextSt) uri
+                Misc.pushActionQueue nextSt
+                  $ ChanItem
+                    0
+                    ( const
+                        $ finSt
+                        & #modelFavMap
+                        %~ fav
+                        & #modelLoading
+                        .~ False
+                    )
         pure
           $ ChanUpdate nextSt
     ]
@@ -181,6 +199,8 @@ updateModel (ChanUpdate prevSt) _ = do
             )
             $ foldlM (\acc updater -> evalModel $ updater acc) prevSt actions
         uri <- URI.mkURI $ shareLink nextSt
+        let fm = nextSt ^. #modelFavMap
+        when (fm /= mempty) $ Storage.insertStorage ("favorite-" <> vsn) fm
         Storage.insertStorage ("current-" <> vsn) uri
         if nextSt ^. #modelLoading
           then do