Better keybindings for quitting StumpWM
This commit is contained in:
parent
ac85f3a3cf
commit
d6c1ae9a20
@ -53,5 +53,6 @@
|
||||
|
||||
;;; globalwindow
|
||||
(load-module "globalwindows")
|
||||
(load-module "beckon")
|
||||
|
||||
(setf *startup-message* "StumpWM is ready!")
|
||||
|
@ -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
|
||||
|
Reference in New Issue
Block a user