From d016c7bc91a8cf0b430f5069bfe0bbb8523a0052 Mon Sep 17 00:00:00 2001
From: Jeremy Dormitzer <jeremy.dormitzer@gmail.com>
Date: Sat, 4 Jan 2020 09:50:24 -0500
Subject: [PATCH] Add StumpWM command to remap caps to escape

---
 stumpwm/.stumpwm.d/init.lisp | 3 +++
 1 file changed, 3 insertions(+)

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")