summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/init-ace.el30
1 files changed, 16 insertions, 14 deletions
diff --git a/lisp/init-ace.el b/lisp/init-ace.el
index af1143c..c06cec1 100644
--- a/lisp/init-ace.el
+++ b/lisp/init-ace.el
@@ -10,13 +10,14 @@
(defun km/ace-link-dired ()
"Ace jump to files in dired buffers."
(interactive)
- (let ((res (avy--with-avy-keys km/ace-link-dired
- (avy--process
- (km/ali--dired-collect-references)
- #'avy--overlay-pre))))
- (when res
- (goto-char res)
- (org-open-file (dired-get-filename)))))
+ (avy-with km/ace-link-dired
+ (setq avy-action
+ (lambda (pt)
+ (goto-char pt)
+ (org-open-file (dired-get-filename))))
+ (avy--process
+ (km/ali--dired-collect-references)
+ #'avy--overlay-post)))
(defun km/ali--dired-collect-references ()
(let ((end (window-end))
@@ -37,13 +38,14 @@ property."
(interactive)
(when (eq major-mode 'gnus-summary-mode)
(gnus-summary-widget-forward 1))
- (let ((res (avy--with-avy-keys km/ace-link-widget
- (avy--process
- (km/ali--widget-collect-references)
- #'avy--overlay-post))))
- (when res
- (goto-char (1+ res))
- (widget-button-press (point)))))
+ (avy-with km/ace-link-widget
+ (setq avy-action
+ (lambda (pt)
+ (goto-char (1+ pt))
+ (widget-button-press (point))))
+ (avy--process
+ (km/ali--widget-collect-references)
+ #'avy--overlay-post)))
(defun km/ali--widget-collect-references ()
"Collect the positions of visible widgets in buffer."