[Helm] Allow specifying separate handler for helm shortcuts

2017-10-30 20:03:42 +01:00 · 2017-10-30 20:03:42 +01:00 · 48c2acde0e
commit 48c2acde0e
parent 9278973a62
1 changed files with 4 additions and 1 deletions
--- a/site-lisp/db-utils.el
+++ b/site-lisp/db-utils.el
@ -287,7 +287,10 @@ If FILE is not given, prompt for one."
 (defvar db/helm-source-frequently-visited-locations
  '((name . "Locations")
    (candidates . db/helm-frequently-visited-locations)
-    (action . (("Open" . find-file)))
+    (action . (("Open" . (lambda (entry)
+                           (if (consp entry)
+                               (funcall (car entry) (cdr entry))
+                             (find-file entry))))))
    (filtered-candidate-transformer . helm-adaptive-sort)))

 (defcustom db/important-documents-path "~/Documents/library/"