Add StumpWM command to remap caps to escape

2020-01-04 09:50:24 -05:00 · 2020-01-04 09:50:24 -05:00 · d016c7bc91
commit d016c7bc91
parent 901b8a6f2e
1 changed files with 3 additions and 0 deletions
--- a/stumpwm/.stumpwm.d/init.lisp
+++ b/stumpwm/.stumpwm.d/init.lisp
@ -29,6 +29,9 @@
    (echo-string (current-screen)
 		 (format nil "Battery: ~A%" capacity))))

+(defcommand caps->escape () ()
+  (run-shell-command "setxkbmap -option caps:escape"))
+
 ;; Keybindings
 (define-key stumpwm:*root-map* (kbd "C-f") "firefox")
 (define-key stumpwm:*root-map* (kbd "d") "exec rofi -show run")