dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[Utils] Improve definitions of custom helm sources 

Instead of giving a list, we now create the sources directly.  This gives us the
possibility to configure certain aspects of the sources like matching behavior
and highlighting.  Now we are much closer to the standard behavior of helm than
before.
This commit is contained in:
Daniel - 2019-08-30 19:47:25 +02:00
parent d28e51f5e6
commit 43ece81b2d
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
site-lisp/db-utils.el
View File

@ -353,10 +353,10 @@ output, separated by \\n, when called with
;;; helm configuration
(defvar db/helm-source-frequently-used-features
'((name . "Frequently Used")
(candidates . db/frequently-used-features)
(action . (("Open" . funcall)))
(filtered-candidate-transformer . helm-adaptive-sort))
(helm-make-source "Frequently Used" 'helm-source-sync
:candidates #'db/frequently-used-features
:action '(("Open" . funcall))
:filtered-candidate-transformer #'helm-adaptive-sort)
"Helm source for `db/helm-frequently-used-features’.")
(defun db/important-documents ()
@ -399,10 +399,10 @@ path."
(start-process "" nil "xdg-open" path))))
(defvar db/helm-source-important-documents
'((name . "Important files")
(candidates . db/important-documents)
(action . (("Open externally" . db/system-open)
("Find file" . find-file))))
(helm-make-source "Important files" 'helm-source-sync
:candidates #'db/important-documents
:action '(("Open externally" . db/system-open)
("Find file" . find-file)))
"Helm source for important documents.")
(defun db/helm-shortcuts (arg)