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

Clean up personal shortcut helper function

Browse Source 
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 Borchmann 2023-10-26 15:36:31 +02:00
parent aeff0883bb
commit 535bdda429
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
init.el
View File

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