Link mouse 3 / 4 to history stack

djblue · Sep 25, 2024 · 961bd05 · 961bd05
1 parent edda21f
commit 961bd05
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/portal/ui/app.cljs b/src/portal/ui/app.cljs
@@ -339,7 +339,15 @@
      (when-let [el (.-current ref)]
        (state/dispatch! state assoc :scroll-element el)))
     [s/div
-     {:style
+     {:on-mouse-up
+      (fn [e]
+        (let [button (.-button e)]
+          (cond
+            (= 3 button)
+            (commands/history-back state)
+            (= 4 button)
+            (commands/history-forward state))))
+      :style
       {:height "100vh"
        :display :flex
        :flex-direction :column}}