From c619bfa3c114c9e0270f04b42b90f326903dfc2d Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Sun, 21 May 2023 23:21:49 +0200
Subject: Whitelist another Guix repo snippet

---
 tw/home/files/emacs-init.el | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'tw/home/files/emacs-init.el')

diff --git a/tw/home/files/emacs-init.el b/tw/home/files/emacs-init.el
index 427bac2b..8d224a20 100644
--- a/tw/home/files/emacs-init.el
+++ b/tw/home/files/emacs-init.el
@@ -722,6 +722,15 @@ For use in `org-latex-classes'."
       '((modify-syntax-entry 126 "'")
         (modify-syntax-entry 36 "'")
         (modify-syntax-entry 43 "'")
+        (let ((root-dir-unexpanded (locate-dominating-file default-directory ".dir-locals.el")))
+          (when root-dir-unexpanded
+            (let* ((root-dir (file-local-name (expand-file-name root-dir-unexpanded)))
+                   (root-dir* (directory-file-name root-dir)))
+              (unless (boundp 'geiser-guile-load-path)
+                (defvar geiser-guile-load-path 'nil))
+              (make-local-variable 'geiser-guile-load-path)
+              (require 'cl-lib)
+              (cl-pushnew root-dir* geiser-guile-load-path :test #'string-equal))))
         (progn
           (require 'lisp-mode)
           (defun emacs27-lisp-fill-paragraph (&optional justify)
-- 
cgit v1.2.3