dude i cannot believe i let this project destroy me LOL
This commit is contained in:
16
evil-leap.el
16
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)
|
||||
|
||||
Reference in New Issue
Block a user