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

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

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)