diff options
author | Timo Wilken | 2023-05-21 23:21:49 +0200 |
---|---|---|
committer | Timo Wilken | 2023-05-21 23:21:49 +0200 |
commit | c619bfa3c114c9e0270f04b42b90f326903dfc2d (patch) | |
tree | 6f4fad2f2383ad3018490276410c8551692dfbdc | |
parent | db4bdfe516b6daf3c4d0d2c621d42b73565b12bf (diff) |
Whitelist another Guix repo snippet
-rw-r--r-- | tw/home/files/emacs-init.el | 9 |
1 files changed, 9 insertions, 0 deletions
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) |