diff options
| -rw-r--r-- | Emacs/.config/emacs/elisp/org-bookmark.el | 4 | ||||
| -rw-r--r-- | Emacs/.config/emacs/elisp/search.el | 9 |
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) |