From 908c0ade9e4e6b2cdd8d02d772f2225b87a884df Mon Sep 17 00:00:00 2001 From: Siddhartha Date: Wed, 3 Apr 2024 17:41:45 -0700 Subject: [PATCH] basic keybinding override to use ring rotation --- rigpa.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/rigpa.el b/rigpa.el index 106c456..bdb7b95 100644 --- 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 ()