Browse Source

Better keybindings for quitting StumpWM

master
Lucien Cartier-Tilet 10 months ago
parent
commit
d6c1ae9a20
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
  1. 1
      init.lisp
  2. 10
      keybindings.lisp

1
init.lisp

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

10
keybindings.lisp

@ -105,10 +105,20 @@ @@ -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