Move helm shortcut function to navigation section
Makes more sense to me.
This commit is contained in:
parent
d9eb84b0a3
commit
6c0d7661a8
85
init.el
85
init.el
|
@ -687,50 +687,6 @@
|
||||||
:pin "melpa-stable"
|
:pin "melpa-stable"
|
||||||
:commands (exec-path-from-shell-copy-envs))
|
:commands (exec-path-from-shell-copy-envs))
|
||||||
|
|
||||||
|
|
||||||
;; * Start Menu via Helm
|
|
||||||
|
|
||||||
(defun db/helm-shortcuts (arg)
|
|
||||||
"Open helm completion on common locations.
|
|
||||||
With given ARG, display files in `db/important-document-path’."
|
|
||||||
(interactive "p")
|
|
||||||
(require 'helm-bookmark)
|
|
||||||
(require 'helm-for-files) ; for helm-source-recentf
|
|
||||||
(helm :sources (list
|
|
||||||
(helm-make-source "Frequently Used" 'helm-source-sync
|
|
||||||
:candidates (mapcar #'(lambda (entry)
|
|
||||||
(cons (car entry)
|
|
||||||
(caddr entry)))
|
|
||||||
db/frequently-used-features)
|
|
||||||
:action '(("Open" . call-interactively))
|
|
||||||
:filtered-candidate-transformer #'helm-adaptive-sort)
|
|
||||||
|
|
||||||
;; taken from `helm-buffers-list'
|
|
||||||
(helm-make-source "Buffers" 'helm-source-buffers)
|
|
||||||
|
|
||||||
helm-source-recentf
|
|
||||||
|
|
||||||
;; if prefix arg is given, extract files from
|
|
||||||
;; `db/important-documents-path’ and list them as well
|
|
||||||
(when (and (= arg 4)
|
|
||||||
(file-directory-p db/important-documents-path))
|
|
||||||
(let ((search-path (expand-file-name db/important-documents-path)))
|
|
||||||
(helm-make-source "Important files" 'helm-source-sync
|
|
||||||
:candidates (mapcar #'(lambda (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)))))
|
|
||||||
|
|
||||||
helm-source-bookmarks
|
|
||||||
|
|
||||||
helm-source-buffer-not-found
|
|
||||||
helm-source-bookmark-set)))
|
|
||||||
|
|
||||||
|
|
||||||
;; * Org
|
;; * Org
|
||||||
|
|
||||||
|
@ -2108,6 +2064,47 @@ With given ARG, display files in `db/important-document-path’."
|
||||||
|
|
||||||
;; * Navigation
|
;; * Navigation
|
||||||
|
|
||||||
|
(defun db/helm-shortcuts (arg)
|
||||||
|
"Open helm completion on common locations.
|
||||||
|
With given ARG, display files in `db/important-document-path’."
|
||||||
|
(interactive "p")
|
||||||
|
(require 'helm-bookmark)
|
||||||
|
(require 'helm-for-files) ; for helm-source-recentf
|
||||||
|
(helm :sources (list
|
||||||
|
(helm-make-source "Frequently Used" 'helm-source-sync
|
||||||
|
:candidates (mapcar #'(lambda (entry)
|
||||||
|
(cons (car entry)
|
||||||
|
(caddr entry)))
|
||||||
|
db/frequently-used-features)
|
||||||
|
:action '(("Open" . call-interactively))
|
||||||
|
:filtered-candidate-transformer #'helm-adaptive-sort)
|
||||||
|
|
||||||
|
;; taken from `helm-buffers-list'
|
||||||
|
(helm-make-source "Buffers" 'helm-source-buffers)
|
||||||
|
|
||||||
|
helm-source-recentf
|
||||||
|
|
||||||
|
;; if prefix arg is given, extract files from
|
||||||
|
;; `db/important-documents-path’ and list them as well
|
||||||
|
(when (and (= arg 4)
|
||||||
|
(file-directory-p db/important-documents-path))
|
||||||
|
(let ((search-path (expand-file-name db/important-documents-path)))
|
||||||
|
(helm-make-source "Important files" 'helm-source-sync
|
||||||
|
:candidates (mapcar #'(lambda (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)))))
|
||||||
|
|
||||||
|
helm-source-bookmarks
|
||||||
|
|
||||||
|
helm-source-buffer-not-found
|
||||||
|
helm-source-bookmark-set)))
|
||||||
|
|
||||||
(use-package ace-window
|
(use-package ace-window
|
||||||
:ensure t
|
:ensure t
|
||||||
:commands (ace-window ace-window-display-mode)
|
:commands (ace-window ace-window-display-mode)
|
||||||
|
|
Loading…
Reference in New Issue