diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2024-06-14 02:38:58 +0100 |
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2024-06-14 02:38:58 +0100 |
| commit | 3ef303fb670303571999aa5b9765ea91ad02ce56 (patch) | |
| tree | 3dca0c54eb955c65b8d08f8435da00c31c050dab /Emacs/.config/emacs/elisp/search.el | |
| parent | e546a66da017494e460c74a9c7fc750409749851 (diff) | |
| download | dotfiles-3ef303fb670303571999aa5b9765ea91ad02ce56.tar.gz dotfiles-3ef303fb670303571999aa5b9765ea91ad02ce56.tar.bz2 dotfiles-3ef303fb670303571999aa5b9765ea91ad02ce56.zip | |
(Emacs/elisp)~cl-reduce -> string-join
Diffstat (limited to 'Emacs/.config/emacs/elisp/search.el')
| -rw-r--r-- | Emacs/.config/emacs/elisp/search.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/Emacs/.config/emacs/elisp/search.el b/Emacs/.config/emacs/elisp/search.el index 344d92f..922d9a6 100644 --- a/Emacs/.config/emacs/elisp/search.el +++ b/Emacs/.config/emacs/elisp/search.el @@ -42,8 +42,7 @@ Returns a list of files with the directory preprended to them." names))) (defun +search/get-all-candidates () - (cl-reduce - #'(lambda (x y) (append x y)) + (string-join (mapcar #'(lambda (directory) (+search/get-candidates (expand-file-name directory))) +search/directories))) @@ -56,11 +55,11 @@ Returns a list of files with the directory preprended to them." (swiper))))) (defun +search/-format-grep-candidates () - (cl-reduce - #'(lambda (x y) (concat x " " y)) + (string-join (mapcar #'(lambda (x) (concat "\"" x "\"")) - (cl-remove-if #'directory-name-p (+search/get-all-candidates))))) + (cl-remove-if #'directory-name-p (+search/get-all-candidates))) + " ")) (defun +search/search-all () (interactive) |