dude i cannot believe i let this project destroy me LOL

This commit is contained in:
Madeleine Sydney
2025-01-11 16:16:40 -07:00
parent 5bacabffcf
commit a33a1bf854

View File

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