full reset button

Author: functora

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

@@ -208,6 +208,14 @@ menu st =
                             }
                       ]
                  )
+              <> [ Field.labeled
+                    "Full reset"
+                    mempty
+                    [ button_
+                        [type_ "reset", fullResetOnClick]
+                        [icon Icon.IconDelete, text " Full reset"]
+                    ]
+                 ]
         }
   where
     shareOnClick :: Attribute Action
@@ -219,6 +227,12 @@ menu st =
         . from @String @Unicode
         . either impureThrow URI.renderStr
         $ stUri st
+    fullResetOnClick :: Attribute Action
+    fullResetOnClick =
+      onClick . PushUpdate . Instant . ImpureUpdate $ do
+        doc <- liftIO newSt
+        Jsm.popupText @Unicode "Full reset success!"
+        pure $ (#modelMenu .~ Closed) . (#modelState .~ doc)
 
 qrButton :: Model -> View Action
 qrButton st =

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

@@ -8,6 +8,7 @@ module Functora.Miso.Widgets.Field
     ModalWidget' (..),
     truncateUnicode,
     expandDynamicField,
+    labeled,
     field,
     ratioField,
     textField,
@@ -134,6 +135,24 @@ data ModalWidget' model where
     ATraversal' model (Field a Unique) ->
     ModalWidget' model
 
+labeled :: Unicode -> [Attribute action] -> [View action] -> View action
+labeled label attrs =
+  label_
+    ( style_
+        [ ("display", "flex"),
+          ("flex-wrap", "wrap"),
+          ("flex-direction", "row"),
+          ("align-items", "center")
+        ]
+        : attrs
+    )
+    . ( ( span_
+            [style_ [("width", "100%")]]
+            [text label]
+        )
+          :
+      )
+
 field ::
   Full model action t Unique ->
   Opts model action ->
@@ -151,22 +170,11 @@ field full@Full {fullArgs = args, fullParser = parser, fullViewer = viewer} opts
           Just x ->
             singleton
               . keyed ("field-" <> uidTxt)
-              . label_
-                [ style_
-                    [ ("display", "flex"),
-                      ("flex-wrap", "wrap"),
-                      ("flex-direction", "row"),
-                      ("align-items", "center")
-                    ],
-                  onBlur onBlurAction,
+              . labeled
+                x
+                [ onBlur onBlurAction,
                   onFocus onFocusAction
                 ]
-              . ( ( span_
-                      [style_ [("width", "100%")]]
-                      [text x]
-                  )
-                    :
-                )
        )
       ( [ input_
             $ ( catMaybes