Add ace-link functions for dired

1 files changed, 23 insertions, 0 deletions

diff --git a/lisp/init-ace.el b/lisp/init-ace.el
index c33a8b2..074df45 100644
--- a/lisp/init-ace.el
+++ b/lisp/init-ace.el
@@ -11,6 +11,29 @@
 (after 'org
  (define-key org-mode-map (kbd "C-c m o") 'ace-link-org))
 
+(defun km/ace-link-dired ()
+  "Ace jump to files in dired buffers."
+  (interactive)
+  (ali-generic
+      (km/ali--dired-collect-references)
+    (org-open-file (dired-get-filename))))
+
+(defun km/ali--dired-collect-references ()
+  (let ((end (window-end))
+        points)
+    (save-excursion
+      (goto-char (window-start))
+      (while (< (point) end)
+        (-when-let (pos (dired-next-line 1))
+          (push pos points)))
+      (nreverse points))))
+
+(after 'dired
+  ;; This overrides the binding for `dired-find-file-other-window', which
+  ;; is rebound to 'r'.
+  (define-key dired-mode-map "o" 'km/ace-link-dired)
+  (define-key dired-mode-map "r" 'dired-find-file-other-window))
+
 (define-key window-map "a" 'ace-window)
 (setq aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l)
       aw-scope 'global)