1d6e7732b1
While this repo should presumably always have a .dir-locals.el by the nature of this file itself, it seems that this behavior "leaks". See added comment for more details on the fix to this strange bug, which is likely an upstream emacs or vc-mode issue. Thanks to Miguel Ángel Arruga Vivas and Maxim Cournoyer for helping investigate this problem. * .dir-locals.el: Don't error out if .dir-locals.el isn't found.
150 lines
7.7 KiB
EmacsLisp
150 lines
7.7 KiB
EmacsLisp
;; Per-directory local variables for GNU Emacs 23 and later.
|
|
|
|
((nil
|
|
. ((fill-column . 78)
|
|
(tab-width . 8)
|
|
(sentence-end-double-space . t)
|
|
|
|
;; For use with 'bug-reference-prog-mode'.
|
|
(bug-reference-url-format . "http://bugs.gnu.org/%s")
|
|
(bug-reference-bug-regexp
|
|
. "<https?://\\(debbugs\\|bugs\\)\\.gnu\\.org/\\([0-9]+\\)>")
|
|
|
|
;; Emacs-Guix
|
|
(eval . (setq guix-directory
|
|
(locate-dominating-file default-directory ".dir-locals.el")))
|
|
|
|
;; 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
|
|
;; (TODO: add/replace with upstream emacs bug link when reported)
|
|
;; 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 (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)))))))
|
|
|
|
(c-mode . ((c-file-style . "gnu")))
|
|
(scheme-mode
|
|
.
|
|
((indent-tabs-mode . nil)
|
|
(eval . (put 'eval-when 'scheme-indent-function 1))
|
|
(eval . (put 'call-with-prompt 'scheme-indent-function 1))
|
|
(eval . (put 'test-assert 'scheme-indent-function 1))
|
|
(eval . (put 'test-assertm 'scheme-indent-function 1))
|
|
(eval . (put 'test-equalm 'scheme-indent-function 1))
|
|
(eval . (put 'test-equal 'scheme-indent-function 1))
|
|
(eval . (put 'test-eq 'scheme-indent-function 1))
|
|
(eval . (put 'call-with-input-string 'scheme-indent-function 1))
|
|
(eval . (put 'guard 'scheme-indent-function 1))
|
|
(eval . (put 'lambda* 'scheme-indent-function 1))
|
|
(eval . (put 'substitute* 'scheme-indent-function 1))
|
|
(eval . (put 'match-record 'scheme-indent-function 2))
|
|
|
|
;; 'modify-phases' and its keywords.
|
|
(eval . (put 'modify-phases 'scheme-indent-function 1))
|
|
(eval . (put 'replace 'scheme-indent-function 1))
|
|
(eval . (put 'add-before 'scheme-indent-function 2))
|
|
(eval . (put 'add-after 'scheme-indent-function 2))
|
|
|
|
(eval . (put 'modify-services 'scheme-indent-function 1))
|
|
(eval . (put 'with-directory-excursion 'scheme-indent-function 1))
|
|
(eval . (put 'with-file-lock 'scheme-indent-function 1))
|
|
(eval . (put 'with-file-lock/no-wait 'scheme-indent-function 1))
|
|
(eval . (put 'with-profile-lock 'scheme-indent-function 1))
|
|
(eval . (put 'with-writable-file 'scheme-indent-function 2))
|
|
|
|
(eval . (put 'package 'scheme-indent-function 0))
|
|
(eval . (put 'package/inherit 'scheme-indent-function 1))
|
|
(eval . (put 'origin 'scheme-indent-function 0))
|
|
(eval . (put 'build-system 'scheme-indent-function 0))
|
|
(eval . (put 'bag 'scheme-indent-function 0))
|
|
(eval . (put 'graft 'scheme-indent-function 0))
|
|
(eval . (put 'operating-system 'scheme-indent-function 0))
|
|
(eval . (put 'file-system 'scheme-indent-function 0))
|
|
(eval . (put 'manifest-entry 'scheme-indent-function 0))
|
|
(eval . (put 'manifest-pattern 'scheme-indent-function 0))
|
|
(eval . (put 'substitute-keyword-arguments 'scheme-indent-function 1))
|
|
(eval . (put 'with-store 'scheme-indent-function 1))
|
|
(eval . (put 'with-external-store 'scheme-indent-function 1))
|
|
(eval . (put 'with-error-handling 'scheme-indent-function 0))
|
|
(eval . (put 'with-mutex 'scheme-indent-function 1))
|
|
(eval . (put 'with-atomic-file-output 'scheme-indent-function 1))
|
|
(eval . (put 'call-with-compressed-output-port 'scheme-indent-function 2))
|
|
(eval . (put 'call-with-decompressed-port 'scheme-indent-function 2))
|
|
(eval . (put 'call-with-gzip-input-port 'scheme-indent-function 1))
|
|
(eval . (put 'call-with-gzip-output-port 'scheme-indent-function 1))
|
|
(eval . (put 'call-with-lzip-input-port 'scheme-indent-function 1))
|
|
(eval . (put 'call-with-lzip-output-port 'scheme-indent-function 1))
|
|
(eval . (put 'signature-case 'scheme-indent-function 1))
|
|
(eval . (put 'emacs-batch-eval 'scheme-indent-function 0))
|
|
(eval . (put 'emacs-batch-edit-file 'scheme-indent-function 1))
|
|
(eval . (put 'emacs-substitute-sexps 'scheme-indent-function 1))
|
|
(eval . (put 'emacs-substitute-variables 'scheme-indent-function 1))
|
|
(eval . (put 'with-derivation-narinfo 'scheme-indent-function 1))
|
|
(eval . (put 'with-derivation-substitute 'scheme-indent-function 2))
|
|
(eval . (put 'with-status-report 'scheme-indent-function 1))
|
|
(eval . (put 'with-status-verbosity 'scheme-indent-function 1))
|
|
(eval . (put 'with-build-handler 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'mlambda 'scheme-indent-function 1))
|
|
(eval . (put 'mlambdaq 'scheme-indent-function 1))
|
|
(eval . (put 'syntax-parameterize 'scheme-indent-function 1))
|
|
(eval . (put 'with-monad 'scheme-indent-function 1))
|
|
(eval . (put 'mbegin 'scheme-indent-function 1))
|
|
(eval . (put 'mwhen 'scheme-indent-function 1))
|
|
(eval . (put 'munless 'scheme-indent-function 1))
|
|
(eval . (put 'mlet* 'scheme-indent-function 2))
|
|
(eval . (put 'mlet 'scheme-indent-function 2))
|
|
(eval . (put 'run-with-store 'scheme-indent-function 1))
|
|
(eval . (put 'run-with-state 'scheme-indent-function 1))
|
|
(eval . (put 'wrap-program 'scheme-indent-function 1))
|
|
(eval . (put 'with-imported-modules 'scheme-indent-function 1))
|
|
(eval . (put 'with-extensions 'scheme-indent-function 1))
|
|
(eval . (put 'with-parameters 'scheme-indent-function 1))
|
|
(eval . (put 'let-system 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'with-database 'scheme-indent-function 2))
|
|
(eval . (put 'call-with-transaction 'scheme-indent-function 1))
|
|
(eval . (put 'with-statement 'scheme-indent-function 3))
|
|
(eval . (put 'call-with-retrying-transaction 'scheme-indent-function 1))
|
|
(eval . (put 'call-with-savepoint 'scheme-indent-function 1))
|
|
(eval . (put 'call-with-retrying-savepoint 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'call-with-container 'scheme-indent-function 1))
|
|
(eval . (put 'container-excursion 'scheme-indent-function 1))
|
|
(eval . (put 'eventually 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'call-with-progress-reporter 'scheme-indent-function 1))
|
|
(eval . (put 'with-repository 'scheme-indent-function 2))
|
|
(eval . (put 'with-temporary-git-repository 'scheme-indent-function 2))
|
|
(eval . (put 'with-temporary-git-worktree 'scheme-indent-function 2))
|
|
(eval . (put 'with-environment-variables 'scheme-indent-function 1))
|
|
(eval . (put 'with-fresh-gnupg-setup 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'with-paginated-output-port 'scheme-indent-function 1))
|
|
|
|
;; This notably allows '(' in Paredit to not insert a space when the
|
|
;; preceding symbol is one of these.
|
|
(eval . (modify-syntax-entry ?~ "'"))
|
|
(eval . (modify-syntax-entry ?$ "'"))
|
|
(eval . (modify-syntax-entry ?+ "'"))))
|
|
(emacs-lisp-mode . ((indent-tabs-mode . nil)))
|
|
(texinfo-mode . ((indent-tabs-mode . nil)
|
|
(fill-column . 72))))
|