[Utils] Only show important document with prefix arg
This commit is contained in:
parent
f77e1133a3
commit
4bae941b44
|
@ -333,14 +333,15 @@ path."
|
||||||
("Find file" . find-file))))
|
("Find file" . find-file))))
|
||||||
"Helm source for important documents.")
|
"Helm source for important documents.")
|
||||||
|
|
||||||
(defun db/helm-shortcuts ()
|
(defun db/helm-shortcuts (arg)
|
||||||
"Open helm completion on common locations."
|
"Open helm completion on common locations."
|
||||||
(interactive)
|
(interactive "p")
|
||||||
(require 'helm-files)
|
(require 'helm-files)
|
||||||
(require 'helm-bookmark)
|
(require 'helm-bookmark)
|
||||||
(helm :sources `(db/helm-source-frequently-used-features
|
(helm :sources `(db/helm-source-frequently-used-features
|
||||||
db/helm-source-frequently-visited-locations
|
db/helm-source-frequently-visited-locations
|
||||||
,(when (file-directory-p db/important-documents-path)
|
,(when (and (= arg 4)
|
||||||
|
(file-directory-p db/important-documents-path))
|
||||||
'db/helm-source-important-documents)
|
'db/helm-source-important-documents)
|
||||||
helm-source-bookmarks
|
helm-source-bookmarks
|
||||||
helm-source-bookmark-set)))
|
helm-source-bookmark-set)))
|
||||||
|
|
Loading…
Reference in New Issue