msyds/evil-leap
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

dude i cannot believe i let this project destroy me LOL

Browse Source
This commit is contained in:
Madeleine Sydney
2025-01-11 16:16:40 -07:00
committed by Madeleine Sydney Ślaga
parent 5bacabffcf
commit a33a1bf854
1 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
evil-leap.el
View File

@@ -244,7 +244,7 @@ associated labels."
((eq k 'auto-jump) ((eq k 'auto-jump)
nil) nil)
;; Label every further ;; Label every further overlay.
((eq k ?\s) ((eq k ?\s)
(evil-leap--update-further-overlays! v)) (evil-leap--update-further-overlays! v))
@@ -296,7 +296,6 @@ associated labels."
;; (with-output-to-temp-buffer (format "*select - %s*" (current-time)) ;; (with-output-to-temp-buffer (format "*select - %s*" (current-time))
;; (pp labeled-targets)) ;; (pp labeled-targets))
(evil-leap--try-auto-jump labeled-targets) (evil-leap--try-auto-jump labeled-targets)
;; TODO: Overlays should be updated here.
(evil-leap--update-target-overlays! labeled-targets) (evil-leap--update-target-overlays! labeled-targets)
(let ((given-key (evil-read-key))) (let ((given-key (evil-read-key)))
(if-let ((selected-target (ht-get labeled-targets given-key))) (if-let ((selected-target (ht-get labeled-targets given-key)))
@@ -343,6 +342,11 @@ with key SECOND-CHAR."
labeled-targets))) labeled-targets)))
branches)) branches))
(defun evil-leap--show-potential-targets (branches)
(ht-each (lambda (_key labeled-targets)
(evil-leap--update-target-overlays! labeled-targets))
branches))
; Gathering ; Gathering
@@ -415,7 +419,8 @@ Keyword arguments
(let* ((first-char (evil-read-key)) (let* ((first-char (evil-read-key))
(branches (evil-leap--gather-branches first-char (branches (evil-leap--gather-branches first-char
:backward-p backward-p)) :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)) (second-char (evil-read-key))
(_ (evil-leap--unlabel-other-branches second-char branches)) (_ (evil-leap--unlabel-other-branches second-char branches))
(labeled-targets (ht-get branches second-char))) (labeled-targets (ht-get branches second-char)))
@@ -445,6 +450,11 @@ Keyword arguments
;; :mn "s" #'evil-leap-forward ;; :mn "s" #'evil-leap-forward
;; :mn "S" #'evil-leap-backward) ;; :mn "S" #'evil-leap-backward)
(general-define-key
:states '(motion normal)
"s" #'evil-leap-forward
"S" #'evil-leap-backward)
(provide 'evil-leap) (provide 'evil-leap)