keybinds.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
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")