dotfiles

commit 64e7a8a240920389bdd7b59c92d5fc61d17ab9ac
parent 531471759864194c8a699b77c0c8b1d835dc754b
Author: Alex Balgavy <alex@balgavy.eu>
Date:   Tue, 10 Oct 2023 23:32:01 +0200

emacs: fix a setting

Diffstat:
M
emacs/config.org
 | 
43
++++++++++++++++++++++---------------------

1 file changed, 22 insertions(+), 21 deletions(-)
diff --git a/emacs/config.org b/emacs/config.org
@@ -956,28 +956,29 @@ Hide some messages I don't need.
                        (bookmarks . 5)))
 
     ;; Use my saved quotes in the dashboard (https://alex.balgavy.eu/quotes/)
-    (if (boundp 'za/my-website-dir)
     (dashboard-footer-messages
-     (let* ((quotes-file (concat za/my-website-dir "content/quotes.md"))
-            ;; Reformat quotes for display in dashboard
-            (file-contents (with-temp-buffer
-                             (insert-file-contents quotes-file)
-                             (re-search-forward (rx bol "> "))
-                             (delete-region (point-min) (pos-bol))
-                             (goto-char (point-min))
-                             (save-excursion (replace-regexp (rx bol ">" (* " ") (? "\n")) ""))
-                             (save-excursion (replace-regexp (rx eol "\n") "  "))
-                             (buffer-substring-no-properties (point-min) (point-max))))
-            ;; Split file into individual quotes
-            (quotes (split-string file-contents "  ---  ")))
-       ;; Run each quote through fill-region for better display
-       (require 's)
-       (mapcar (lambda (quote-line)
-                 (with-temp-buffer
-                   (insert (s-trim quote-line))
-                   (fill-region (point-min) (point-max))
-                   (buffer-substring-no-properties (point-min) (point-max))))
-               quotes))))
+     (if (boundp 'za/my-website-dir)
+         (let* ((quotes-file (concat za/my-website-dir "content/quotes.md"))
+                ;; Reformat quotes for display in dashboard
+                (file-contents (with-temp-buffer
+                                 (insert-file-contents quotes-file)
+                                 (re-search-forward (rx bol "> "))
+                                 (delete-region (point-min) (pos-bol))
+                                 (goto-char (point-min))
+                                 (save-excursion (replace-regexp (rx bol ">" (* " ") (? "\n")) ""))
+                                 (save-excursion (replace-regexp (rx eol "\n") "  "))
+                                 (buffer-substring-no-properties (point-min) (point-max))))
+                ;; Split file into individual quotes
+                (quotes (split-string file-contents "  ---  ")))
+           ;; Run each quote through fill-region for better display
+           (require 's)
+           (mapcar (lambda (quote-line)
+                     (with-temp-buffer
+                       (insert (s-trim quote-line))
+                       (fill-region (point-min) (point-max))
+                       (buffer-substring-no-properties (point-min) (point-max))))
+                   quotes))
+       nil))
     :bind (:map dashboard-mode-map
                 ("ss" . za/st)
                 ("sk" . za/st-kill)