1 files changed, 40 insertions, 0 deletions
diff --git a/keybinds.lisp b/keybinds.lisp
new file mode 100644
index 0000000..d90efca
--- /dev/null
+++ b/keybinds.lisp
@@ -0,0 +1,40 @@
+(defpackage #:config.keybinds
+            (:use #:cl #:config #:stumpwm))
+(in-package #:config.keybinds)
+
+(load "~/.stumpwm.d/commands.lisp")
+
+(set-prefix-key (kbd "C-z"))
+
+(define-key *top-map* (kbd "XF86AudioRaiseVolume") "exec wpctl set-volume @DEFAULT_AUDIO_SINK@ 5%+")
+(define-key *top-map* (kbd "XF86AudioLowerVolume") "exec wpctl set-volume @DEFAULT_AUDIO_SINK@ 5%-")
+(define-key *top-map* (kbd "XF86AudioMute") "exec wpctl set-mute @DEFAULT_AUDIO_SINK@ toggle")
+(define-key *top-map* (kbd "XF86AudioNext") "exec mpc next")
+(define-key *top-map* (kbd "XF86AudioPrev") "exec mpc prev")
+(define-key *top-map* (kbd "XF86AudioPlay") "exec mpc toggle")
+
+(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") "exchange-direction left")
+(define-key *top-map* (kbd "s-J") "exchange-direction down")
+(define-key *top-map* (kbd "s-K") "exchange-direction up")
+(define-key *top-map* (kbd "s-L") "exchange-direction right")
+(define-key *top-map* (kbd "s-C") "delete")
+
+(define-key *top-map* (kbd "s-Return") "exec urxvtc")
+(define-key *top-map* (kbd "s-z") "exec boomer")
+(define-key *top-map* (kbd "s-Print") "exec scrot -s -e 'mv $f ~/pics/'")
+(define-key *top-map* (kbd "Print") "exec scrot -u -e 'mv $f ~/pics/'")
+(define-key *top-map* (kbd "s-b") "exec bm -o")
+(define-key *top-map* (kbd "s-B") "exec bm -y")
+(define-key *root-map* (kbd "C-f") "exec firefox -P default-release")
+(define-key *root-map* (kbd "C-F") "exec firefox -P less-strict")
+(define-key *root-map* (kbd "C-e") "exec emacsclient -c -a ''")
+(define-key *root-map* (kbd "C-m") "exec mpdmenu")
+(define-key *root-map* (kbd "C-.") "exec dmenu_run -m 0 -fn 'xft:Hack Nerd Font:size=11' -nb '#222222' -nf '#bbbbbb' -sb '#005577' -sf '#eeeeee'")
+
+(define-key *root-map* (kbd "C-v") "get-current-volume")
+(define-key *root-map* (kbd "C-t") "get-current-temp")
+(define-key *root-map* (kbd "C-a") "print-calendar")