From a33a1bf854f01e2935ef409c27aa23a722fb9e9f Mon Sep 17 00:00:00 2001 From: Madeleine Sydney Date: Sat, 11 Jan 2025 16:16:40 -0700 Subject: [PATCH] dude i cannot believe i let this project destroy me LOL --- evil-leap.el | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/evil-leap.el b/evil-leap.el index 2280496..d4407ca 100644 --- a/evil-leap.el +++ b/evil-leap.el @@ -244,7 +244,7 @@ associated labels." ((eq k 'auto-jump) nil) - ;; Label every further + ;; Label every further overlay. ((eq k ?\s) (evil-leap--update-further-overlays! v)) @@ -296,7 +296,6 @@ associated labels." ;; (with-output-to-temp-buffer (format "*select - %s*" (current-time)) ;; (pp labeled-targets)) (evil-leap--try-auto-jump labeled-targets) - ;; TODO: Overlays should be updated here. (evil-leap--update-target-overlays! labeled-targets) (let ((given-key (evil-read-key))) (if-let ((selected-target (ht-get labeled-targets given-key))) @@ -343,6 +342,11 @@ with key SECOND-CHAR." labeled-targets))) branches)) +(defun evil-leap--show-potential-targets (branches) + (ht-each (lambda (_key labeled-targets) + (evil-leap--update-target-overlays! labeled-targets)) + branches)) + ; Gathering @@ -415,7 +419,8 @@ Keyword arguments (let* ((first-char (evil-read-key)) (branches (evil-leap--gather-branches first-char :backward-p backward-p)) - (_ (evil-leap--label-branch-targets! branches)) + (_ (progn (evil-leap--label-branch-targets! branches) + (evil-leap--show-potential-targets branches))) (second-char (evil-read-key)) (_ (evil-leap--unlabel-other-branches second-char branches)) (labeled-targets (ht-get branches second-char))) @@ -445,6 +450,11 @@ Keyword arguments ;; :mn "s" #'evil-leap-forward ;; :mn "S" #'evil-leap-backward) +(general-define-key + :states '(motion normal) + "s" #'evil-leap-forward + "S" #'evil-leap-backward) + (provide 'evil-leap)