[Misc] Fix candidate list of important documents for ‘db/helm-shortcuts’

Now actions work again.
2019-09-02 12:00:26 +02:00 · 2019-09-02 12:00:26 +02:00 · a33f14f216
parent e6a5a8d9cd
commit a33f14f216
1 changed files with 5 additions and 1 deletions
--- a/init.el
+++ b/init.el
@ -658,7 +658,11 @@ With given ARG, display files in `db/important-document-path’."
                    (let ((search-path (expand-file-name db/important-documents-path)))
                      (helm-make-source "Important files" 'helm-source-sync
                        :candidates (mapcar #'(lambda (file)
-                                                (string-remove-prefix search-path file))
+                                                ;; display only relative path,
+                                                ;; but keep absolute path for
+                                                ;; actions
+                                                (cons (string-remove-prefix search-path file)
+                                                      file))
                                            (directory-files-recursively search-path ""))
                        :action '(("Open externally" . db/system-open)
                                  ("Find file" . find-file))))))))