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

Better keybindings for quitting StumpWM

This commit is contained in:
Lucien Cartier-Tilet 2021-07-29 22:42:19 +02:00
parent ac85f3a3cf
commit d6c1ae9a20
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
init.lisp
View File

@ -53,5 +53,6 @@
;;; globalwindow
(load-module "globalwindows")
(load-module "beckon")
(setf *startup-message* "StumpWM is ready!")

10
keybindings.lisp
View File

@ -105,10 +105,20 @@
(define-key *top-map* (kbd "s-RET") "exec kitty")
(define-key *top-map* (kbd "s-a") '*my-applications-keymap*)
(defvar *my-end-session-keymap*
(let ((m (make-sparse-keymap)))
(define-key m (kbd "q") "end-session")
(define-key m (kbd "l") "logout")
(define-key m (kbd "s") "suspend-computer")
(define-key m (kbd "S") "shutdown-computer")
(define-key m (kbd "r") "restart-computer")
m))
(define-key *root-map* (kbd "SPC") "exec kitty")
(define-key *root-map* (kbd "l") "exec plock")
(define-key *root-map* (kbd "r") "reload")
(define-key *root-map* (kbd "w") '*my-frames-management-keymap*)
(define-key *root-map* (kbd "q") '*my-end-session-keymap*)
(define-interactive-keymap (iresize tile-group) (:on-enter #'setup-iresize
:on-exit #'resize-unhide