diff --git a/stumpwm/.stumpwm.d/init.lisp b/stumpwm/.stumpwm.d/init.lisp
index 3aae2ce..6d7323d 100644
--- 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")