[Helm] Unify naming of sources
This commit is contained in:
parent
0803cd9abb
commit
cd8e7ccd74
|
@ -265,7 +265,7 @@ If FILE is not given, prompt for one."
|
||||||
:group 'personal-settings
|
:group 'personal-settings
|
||||||
:type '(alist :key-type string :value-type sexp))
|
:type '(alist :key-type string :value-type sexp))
|
||||||
|
|
||||||
(defvar db/helm-frequently-used-features-source
|
(defvar db/helm-source-frequently-used-features
|
||||||
'((name . "Frequently Used")
|
'((name . "Frequently Used")
|
||||||
(candidates . db/helm-frequently-used-features)
|
(candidates . db/helm-frequently-used-features)
|
||||||
(action . (("Open" . funcall)))
|
(action . (("Open" . funcall)))
|
||||||
|
@ -284,7 +284,7 @@ If FILE is not given, prompt for one."
|
||||||
:group 'personal-settings
|
:group 'personal-settings
|
||||||
:type '(alist :key-type string :value-type sexp))
|
:type '(alist :key-type string :value-type sexp))
|
||||||
|
|
||||||
(defvar db/helm-frequently-visited-locations-source
|
(defvar db/helm-source-frequently-visited-locations
|
||||||
'((name . "Locations")
|
'((name . "Locations")
|
||||||
(candidates . db/helm-frequently-visited-locations)
|
(candidates . db/helm-frequently-visited-locations)
|
||||||
(action . (("Open" . find-file)))
|
(action . (("Open" . find-file)))
|
||||||
|
@ -330,24 +330,22 @@ path."
|
||||||
((windows-nt cygwin) (w32-shell-execute "open" path))
|
((windows-nt cygwin) (w32-shell-execute "open" path))
|
||||||
((gnu/linux) (start-process "" nil "xdg-open" path))))
|
((gnu/linux) (start-process "" nil "xdg-open" path))))
|
||||||
|
|
||||||
(defcustom db/helm-important-documents-source
|
(defvar db/helm-source-important-documents
|
||||||
`((name . "Important files")
|
'((name . "Important files")
|
||||||
(candidates . db/important-documents)
|
(candidates . db/important-documents)
|
||||||
(action . (("Open externally" . db/system-open)
|
(action . (("Open externally" . db/system-open)
|
||||||
("Find file" . find-file))))
|
("Find file" . find-file))))
|
||||||
"Helm source for important documents."
|
"Helm source for important documents.")
|
||||||
:group 'personal-settings
|
|
||||||
:type '(alist :key-type symbol :value-type sexp))
|
|
||||||
|
|
||||||
(defun db/helm-shortcuts ()
|
(defun db/helm-shortcuts ()
|
||||||
"Open helm completion on common locations."
|
"Open helm completion on common locations."
|
||||||
(interactive)
|
(interactive)
|
||||||
(require 'helm-files)
|
(require 'helm-files)
|
||||||
(require 'helm-bookmark)
|
(require 'helm-bookmark)
|
||||||
(helm :sources `(db/helm-frequently-used-features-source
|
(helm :sources `(db/helm-source-frequently-used-features
|
||||||
db/helm-frequently-visited-locations-source
|
db/helm-source-frequently-visited-locations
|
||||||
,(when (file-directory-p db/important-documents-path)
|
,(when (file-directory-p db/important-documents-path)
|
||||||
'db/helm-important-documents-source)
|
'db/helm-source-important-documents)
|
||||||
helm-source-bookmarks
|
helm-source-bookmarks
|
||||||
helm-source-bookmark-set)))
|
helm-source-bookmark-set)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue