1 ;; Per-directory local variables for GNU Emacs 23 and later.
6 (sentence-end-double-space . t
)
8 ;; For use with 'bug-reference-prog-mode'.
9 (bug-reference-url-format .
"http://bugs.gnu.org/%s")
10 (bug-reference-bug-regexp
11 .
"<https?://\\(debbugs\\|bugs\\)\\.gnu\\.org/\\([0-9]+\\)>")
14 (eval .
(setq guix-directory
15 (locate-dominating-file default-directory
".dir-locals.el")))
18 ;; This allows automatically setting the `geiser-guile-load-path'
19 ;; variable when using various Guix checkouts (e.g., via git worktrees).
20 (eval .
(let* ((root-dir (expand-file-name
21 (locate-dominating-file
22 default-directory
".dir-locals.el")))
23 ;; Workaround for bug https://issues.guix.gnu.org/43818.
24 (root-dir* (directory-file-name root-dir
)))
25 (unless (boundp 'geiser-guile-load-path
)
26 (defvar geiser-guile-load-path
'()))
27 (make-local-variable 'geiser-guile-load-path
)
29 (cl-pushnew root-dir
* geiser-guile-load-path
30 :test
#'string-equal
)))))
32 (c-mode .
((c-file-style .
"gnu")))
35 ((indent-tabs-mode . nil
)
36 (eval .
(put 'eval-when
'scheme-indent-function
1))
37 (eval .
(put 'call-with-prompt
'scheme-indent-function
1))
38 (eval .
(put 'test-assert
'scheme-indent-function
1))
39 (eval .
(put 'test-assertm
'scheme-indent-function
1))
40 (eval .
(put 'test-equalm
'scheme-indent-function
1))
41 (eval .
(put 'test-equal
'scheme-indent-function
1))
42 (eval .
(put 'test-eq
'scheme-indent-function
1))
43 (eval .
(put 'call-with-input-string
'scheme-indent-function
1))
44 (eval .
(put 'guard
'scheme-indent-function
1))
45 (eval .
(put 'lambda
* 'scheme-indent-function
1))
46 (eval .
(put 'substitute
* 'scheme-indent-function
1))
47 (eval .
(put 'match-record
'scheme-indent-function
2))
49 ;; 'modify-phases' and its keywords.
50 (eval .
(put 'modify-phases
'scheme-indent-function
1))
51 (eval .
(put 'replace
'scheme-indent-function
1))
52 (eval .
(put 'add-before
'scheme-indent-function
2))
53 (eval .
(put 'add-after
'scheme-indent-function
2))
55 (eval .
(put 'modify-services
'scheme-indent-function
1))
56 (eval .
(put 'with-directory-excursion
'scheme-indent-function
1))
57 (eval .
(put 'with-file-lock
'scheme-indent-function
1))
58 (eval .
(put 'with-file-lock
/no-wait
'scheme-indent-function
1))
59 (eval .
(put 'with-profile-lock
'scheme-indent-function
1))
60 (eval .
(put 'with-writable-file
'scheme-indent-function
2))
62 (eval .
(put 'package
'scheme-indent-function
0))
63 (eval .
(put 'package
/inherit
'scheme-indent-function
1))
64 (eval .
(put 'origin
'scheme-indent-function
0))
65 (eval .
(put 'build-system
'scheme-indent-function
0))
66 (eval .
(put 'bag
'scheme-indent-function
0))
67 (eval .
(put 'graft
'scheme-indent-function
0))
68 (eval .
(put 'operating-system
'scheme-indent-function
0))
69 (eval .
(put 'file-system
'scheme-indent-function
0))
70 (eval .
(put 'manifest-entry
'scheme-indent-function
0))
71 (eval .
(put 'manifest-pattern
'scheme-indent-function
0))
72 (eval .
(put 'substitute-keyword-arguments
'scheme-indent-function
1))
73 (eval .
(put 'with-store
'scheme-indent-function
1))
74 (eval .
(put 'with-external-store
'scheme-indent-function
1))
75 (eval .
(put 'with-error-handling
'scheme-indent-function
0))
76 (eval .
(put 'with-mutex
'scheme-indent-function
1))
77 (eval .
(put 'with-atomic-file-output
'scheme-indent-function
1))
78 (eval .
(put 'call-with-compressed-output-port
'scheme-indent-function
2))
79 (eval .
(put 'call-with-decompressed-port
'scheme-indent-function
2))
80 (eval .
(put 'call-with-gzip-input-port
'scheme-indent-function
1))
81 (eval .
(put 'call-with-gzip-output-port
'scheme-indent-function
1))
82 (eval .
(put 'call-with-lzip-input-port
'scheme-indent-function
1))
83 (eval .
(put 'call-with-lzip-output-port
'scheme-indent-function
1))
84 (eval .
(put 'signature-case
'scheme-indent-function
1))
85 (eval .
(put 'emacs-batch-eval
'scheme-indent-function
0))
86 (eval .
(put 'emacs-batch-edit-file
'scheme-indent-function
1))
87 (eval .
(put 'emacs-substitute-sexps
'scheme-indent-function
1))
88 (eval .
(put 'emacs-substitute-variables
'scheme-indent-function
1))
89 (eval .
(put 'with-derivation-narinfo
'scheme-indent-function
1))
90 (eval .
(put 'with-derivation-substitute
'scheme-indent-function
2))
91 (eval .
(put 'with-status-report
'scheme-indent-function
1))
92 (eval .
(put 'with-status-verbosity
'scheme-indent-function
1))
93 (eval .
(put 'with-build-handler
'scheme-indent-function
1))
95 (eval .
(put 'mlambda
'scheme-indent-function
1))
96 (eval .
(put 'mlambdaq
'scheme-indent-function
1))
97 (eval .
(put 'syntax-parameterize
'scheme-indent-function
1))
98 (eval .
(put 'with-monad
'scheme-indent-function
1))
99 (eval .
(put 'mbegin
'scheme-indent-function
1))
100 (eval .
(put 'mwhen
'scheme-indent-function
1))
101 (eval .
(put 'munless
'scheme-indent-function
1))
102 (eval .
(put 'mlet
* 'scheme-indent-function
2))
103 (eval .
(put 'mlet
'scheme-indent-function
2))
104 (eval .
(put 'run-with-store
'scheme-indent-function
1))
105 (eval .
(put 'run-with-state
'scheme-indent-function
1))
106 (eval .
(put 'wrap-program
'scheme-indent-function
1))
107 (eval .
(put 'with-imported-modules
'scheme-indent-function
1))
108 (eval .
(put 'with-extensions
'scheme-indent-function
1))
109 (eval .
(put 'with-parameters
'scheme-indent-function
1))
110 (eval .
(put 'let-system
'scheme-indent-function
1))
112 (eval .
(put 'with-database
'scheme-indent-function
2))
113 (eval .
(put 'call-with-transaction
'scheme-indent-function
1))
114 (eval .
(put 'with-statement
'scheme-indent-function
3))
115 (eval .
(put 'call-with-retrying-transaction
'scheme-indent-function
1))
116 (eval .
(put 'call-with-savepoint
'scheme-indent-function
1))
117 (eval .
(put 'call-with-retrying-savepoint
'scheme-indent-function
1))
119 (eval .
(put 'call-with-container
'scheme-indent-function
1))
120 (eval .
(put 'container-excursion
'scheme-indent-function
1))
121 (eval .
(put 'eventually
'scheme-indent-function
1))
123 (eval .
(put 'call-with-progress-reporter
'scheme-indent-function
1))
124 (eval .
(put 'with-repository
'scheme-indent-function
2))
125 (eval .
(put 'with-temporary-git-repository
'scheme-indent-function
2))
126 (eval .
(put 'with-temporary-git-worktree
'scheme-indent-function
2))
127 (eval .
(put 'with-environment-variables
'scheme-indent-function
1))
128 (eval .
(put 'with-fresh-gnupg-setup
'scheme-indent-function
1))
130 (eval .
(put 'with-paginated-output-port
'scheme-indent-function
1))
132 ;; This notably allows '(' in Paredit to not insert a space when the
133 ;; preceding symbol is one of these.
134 (eval .
(modify-syntax-entry ?~
"'"))
135 (eval .
(modify-syntax-entry ?$
"'"))
136 (eval .
(modify-syntax-entry ?
+ "'"))))
137 (emacs-lisp-mode .
((indent-tabs-mode . nil
)))
138 (texinfo-mode .
((indent-tabs-mode . nil
)
139 (fill-column .
72))))