basic keybinding override to use ring rotation

countvajhula · Jul 23, 2024 · 908c0ad · 908c0ad
1 parent 0359e90
commit 908c0ad
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/rigpa.el b/rigpa.el
@@ -256,7 +256,13 @@ and simply toggles whether the menu is visible or not."
                     (concat "evil-" state "-state-map")))))
       (if (member state chimera-insertion-states)
           (define-key keymap [escape] #'rigpa-enter-higher-level)
-        (define-key keymap [escape] #'rigpa-rotate-mode-ring-left)
+        (define-key keymap [escape] (lambda ()
+                                      (interactive)
+                                      (if (equal "lisp"
+                                                 (rigpa-editing-entity-name
+                                                  (rigpa--local-tower)))
+                                          (rigpa-rotate-mode-ring-left)
+                                        (rigpa-enter-higher-level))))
         (define-key keymap [return] #'rigpa--enter-lower-or-pass-through))))
   ;; exit visual state gracefully
   (define-key evil-visual-state-map [escape] (lambda ()