aboutsummaryrefslogtreecommitdiff
path: root/Emacs/.config/emacs/elisp
diff options
context:
space:
mode:
authorAryadev Chavali <aryadev@aryadevchavali.com>2024-06-13 14:16:44 +0100
committerAryadev Chavali <aryadev@aryadevchavali.com>2024-06-13 14:16:44 +0100
commitadcd05f2b7e25d0a087e08db86d54235e27596a6 (patch)
treef4de09010f09199a196505a0b5556d34b812e5f7 /Emacs/.config/emacs/elisp
parent991104c9a35c9034a90e21b51302a1b8cff9793d (diff)
downloaddotfiles-adcd05f2b7e25d0a087e08db86d54235e27596a6.tar.gz
dotfiles-adcd05f2b7e25d0a087e08db86d54235e27596a6.tar.bz2
dotfiles-adcd05f2b7e25d0a087e08db86d54235e27596a6.zip
(Emacs/elisp)~search/find-file can now open swiper in new buffer
If some universal argument is given to +search/find-file then after opening the file it'll open swiper. This reduces keystrokes and makes it easier to get to somewhere.
Diffstat (limited to 'Emacs/.config/emacs/elisp')
-rw-r--r--Emacs/.config/emacs/elisp/search.el15
1 files changed, 8 insertions, 7 deletions
diff --git a/Emacs/.config/emacs/elisp/search.el b/Emacs/.config/emacs/elisp/search.el
index 1184c20..6336540 100644
--- a/Emacs/.config/emacs/elisp/search.el
+++ b/Emacs/.config/emacs/elisp/search.el
@@ -24,6 +24,8 @@
;;; Code:
+(autoload #'swiper "swiper")
+
(defvar +search/directories
'("~/Dotfiles/" "~/Text/" "~/.local/src/dwm/" "~/.local/src/dwmblocks/" "~/.local/src/st/" "~/Website/")
"List of directories to get candidates from.")
@@ -46,13 +48,12 @@ Returns a list of files with the directory preprended to them."
(+search/get-candidates (expand-file-name directory)))
+search/directories)))
-(defun +search/find-file ()
- (interactive)
- (find-file
- (completing-read "Find file: "
- (+search/get-all-candidates)
- nil
- t)))
+(defun +search/find-file (&optional arg)
+ (interactive "P")
+ (let ((file-name (completing-read "Find file: " (+search/get-all-candidates) nil t)))
+ (with-current-buffer (find-file file-name)
+ (if arg
+ (swiper)))))
(defun +search/search-all ()
(interactive)