From 2867c879b6623377bfbd7c29bac192c94909c3d0 Mon Sep 17 00:00:00 2001 From: Jeremy Dormitzer Date: Sat, 7 Dec 2019 09:49:07 -0500 Subject: [PATCH] Improve lock screen and lock command keybinding --- stumpwm/.stumpwm.d/init.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/stumpwm/.stumpwm.d/init.lisp b/stumpwm/.stumpwm.d/init.lisp index af7407b..015f27f 100644 --- a/stumpwm/.stumpwm.d/init.lisp +++ b/stumpwm/.stumpwm.d/init.lisp @@ -12,7 +12,12 @@ (run-or-raise "firefox" '(:class "firefox"))) (defcommand lock () () - (run-shell-command "i3lockmore --image-fill ~/Pictures/space-background.png -n")) + (run-shell-command + (concatenate 'string + "i3lockmore " + "--image-fill ~/Pictures/space-background.png " + "-n " + "--lock-icon ~/Pictures/lock.png"))) ;; Keybindings (define-key stumpwm:*root-map* (kbd "C-f") "firefox") @@ -20,6 +25,7 @@ (define-key stumpwm:*root-map* (kbd "w") "exec rofi -show window") (define-key stumpwm:*root-map* (kbd "P") "exec passmenu") (define-key stumpwm:*root-map* (kbd "N") "exec networkmanager_dmenu") +(define-key stumpwm:*root-map* (kbd "L") "lock") (define-key *top-map* (kbd "XF86MonBrightnessDown") "exec light -U 5") (define-key *top-map* (kbd "XF86MonBrightnessUp") "exec light -A 5") (define-key *top-map* (kbd "XF86AudioRaiseVolume") "exec pavolume volup")