wip

Author: functora

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

@@ -28,16 +28,23 @@ menu st =
             ("flex-wrap", "wrap")
           ]
       ]
-      [ li_ [onClick opened] [text "menu"],
+      [ li_
+          [ role_ "button",
+            onClick opened
+          ]
+          [ text "menu"
+          ],
         li_
-          [ onClick . PushUpdate . Instant . ImpureUpdate $ do
+          [ role_ "button",
+            onClick . PushUpdate . Instant . ImpureUpdate $ do
               doc <- liftIO newSt
               pure $ #modelState .~ doc
           ]
           [ text "Delivery Calculator"
           ],
         li_
-          [ onClick
+          [ role_ "button",
+            onClick
               . PushUpdate
               . Instant
               . PureUpdate
@@ -47,7 +54,8 @@ menu st =
           [ text "favorite"
           ],
         li_
-          [ onClick
+          [ role_ "button",
+            onClick
               . PushUpdate
               . Instant
               . ImpureUpdate
@@ -58,7 +66,8 @@ menu st =
           [ text "print"
           ],
         li_
-          [ onClick
+          [ role_ "button",
+            onClick
               . PushUpdate
               . Instant
               . ImpureUpdate
@@ -72,7 +81,8 @@ menu st =
           [ text "download"
           ],
         li_
-          [ onClick
+          [ role_ "button",
+            onClick
               . PushUpdate
               . Instant
               . Jsm.shareText

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

@@ -1,6 +1,7 @@
 module Functora.Miso.Prelude
   ( module X,
     consoleLog,
+    role_,
   )
 where
 
@@ -25,3 +26,6 @@ import qualified Miso
 
 consoleLog :: (Show a, Data a) => a -> JSM ()
 consoleLog = Miso.consoleLog . inspect @Unicode
+
+role_ :: Unicode -> Attribute action
+role_ = textProp "role"

nix/configuration.nix

@@ -751,10 +751,10 @@ in {
           bindsym Mod4+Shift+u mode mouse
           mode mouse {
 
-              bindsym h exec '${ydotool} mousemove -x -20 -y   0'
-              bindsym j exec '${ydotool} mousemove -x   0 -y  20'
-              bindsym k exec '${ydotool} mousemove -x   0 -y -20'
-              bindsym l exec '${ydotool} mousemove -x  20 -y   0'
+              bindsym h exec '${ydotool} mousemove -x -35 -y   0'
+              bindsym j exec '${ydotool} mousemove -x   0 -y  35'
+              bindsym k exec '${ydotool} mousemove -x   0 -y -35'
+              bindsym l exec '${ydotool} mousemove -x  35 -y   0'
 
               bindsym n exec '${ydotool} mousemove -w -- -1  0'
               bindsym m exec '${ydotool} mousemove -w --  0 -1'