From 65dcfb3f3865d08467da747041263fd22460d393 Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Wed, 6 Sep 2023 13:57:49 -0400 Subject: .dir-locals: Streamline Geiser configuration. Geiser now has support locating the project root and adding it to the load path without external help; leverage it. * .dir-locals.el [nil]: Remove obsolete Geiser configuration. Set the geiser-repl-per-project-p variable to t. * doc/contributing.texi (The Perfect Setup): No longer mention explicitly setting the geiser-guile-load-path; instead mention the effect of the .dir-locals.el file. Reported-by: Wolf --- .dir-locals.el | 22 +--------------------- 1 file changed, 1 insertion(+), 21 deletions(-) (limited to '.dir-locals.el') diff --git a/.dir-locals.el b/.dir-locals.el index d79b5c9d7e..36714c1aa4 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -32,27 +32,7 @@ ;; Geiser ;; This allows automatically setting the `geiser-guile-load-path' ;; variable when using various Guix checkouts (e.g., via git worktrees). - (eval . (let ((root-dir-unexpanded (locate-dominating-file - default-directory ".dir-locals.el"))) - ;; While Guix should in theory always have a .dir-locals.el - ;; (we are reading this file, after all) there seems to be a - ;; strange problem where this code "escapes" to some other buffers, - ;; at least vc-mode. See: - ;; https://lists.gnu.org/archive/html/guix-devel/2020-11/msg00296.html - ;; Upstream report: - ;; Hence the following "when", which might otherwise be unnecessary; - ;; it prevents causing an error when root-dir-unexpanded is nil. - (when root-dir-unexpanded - (let* ((root-dir (file-local-name (expand-file-name root-dir-unexpanded))) - ;; Workaround for bug https://issues.guix.gnu.org/43818. - (root-dir* (directory-file-name root-dir))) - - (unless (boundp 'geiser-guile-load-path) - (defvar geiser-guile-load-path '())) - (make-local-variable 'geiser-guile-load-path) - (require 'cl-lib) - (cl-pushnew root-dir* geiser-guile-load-path - :test #'string-equal))))))) + (geiser-repl-per-project-p . t))) (c-mode . ((c-file-style . "gnu"))) (scheme-mode -- cgit v1.2.3