From 535bdda429dd4340ca9e06ab5ec9949eeca0e545 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Thu, 26 Oct 2023 15:36:31 +0200 Subject: [PATCH] Clean up personal shortcut helper function MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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! --- init.el | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/init.el b/init.el index c998ef2..b480c93 100644 --- a/init.el +++ b/init.el @@ -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