prevent default form submit action

Author: functora

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

@@ -139,14 +139,10 @@ menu st =
                 }
               Currency.Args
                 { Currency.argsModel = st,
-                  Currency.argsOptic =
-                    #modelState . #stAssetCurrency,
-                  Currency.argsAction =
-                    PushUpdate . Instant,
-                  Currency.argsEmitter =
-                    pushActionQueue st . Instant,
-                  Currency.argsCurrencies =
-                    #modelCurrencies
+                  Currency.argsOptic = #modelState . #stAssetCurrency,
+                  Currency.argsAction = PushUpdate . Instant,
+                  Currency.argsEmitter = pushActionQueue st . Instant,
+                  Currency.argsCurrencies = #modelCurrencies
                 }
               <> Currency.selectCurrency
                 Currency.defOpts
@@ -155,40 +151,28 @@ menu st =
                   }
                 Currency.Args
                   { Currency.argsModel = st,
-                    Currency.argsOptic =
-                      #modelState . #stMerchantCurrency,
-                    Currency.argsAction =
-                      PushUpdate . Instant,
-                    Currency.argsEmitter =
-                      pushActionQueue st . Instant,
-                    Currency.argsCurrencies =
-                      #modelCurrencies
+                    Currency.argsOptic = #modelState . #stMerchantCurrency,
+                    Currency.argsAction = PushUpdate . Instant,
+                    Currency.argsEmitter = pushActionQueue st . Instant,
+                    Currency.argsCurrencies = #modelCurrencies
                   }
               <> [ Select.select
-                    ( Select.defOpts
-                        & #optsLabel
-                        .~ Just "Exchange rate"
+                    ( Select.defOpts & #optsLabel .~ Just "Exchange rate"
                     )
                     Select.Args
-                      { Select.argsModel =
-                          st,
-                        Select.argsOptic =
-                          #modelState . #stOnlineOrOffline,
-                        Select.argsAction =
-                          PushUpdate . Instant,
+                      { Select.argsModel = st,
+                        Select.argsOptic = #modelState . #stOnlineOrOffline,
+                        Select.argsAction = PushUpdate . Instant,
                         Select.argsOptions =
                           constTraversal $ enumerate @OnlineOrOffline
                       }
                  ]
               <> Field.ratioField
                 Field.Args
                   { Field.argsModel = st,
-                    Field.argsOptic =
-                      #modelState . #stExchangeRate,
-                    Field.argsAction =
-                      PushUpdate . Instant,
-                    Field.argsEmitter =
-                      pushActionQueue st . Instant
+                    Field.argsOptic = #modelState . #stExchangeRate,
+                    Field.argsAction = PushUpdate . Instant,
+                    Field.argsEmitter = pushActionQueue st . Instant
                   }
                 ( let disabled =
                         st

ghcjs/miso-functora/src/Functora/Miso/Prelude.hs

@@ -2,6 +2,7 @@ module Functora.Miso.Prelude
   ( module X,
     consoleLog,
     role_,
+    form_,
   )
 where
 
@@ -20,6 +21,7 @@ import Miso as X hiding
     close,
     consoleLog,
     for_,
+    form_,
     view,
   )
 import qualified Miso
@@ -29,3 +31,6 @@ consoleLog = Miso.consoleLog . inspect @Unicode
 
 role_ :: Unicode -> Attribute action
 role_ = textProp "role"
+
+form_ :: [Attribute action] -> [View action] -> View action
+form_ attrs = Miso.form_ (action_ "javascript:void(0)" : attrs)

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

@@ -103,6 +103,7 @@ selectCurrency
                     & #optsExtraAttributes
                     .~ [autofocus_ True]
                 )
+                <> [br_ mempty]
                 <> currencyListWidget opts args
           }
     where