From d6c1ae9a20433b1e838864e29f832161bd856054 Mon Sep 17 00:00:00 2001
From: Lucien Cartier-Tilet <lucien@phundrak.com>
Date: Thu, 29 Jul 2021 22:42:19 +0200
Subject: [PATCH] Better keybindings for quitting StumpWM

---
 init.lisp        |  1 +
 keybindings.lisp | 10 ++++++++++
 2 files changed, 11 insertions(+)

diff --git a/init.lisp b/init.lisp
index 90b2ea9..05166e1 100644
--- a/init.lisp
+++ b/init.lisp
@@ -53,5 +53,6 @@
 
 ;;; globalwindow
 (load-module "globalwindows")
+(load-module "beckon")
 
 (setf *startup-message* "StumpWM is ready!")
diff --git a/keybindings.lisp b/keybindings.lisp
index 5622d4f..14753aa 100644
--- a/keybindings.lisp
+++ b/keybindings.lisp
@@ -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