Clean up personal shortcut helper function

Get rid of some helm sources I usually don't use, to speed up function
execution.  Indeed, on Windows 11, if this function takes too long, the Emacs
frame will loose its focus, which is super annoying!
This commit is contained in:
Daniel - 2023-10-26 15:36:31 +02:00
parent aeff0883bb
commit 535bdda429
Signed by: dbo
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 4 additions and 9 deletions

13
init.el
View File

@ -2127,19 +2127,17 @@ eventuelly be set to nil, however)."
:action '(("Open" . call-interactively))
:filtered-candidate-transformer #'helm-adaptive-sort)
;; taken from `helm-buffers-list'
;; Taken from `helm-buffers-list'
(helm-make-source "Buffers" 'helm-source-buffers)
helm-source-recentf
;; if prefix arg is given, extract files from
;; If no prefix arg is given, extract files from
;; `db/important-documents-path and list them as well
(when (and (not arg)
(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,
;; Display only relative path,
;; but keep absolute path for
;; actions
(cons (string-remove-prefix search-path file)
@ -2148,10 +2146,7 @@ eventuelly be set to nil, however)."
:action '(("Open externally" . db/system-open)
("Find file" . find-file)))))
helm-source-bookmarks
helm-source-buffer-not-found
helm-source-bookmark-set)))
helm-source-bookmarks)))
(use-package ace-window
:ensure t