aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAryadev Chavali <aryadev@aryadevchavali.com>2024-06-14 02:38:58 +0100
committerAryadev Chavali <aryadev@aryadevchavali.com>2024-06-14 02:38:58 +0100
commit3ef303fb670303571999aa5b9765ea91ad02ce56 (patch)
tree3dca0c54eb955c65b8d08f8435da00c31c050dab
parente546a66da017494e460c74a9c7fc750409749851 (diff)
downloaddotfiles-3ef303fb670303571999aa5b9765ea91ad02ce56.tar.gz
dotfiles-3ef303fb670303571999aa5b9765ea91ad02ce56.tar.bz2
dotfiles-3ef303fb670303571999aa5b9765ea91ad02ce56.zip
(Emacs/elisp)~cl-reduce -> string-join
-rw-r--r--Emacs/.config/emacs/elisp/org-bookmark.el4
-rw-r--r--Emacs/.config/emacs/elisp/search.el9
2 files changed, 5 insertions, 8 deletions
diff --git a/Emacs/.config/emacs/elisp/org-bookmark.el b/Emacs/.config/emacs/elisp/org-bookmark.el
index e4189f8..b480e50 100644
--- a/Emacs/.config/emacs/elisp/org-bookmark.el
+++ b/Emacs/.config/emacs/elisp/org-bookmark.el
@@ -60,9 +60,7 @@ urls)."
(cons
(format "%s %s" name
(substring-no-properties
- (cl-reduce #'(lambda (x y) (concat x ":" y))
- tags
- :initial-value "")))
+ (string-join tags ":")))
url)))
(defvar +bookmark/--cache nil
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)