dotfiles

commit 4f848b8fda1c98c4044ca4dfbdd3a16482655931
parent 86f3952702e51c36482e64b3b181f4ab05058987
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Thu, 26 Sep 2024 22:18:36 +0300

Update emacs configuration.

Diffstat:
M
config/emacs/init.el
 | 
9
+++++----
M
config/emacs/local-packages/emacs-kakafarm/kakafarm.el
 | 
14
++++++++------

2 files changed, 13 insertions(+), 10 deletions(-)
diff --git a/config/emacs/init.el b/config/emacs/init.el
@@ -241,9 +241,6 @@
 (use-package mastodon
   :defer t
   :init
-  ;; https://emacs.ch/†, RIP.
-  ;; Lost but not forgotten.
-  ;; Miss you, big man!
   ;; (setq mastodon-active-user "kakafarm"
   ;;       mastodon-instance-url "https://emacs.ch/")
   (setq mastodon-active-user "kakafarm"
@@ -340,7 +337,8 @@
    '((scheme     . t)
      (emacs-lisp . t)))
   :custom
-  (org-agenda-files (list (expand-file-name "~/mine/org/")))
+  (org-agenda-files (list (expand-file-name "~/mine/org/")
+                          (expand-file-name "~/Documents/notes/")))
   (org-default-notes-file (expand-file-name "~/mine/org/org.org"))
   (org-directory (expand-file-name "~/mine/org/"))
   (org-export-use-babel nil)
@@ -414,6 +412,9 @@
   :config
   ;; TODO: Did it even work?!
   (add-hook 'scheme-mode-hook 'hs-minor-mode)
+  (progn ;; For SRFI-253:
+   (put 'define-checked 'scheme-indent-function 1)
+   (put 'lambda-checked 'scheme-indent-function 1))
   :mode "\\.\\(scm\\|sxml\\)\\'"
   ;; :bind (:map scheme-mode-map
   ;;             ("C-c C-e" . arei-mode-map)
diff --git a/config/emacs/local-packages/emacs-kakafarm/kakafarm.el b/config/emacs/local-packages/emacs-kakafarm/kakafarm.el
@@ -215,12 +215,14 @@ from https://www.youtube.com/watch?v=6R-73hsL5wk"
 (defun kakafarm/org-roam-publishable-node-p (org-filename)
   (with-temp-buffer
     (insert-file-contents org-filename)
-    (org-element-map (org-element-parse-buffer) 'keyword
-                     (lambda (keyword)
-                       (and (kakafarm/org-roam-keyword-is-filetags-p keyword)
-                            (kakafarm/org-roam-filetags-keyword-is-publishable-p keyword)))
-                     nil
-                     t)))
+    (org-element-map
+     (org-element-parse-buffer)
+     'keyword
+     (lambda (keyword)
+       (and (kakafarm/org-roam-keyword-is-filetags-p keyword)
+            (kakafarm/org-roam-filetags-keyword-is-publishable-p keyword)))
+     nil
+     t)))
 
 ;;;###autoload
 (defun kakafarm/org-roam-sitemap (title list-of-org-links)