fix(buffer): trim extra spaces in +fill-scratch-buffer

abougouffa · Jun 14, 2023 · 4887558 · 4887558
1 parent cae91b2
commit 4887558
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/elisp/+buffer.el b/elisp/+buffer.el
@@ -170,7 +170,7 @@ When available, use \"fortune\" to add a random quote."
     ;; Insert a random quote from "fortune" when the command is available
     (when (executable-find "fortune")
       (insert (string-join
-               (mapcar (apply-partially #'concat ";; ")
+               (mapcar (lambda (line) (string-trim-right (concat ";; " line)))
                        (string-lines (shell-command-to-string "fortune")))
                "\n"))
       (insert "\n;; ==============================\n"))