1 files changed, 88 insertions, 0 deletions
diff --git a/stumpwm/.stumpwm.d/keybinds.lisp b/stumpwm/.stumpwm.d/keybinds.lisp
new file mode 100644
index 0000000..6a9e2d7
--- /dev/null
+++ b/stumpwm/.stumpwm.d/keybinds.lisp
@@ -0,0 +1,88 @@
+(in-package :stumpwm)
+
+;; Remove default binds
+(defvar *gross-default-binds*
+  (list "c" "C-c" "e" "C-e" "d" "C-d" "SPC"
+        "i" "f" "C-k" "w" "C-w" "a" "C-a"
+        "C-t" "o" "TAB" "F" "C-h" "v"
+        "#" "m" "C-m" "l" "C-l" "G" "C-N"
+        "A" "X" "C-SPC" "I" "r" "W" "+"
+        "RET" "C-RET" "C-0" "C-1" "C-2"
+        "C-3" "C-4" "C-5" "C-6" "C-7" "\""
+        "C-8" "C-9" "0" "1" "2" "3" "4"
+        "5" "6" "7" "8" "9"))
+
+;; yuck!
+(dolist (bind *gross-default-binds*)
+  (undefine-key *root-map* (kbd bind)))
+
+(set-prefix-key (kbd "s-z"))
+(define-key *top-map* (kbd "s-q") "delete")
+
+;; programs
+(define-key *top-map* (kbd "s-d") "exec dmenu_run")
+(define-key *top-map* (kbd "s-RET") "exec st")
+(define-key *top-map* (kbd "s-e") "emacs")
+(define-key *top-map* (kbd "s-n") "exec emacsclient -c")
+(define-key *top-map* (kbd "s-N") "exec emacs-launcher")
+(define-key *top-map* (kbd "Print") "exec maimpick")
+(define-key *top-map* (kbd "s-X") "exec sysact")
+(define-key *top-map* (kbd "s-p") "exec st -e alsamixer")
+(define-key *top-map* (kbd "s-w") "exec librewolf-bin")
+
+;; media
+(define-key *top-map* (kbd "XF86AudioPlay") "exec playerctl play")
+(define-key *top-map* (kbd "s-P") "exec playerctl pause")
+(define-key *top-map* (kbd "XF86AudioPause") "exec playerctl pause")
+(define-key *top-map* (kbd "XF86AudioNext") "exec playerctl next")
+(define-key *top-map* (kbd "XF86AudioPrev") "exec playerctl previous")
+(define-key *top-map* (kbd "XF86AudioRaiseVolume") "exec pactl set-sink-volume @DEFAULT_SINK@ +5%")
+(define-key *top-map* (kbd "XF86AudioLowerVolume") "exec pactl set-sink-volume @DEFAULT_SINK@ -5%")
+(define-key *top-map* (kbd "XF86AudioMute") "exec pactl set-sink-mute @DEFAULT_SINK@ toggle")
+
+
+;; moving around
+(define-key *top-map* (kbd "s-h") "move-focus left")
+(define-key *top-map* (kbd "s-j") "move-focus down")
+(define-key *top-map* (kbd "s-k") "move-focus up")
+(define-key *top-map* (kbd "s-l") "move-focus right")
+(define-key *top-map* (kbd "s-H") "move-window left")
+(define-key *top-map* (kbd "s-J") "move-window down")
+(define-key *top-map* (kbd "s-K") "move-window up")
+(define-key *top-map* (kbd "s-L") "move-window right")
+
+;; frame movement
+(define-key *root-map* (kbd "v") "hsplit")
+(define-key *root-map* (kbd "s") "vsplit")
+(define-key *root-map* (kbd "d") "remove-split")
+(define-key *root-map* (kbd "V") "hsplit-and-focus")
+(define-key *root-map* (kbd "S") "vsplit-and-focus")
+(define-key *top-map* (kbd "s-Tab") "next-in-frame")
+(define-key *top-map* (kbd "s-ISO_Left_Tab") "prev-in-frame")
+(define-key *top-map* (kbd "s-o") "other-in-frame")
+(define-key *top-map* (kbd "s-O") "other")
+(define-key *top-map* (kbd "s-W") "frame-windowlist")
+
+;; group movement keybinds
+(define-key *top-map* (kbd "s-1") "gselect 1")
+(define-key *top-map* (kbd "s-2") "gselect 2")
+(define-key *top-map* (kbd "s-3") "gselect 3")
+(define-key *top-map* (kbd "s-4") "gselect 4")
+(define-key *top-map* (kbd "s-5") "gselect 5")
+(define-key *top-map* (kbd "s-6") "gselect 6")
+(define-key *top-map* (kbd "s-7") "gselect 7")
+(define-key *top-map* (kbd "s-8") "gselect 8")
+(define-key *top-map* (kbd "s-9") "gselect 9")
+(define-key *top-map* (kbd "s-0") "gselect 10")
+
+;; group shifting
+(define-key *top-map* (kbd "s-S-1") "gmove 1")
+(define-key *top-map* (kbd "s-S-2") "gmove 2")
+(define-key *top-map* (kbd "s-S-3") "gmove 3")
+(define-key *top-map* (kbd "s-S-4") "gmove 4")
+(define-key *top-map* (kbd "s-S-5") "gmove 5")
+(define-key *top-map* (kbd "s-S-6") "gmove 6")
+(define-key *top-map* (kbd "s-S-7") "gmove 7")
+(define-key *top-map* (kbd "s-S-8") "gmove 8")
+(define-key *top-map* (kbd "s-S-9") "gmove 9")
+(define-key *top-map* (kbd "s-S-0") "gmove 10")