StumpWM: power state commands: system- → systemctl

This commit is contained in:
Marcel Kapfer 2019-04-06 07:48:33 +02:00
parent 840854bd84
commit 1e67608d3e
Signed by: mmk2410
GPG key ID: CADE6F0C09F21B09

View file

@ -152,10 +152,10 @@
;; computer power state keys ;; computer power state keys
(defvar *powerstate-frame-bindings* (defvar *powerstate-frame-bindings*
(let ((m (make-sparse-keymap))) (let ((m (make-sparse-keymap)))
(define-key m (kbd "M-s") "system-suspend") (define-key m (kbd "M-s") "systemctl suspend")
(define-key m (kbd "M-p") "system-poweroff") (define-key m (kbd "M-p") "systemctl poweroff")
(define-key m (kbd "M-r") "system-restart") (define-key m (kbd "M-r") "systemctl reboot")
(define-key m (kbd "M-h") "system-hibernate") (define-key m (kbd "M-h") "systemctl hibernate")
m)) m))
(define-key *root-map* (kbd "C-F12") '*powerstate-frame-bindings*) (define-key *root-map* (kbd "C-F12") '*powerstate-frame-bindings*)