Add StumpWM command to remap caps to escape

This commit is contained in:
Jeremy Dormitzer 2020-01-04 09:50:24 -05:00
parent 901b8a6f2e
commit d016c7bc91

View File

@ -29,6 +29,9 @@
(echo-string (current-screen) (echo-string (current-screen)
(format nil "Battery: ~A%" capacity)))) (format nil "Battery: ~A%" capacity))))
(defcommand caps->escape () ()
(run-shell-command "setxkbmap -option caps:escape"))
;; Keybindings ;; Keybindings
(define-key stumpwm:*root-map* (kbd "C-f") "firefox") (define-key stumpwm:*root-map* (kbd "C-f") "firefox")
(define-key stumpwm:*root-map* (kbd "d") "exec rofi -show run") (define-key stumpwm:*root-map* (kbd "d") "exec rofi -show run")