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

avy.el (avy--process): Make `overlay-fn' arg optional

Browse Source
This commit is contained in:
Oleh Krehel 2019-01-15 15:25:30 +01:00
parent 16482e0012
commit 909483e104
1 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
avy.el
View File

@ -787,9 +787,10 @@ Set `avy-style' according to COMMMAND as well."
#'avy--remove-leading-chars))))
(avy--done))))))
(defun avy--process (candidates overlay-fn)
(defun avy--process (candidates &optional overlay-fn)
"Select one of CANDIDATES using `avy-read'.
Use OVERLAY-FN to visualize the decision overlay."
(setq overlay-fn (or overlay-fn (avy--style-fn avy-style)))
(unless (and (consp (car candidates))
(windowp (cdar candidates)))
(setq candidates
@ -1155,6 +1156,7 @@ exist."
(post #'avy--overlay-post)
(de-bruijn #'avy--overlay-at-full)
(words #'avy--overlay-at-full)
(ignore #'ignore)
(t (error "Unexpected style %S" style))))
(defun avy--generic-jump (regex window-flip &optional beg end)
@ -1168,8 +1170,7 @@ BEG and END narrow the scope where candidates are searched."
(not avy-all-windows)
avy-all-windows)))
(avy--process
(avy--regex-candidates regex beg end)
(avy--style-fn style))))
(avy--regex-candidates regex beg end))))
;;* Commands
;;;###autoload
@ -1255,8 +1256,7 @@ When ARG is non-nil, do the opposite of `avy-all-windows'."
(avy--process
(avy--regex-candidates (if isearch-regexp
isearch-string
(regexp-quote isearch-string)))
(avy--style-fn avy-style))
(regexp-quote isearch-string))))
(isearch-done))))
;;;###autoload
@ -1413,7 +1413,7 @@ BEG and END narrow the scope where candidates are searched."
(not (get-char-property (point) 'invisible))
(push (cons (point) (selected-window)) window-cands)))
(setq candidates (nconc candidates window-cands))))))
(avy--process candidates (avy--style-fn avy-style)))))
(avy--process candidates))))
;;;###autoload
(defun avy-goto-subword-1 (char &optional arg)
@ -1566,13 +1566,14 @@ The window scope is determined by `avy-all-windows'.
When ARG is non-nil, do the opposite of `avy-all-windows'.
BEG and END narrow the scope where candidates are searched.
When BOTTOM-UP is non-nil, display avy candidates from top to bottom"
(let ((avy-action #'identity))
(let ((avy-action #'identity)
(avy-style (if avy-linum-mode
(progn
(message "Goto line:")
'ignore)
avy-style)))
(avy--process
(avy--line-cands arg beg end bottom-up)
(if avy-linum-mode
(progn (message "Goto line:")
'ignore)
(avy--style-fn avy-style)))))
(avy--line-cands arg beg end bottom-up))))
;;;###autoload
(defun avy-goto-line (&optional arg)
@ -1978,8 +1979,7 @@ The window scope is determined by `avy-all-windows' (ARG negates it)."
avy-all-windows)))
(avy-with avy-goto-char-timer
(avy--process
(avy--read-candidates)
(avy--style-fn avy-style)))))
(avy--read-candidates)))))
(defun avy-push-mark ()
"Store the current point and window."
@ -2047,8 +2047,7 @@ The window scope is determined by `avy-all-windows' (ARG negates it)."
(avy--process
(avy--read-candidates
(lambda (input)
(format "^\\*+ .*\\(%s\\)" input)))
(avy--style-fn avy-style))
(format "^\\*+ .*\\(%s\\)" input))))
(org-back-to-heading))))
(provide 'avy)