[sawfish] Support switching viewports with mouse wheel.

mina86 · Jun 1, 2024 · 37e4d2e · 37e4d2e
1 parent 6761389
commit 37e4d2e
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/sawfishrc b/sawfishrc
@@ -116,6 +116,14 @@ Windows are matched in most recently focused first order."
   (bind-keys window-keymap
              (concat "W-" (elt keys i))
              (lambda () (set-window-viewport (input-focus) i 0))))
+(bind-keys global-keymap
+           "W-Button4-Click"
+           (lambda ()
+             (set-screen-viewport (% (1+ (car (screen-viewport))) 10) 0)))
+(bind-keys global-keymap
+           "W-Button5-Click"
+           (lambda ()
+             (set-screen-viewport (% (+ 9 (car (screen-viewport))) 10) 0)))
 
 ;;}}}
 ;;{{{ Transparency