(Emacs/elisp)~cl-reduce -> string-join

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)