.s/.stumpwm.d/keyboard.lisp

27 lines
988 B
Common Lisp
Raw Normal View History

2022-10-26 00:13:43 -04:00
;; C-; as prefix key
(stumpwm:set-prefix-key (stumpwm:kbd "C-;"))
(define-key *top-map* (kbd "s-n") "pull-hidden-next")
(define-key *top-map* (kbd "s-p") "pull-hidden-previous")
(define-key *top-map* (kbd "s-h") "resize 40 0")
(define-key *top-map* (kbd "s-l") "resize -40 0")
(define-key *top-map* (kbd "s-j") "resize 0 40")
(define-key *top-map* (kbd "s-k") "resize 0 -40")
(define-key *top-map* (kbd "s-u") "exec pamixer -i 5")
(define-key *top-map* (kbd "s-d") "exec pamixer -d 5")
(define-key *top-map* (kbd "s-w") "exec xbacklight -inc 5")
(define-key *top-map* (kbd "s-s") "exec xbacklight -dec 5")
(define-key *top-map* (kbd "s-TAB") "fnext")
(define-key *top-map* (kbd "s-ISO_Left_Tab") "fprev")
(define-key *root-map* (kbd "C-t") "exec alacritty")
(define-key *root-map* (kbd "b") "exec firefox")
(when (is-work-machine)
(define-key *root-map* (kbd "C-i") "exec aggietimed --action clock-in")
(define-key *root-map* (kbd "C-o") "exec aggietimed --action clock-out"))