ld/avy
1
0
Fork 0
mirror of https://github.com/abo-abo/avy.git synced 2025-10-13 21:33:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

avy.el (avy--process-1): Extract

Browse Source
This commit is contained in:
Oleh Krehel 2018-06-07 18:17:53 +02:00
parent 8606a8984b
commit 70e384aee5
1 changed files with 46 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
avy.el
View File

@ -725,27 +725,18 @@ Set `avy-style' according to COMMMAND as well."
(when (looking-at-p "\\b")
(ispell-word)))))))
(defun avy--process (candidates overlay-fn)
"Select one of CANDIDATES using `avy-read'.
Use OVERLAY-FN to visualize the decision overlay."
(unless (and (consp (car candidates))
(windowp (cdar candidates)))
(setq candidates
(mapcar (lambda (x) (cons x (selected-window)))
candidates)))
(let ((len (length candidates))
res)
(if (= len 0)
(progn
(message "zero candidates")
t)
(if (= len 1)
(setq res (car candidates))
(defun avy--process-1 (candidates overlay-fn)
(let ((len (length candidates)))
(cond ((= len 0)
nil)
((= len 1)
(car candidates))
(t
(unwind-protect
(progn
(avy--make-backgrounds
(avy-window-list))
(setq res (cond ((eq avy-style 'de-bruijn)
(cond ((eq avy-style 'de-bruijn)
(avy-read-de-bruijn
candidates avy-keys))
((eq avy-style 'words)
@ -754,9 +745,23 @@ Use OVERLAY-FN to visualize the decision overlay."
(t
(avy-read (avy-tree candidates avy-keys)
overlay-fn
#'avy--remove-leading-chars)))))
(avy--done)))
(cond ((eq res 'restart)
#'avy--remove-leading-chars))))
(avy--done))))))
(defun avy--process (candidates overlay-fn)
"Select one of CANDIDATES using `avy-read'.
Use OVERLAY-FN to visualize the decision overlay."
(unless (and (consp (car candidates))
(windowp (cdar candidates)))
(setq candidates
(mapcar (lambda (x) (cons x (selected-window)))
candidates)))
(let ((res (avy--process-1 candidates overlay-fn)))
(cond
((null res)
(message "zero candidates")
t)
((eq res 'restart)
(avy--process candidates overlay-fn))
;; ignore exit from `avy-handler-function'
((eq res 'exit))
@ -774,7 +779,7 @@ Use OVERLAY-FN to visualize the decision overlay."
(funcall (or avy-action 'avy-action-goto)
(if (consp res)
(car res)
res)))))))
res))))))
(defvar avy--overlays-back nil
"Hold overlays for when `avy-background' is t.")