phundrak/.stumpwm.d
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Better keybinds, reorganizing some other keybinds

Browse Source
This commit is contained in:
Lucien Cartier-Tilet 2021-07-29 19:36:36 +02:00
parent c6f911b5a4
commit 3e3da97ba5
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 37 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
keybindings.lisp
View File

@ -53,29 +53,11 @@
m)) m))
(defvar *my-applications-keymap*
(let ((m (make-sparse-keymap)))
(define-key m (kbd "b") (concat "exec " browser))
(define-key m (kbd "d") "exec lightcord")
(define-key m (kbd "e") (concat "exec " editor))
(define-key m (kbd "E") "exec emacs")
(define-key m (kbd "g") "exec gimp")
m))
(defvar *my-screenshot-keymap*
(let ((m (make-sparse-keymap)))
(define-key m (kbd "d") "exec scrot -d 3 -e 'mv $f ~/Pictures/Screenshots'")
(define-key m (kbd "s") "exec scrot -e 'mv $f ~/Pictures/Screenshots'")
(define-key m (kbd "S") "exec scrot -s -e 'mv $f ~/Pictures/Screenshots'")
(define-key m (kbd "g") "exec scrot -e 'gimp $f; mv $f ~/Pictures/Screenshots'")
m))
(defvar *my-rofi-keymap* (defvar *my-rofi-keymap*
(let ((m (make-sparse-keymap))) (let ((m (make-sparse-keymap)))
(define-key m (kbd "a") "exec awiki") (define-key m (kbd "a") "exec awiki")
(define-key m (kbd "r") "exec rofi --combi-modi drun,window --show combi") (define-key m (kbd "r") "exec rofi -combi-modi drun,window -show combi")
(define-key m (kbd "s") "exec rofi --show ssh") (define-key m (kbd "s") "exec rofi -show ssh")
(define-key m (kbd "p") "exec rofi-pass -t") (define-key m (kbd "p") "exec rofi-pass -t")
(define-key m (kbd "P") "exec rofi-pass") (define-key m (kbd "P") "exec rofi-pass")
(define-key m (kbd "e") "exec rofi-emoji") (define-key m (kbd "e") "exec rofi-emoji")
@ -86,19 +68,47 @@
(define-key m (kbd "Y") "exec rofi-ytdl") (define-key m (kbd "Y") "exec rofi-ytdl")
m)) m))
(defvar *my-applications-keymap*
(let ((m (make-sparse-keymap)))
(define-key m (kbd "b") (concat "exec " browser))
(define-key m (kbd "d") "exec lightcord")
(define-key m (kbd "e") (concat "exec " editor))
(define-key m (kbd "E") "exec emacs")
(define-key m (kbd "g") "exec gimp")
(define-key m (kbd "n") "exec nemo")
(define-key m (kbd "r") '*my-rofi-keymap*)
(define-key m (kbd "s") '*my-screenshot-keymap*)
m))
(defvar *my-screenshot-keymap*
(let ((m (make-sparse-keymap)))
(define-key m (kbd "d") "exec scrot -d 3 -e 'mv $f ~/Pictures/Screenshots'")
(define-key m (kbd "s") "exec scrot -e 'mv $f ~/Pictures/Screenshots'")
(define-key m (kbd "S") "exec scrot -s -e 'mv $f ~/Pictures/Screenshots'")
(define-key m (kbd "g") "exec scrot -e 'gimp $f; mv $f ~/Pictures/Screenshots'")
m))
(define-key *top-map* (kbd "s-c") "move-focus left")
(define-key *top-map* (kbd "s-t") "move-focus down")
(define-key *top-map* (kbd "s-s") "move-focus up")
(define-key *top-map* (kbd "s-r") "move-focus right")
(define-key *top-map* (kbd "s-C") "move-window left")
(define-key *top-map* (kbd "s-T") "move-window down")
(define-key *top-map* (kbd "s-S") "move-window up")
(define-key *top-map* (kbd "s-R") "move-window right")
(define-key *top-map* (kbd "s-M-c") "exchange-direction left")
(define-key *top-map* (kbd "s-M-t") "exchange-direction down")
(define-key *top-map* (kbd "s-M-s") "exchange-direction up")
(define-key *top-map* (kbd "s-M-r") "exchange-direction right")
(define-key *top-map* (kbd "Print") '*my-screenshot-keymap*)
(define-key *top-map* (kbd "s-RET") "exec kitty") (define-key *top-map* (kbd "s-RET") "exec kitty")
(define-key *top-map* (kbd "s-a") '*my-applications-keymap*) (define-key *top-map* (kbd "s-a") '*my-applications-keymap*)
(define-key *top-map* (kbd "s-r") '*my-rofi-keymap*)
(define-key *top-map* (kbd "s-R") "reload")
(define-key *top-map* (kbd "s-s") '*my-screenshot-keymap*)
(define-key *root-map* (kbd "SPC") "exec kitty") (define-key *root-map* (kbd "SPC") "exec kitty")
(define-key *root-map* (kbd "b") "exec firefox") (define-key *root-map* (kbd "b") "exec firefox")
(define-key *root-map* (kbd "e") "exec emacsclient -c")
(define-key *root-map* (kbd "C-e") "exec emacs")
(define-key *root-map* (kbd "g") "exec gimp")
(define-key *root-map* (kbd "l") "exec plock") (define-key *root-map* (kbd "l") "exec plock")
(define-key *root-map* (kbd "n") "exec nemo") (define-key *root-map* (kbd "r") "reload")
(define-key *root-map* (kbd "w") '*my-frames-management-keymap*) (define-key *root-map* (kbd "w") '*my-frames-management-keymap*)
(define-interactive-keymap (iresize tile-group) (:on-enter #'setup-iresize (define-interactive-keymap (iresize tile-group) (:on-enter #'setup-iresize