projects/guix·blob master · refs

701 lines · 41.5 KiB

1;;; GNU Guix --- Functional package management for GNU
2;;; Copyright © 2012-2023, 2026 Ludovic Courtès <[email protected]>
3;;; Copyright © 2013,2014 Mark H Weaver <[email protected]>
4;;; Copyright © 2014 Taylan Ulrich Bayırlı/Kammer <[email protected]>
5;;; Copyright © 2015 David Thompson <[email protected]>
6;;; Copyright © 2016 Hartmut Goebel <[email protected]>
7;;; Copyright © 2017 Alex Kost <[email protected]>
8;;; Copyright © 2018-2020 Caleb Ristvedt <[email protected]>
9;;; Copyright © 2020-2023, 2025 Maxim Cournoyer <[email protected]>
10;;; Copyright © 2020 Miguel Ángel Arruga Vivas <[email protected]>
11;;; Copyright © 2020 Christine Lemmer-Webber <[email protected]>
12;;; Copyright © 2022 Liliana Marie Prikler <[email protected]>
13;;; Copyright © 2022 Andrew Tropin <[email protected]>
14;;; Copyright © 2022 Brian Cully <[email protected]>
15;;; Copyright © 2023 (unmatched-parenthesis <[email protected]>
16;;; Copyright © 2024 Christopher Baines <[email protected]>
17;;; Copyright © 2024 Tomas Volf <[email protected]>
18;;; Copyright © 2024 Nicolas Graves <[email protected]>
19;;; Copyright © 2025 David Elsing <[email protected]>
20;;; Copyright © 2025 Hilton Chain <[email protected]>
21;;; This file is part of GNU Guix.
22;;;
23;;; GNU Guix is free software; you can redistribute it and/or modify it
24;;; under the terms of the GNU General Public License as published by
25;;; the Free Software Foundation; either version 3 of the License, or (at
26;;; your option) any later version.
27;;;
28;;; GNU Guix is distributed in the hope that it will be useful, but
29;;; WITHOUT ANY WARRANTY; without even the implied warranty of
30;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
31;;; GNU General Public License for more details.
32;;;
33;;; You should have received a copy of the GNU General Public License
34;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
35
36;; Per-directory local variables for GNU Emacs 23 and later.
37((nil
38 . ((fill-column . 78)
39 (tab-width . 8)
40 (sentence-end-double-space . t)
41
42 ;; For use with 'bug-reference-prog-mode'. Extra bug-reference
43 ;; configuration should be done in your Emacs user configuration file;
44 ;; refer to (info (guix) The Perfect Setup).
45 (eval . (setq-local bug-reference-bug-regexp
46 ;; #8545 (issues), !8545 (PRs), guix/guix#8545 and
47 ;; guix/guix!8545
48 (rx (group (seq (? "guix/guix") (or "#" "!"))
49 (group (one-or-more digit))))))
50 (bug-reference-url-format . "https://codeberg.org/guix/guix/issues/%s")
51
52 (eval . (add-to-list 'completion-ignored-extensions ".go"))
53
54 ;; Emacs-Guix
55 (eval . (setq-local guix-directory
56 (locate-dominating-file default-directory
57 ".dir-locals.el")))
58
59 ;; TempEl
60 (eval . (with-eval-after-load
61 'tempel
62 (if (stringp tempel-path)
63 (setq tempel-path (list tempel-path)))
64 (let ((guix-tempel-snippets
65 (concat
66 (expand-file-name
67 "etc/snippets/tempel"
68 (locate-dominating-file default-directory
69 ".dir-locals.el"))
70 "/*.eld")))
71 (unless (member guix-tempel-snippets tempel-path)
72 (add-to-list 'tempel-path guix-tempel-snippets)))))
73
74 ;; YASnippet
75 (eval . (with-eval-after-load
76 'yasnippet
77 (let ((guix-yasnippets
78 (expand-file-name
79 "etc/snippets/yas"
80 (locate-dominating-file default-directory
81 ".dir-locals.el"))))
82 (unless (member guix-yasnippets yas-snippet-dirs)
83 (add-to-list 'yas-snippet-dirs guix-yasnippets)
84 (yas-reload-all)))))
85
86 ;; Geiser
87 ;; This allows automatically setting the `geiser-guile-load-path'
88 ;; variable when using various Guix checkouts (e.g., via git worktrees).
89 (geiser-repl-per-project-p . t)
90 (geiser-insert-actual-lambda . nil)))
91
92 (c-mode . ((c-file-style . "gnu")))
93 (emacs-lisp-mode . ((indent-tabs-mode . nil)))
94 (texinfo-mode . ((indent-tabs-mode . nil)
95 (fill-column . 72)))
96 (scheme-mode
97 .
98 ((indent-tabs-mode . nil)
99
100 ;; Emacs 28 changed the behavior of 'lisp-fill-paragraph', which causes the
101 ;; first line of package descriptions to extrude past 'fill-column', and
102 ;; somehow that is deemed more correct upstream (see:
103 ;; https://issues.guix.gnu.org/56197).
104 (eval . (progn
105 (require 'lisp-mode)
106 (defun emacs27-lisp-fill-paragraph (&optional justify)
107 (interactive "P")
108 (or (fill-comment-paragraph justify)
109 (let ((paragraph-start
110 (concat paragraph-start
111 "\\|\\s-*\\([(;\"]\\|\\s-:\\|`(\\|#'(\\)"))
112 (paragraph-separate
113 (concat paragraph-separate "\\|\\s-*\".*[,\\.]$"))
114 (fill-column (if (and (integerp emacs-lisp-docstring-fill-column)
115 (derived-mode-p 'emacs-lisp-mode))
116 emacs-lisp-docstring-fill-column
117 fill-column)))
118 (fill-paragraph justify))
119 ;; Never return nil.
120 t))
121 (setq-local fill-paragraph-function #'emacs27-lisp-fill-paragraph)))
122
123 ;; This notably allows '(' in Paredit to not insert a space when the
124 ;; preceding symbol is one of these.
125 (eval . (modify-syntax-entry ?~ "'"))
126 (eval . (modify-syntax-entry ?$ "'"))
127 (eval . (modify-syntax-entry ?+ "'"))
128
129 (eval . (put 'eval-when 'scheme-indent-function 1))
130 (eval . (put 'call-with-prompt 'scheme-indent-function 1))
131 (eval . (put 'test-assert 'scheme-indent-function 1))
132 (eval . (put 'test-assertm 'scheme-indent-function 1))
133 (eval . (put 'test-equalm 'scheme-indent-function 1))
134 (eval . (put 'test-equal 'scheme-indent-function 1))
135 (eval . (put 'test-eq 'scheme-indent-function 1))
136 (eval . (put 'call-with-input-string 'scheme-indent-function 1))
137 (eval . (put 'call-with-port 'scheme-indent-function 1))
138 (eval . (put 'guard 'scheme-indent-function 1))
139 (eval . (put 'lambda* 'scheme-indent-function 1))
140 (eval . (put 'peekable-lambda 'scheme-indent-function 1))
141 (eval . (put 'substitute* 'scheme-indent-function 1))
142 (eval . (put 'match-record 'scheme-indent-function 3))
143 (eval . (put 'match-record-lambda 'scheme-indent-function 2))
144 (eval . (put 'with-fluids 'scheme-indent-function 2))
145
146 ;; TODO: Contribute these to Emacs' scheme-mode.
147 (eval . (put 'let-keywords 'scheme-indent-function 3))
148
149 ;; 'modify-inputs' and its keywords.
150 (eval . (put 'modify-inputs 'scheme-indent-function 1))
151 (eval . (put 'replace 'scheme-indent-function 1))
152
153 ;; 'modify-phases' and its keywords.
154 (eval . (put 'modify-phases 'scheme-indent-function 1))
155 (eval . (put 'replace 'scheme-indent-function 1))
156 (eval . (put 'add-before 'scheme-indent-function 2))
157 (eval . (put 'add-after 'scheme-indent-function 2))
158
159 (eval . (put 'modify-services 'scheme-indent-function 1))
160 (eval . (put 'with-directory-excursion 'scheme-indent-function 1))
161 (eval . (put 'with-file-lock 'scheme-indent-function 1))
162 (eval . (put 'with-file-lock/no-wait 'scheme-indent-function 1))
163 (eval . (put 'with-profile-lock 'scheme-indent-function 1))
164 (eval . (put 'with-writable-file 'scheme-indent-function 2))
165
166 (eval . (put 'package/inherit 'scheme-indent-function 1))
167 (eval . (put 'substitute-keyword-arguments 'scheme-indent-function 1))
168 (eval . (put 'with-store 'scheme-indent-function 1))
169 (eval . (put 'with-store/non-blocking 'scheme-indent-function 1))
170 (eval . (put 'with-external-store 'scheme-indent-function 1))
171 (eval . (put 'with-error-handling 'scheme-indent-function 0))
172 (eval . (put 'with-mutex 'scheme-indent-function 1))
173 (eval . (put 'with-atomic-file-output 'scheme-indent-function 1))
174 (eval . (put 'call-with-compressed-output-port 'scheme-indent-function 2))
175 (eval . (put 'call-with-decompressed-port 'scheme-indent-function 2))
176 (eval . (put 'call-with-gzip-input-port 'scheme-indent-function 1))
177 (eval . (put 'call-with-gzip-output-port 'scheme-indent-function 1))
178 (eval . (put 'call-with-lzip-input-port 'scheme-indent-function 1))
179 (eval . (put 'call-with-lzip-output-port 'scheme-indent-function 1))
180 (eval . (put 'signature-case 'scheme-indent-function 1))
181 (eval . (put 'emacs-batch-eval 'scheme-indent-function 0))
182 (eval . (put 'emacs-batch-edit-file 'scheme-indent-function 1))
183 (eval . (put 'emacs-substitute-sexps 'scheme-indent-function 1))
184 (eval . (put 'emacs-substitute-variables 'scheme-indent-function 1))
185 (eval . (put 'with-derivation-narinfo 'scheme-indent-function 1))
186 (eval . (put 'with-derivation-substitute 'scheme-indent-function 2))
187 (eval . (put 'with-status-report 'scheme-indent-function 1))
188 (eval . (put 'with-status-verbosity 'scheme-indent-function 1))
189 (eval . (put 'with-build-handler 'scheme-indent-function 1))
190
191 (eval . (put 'mlambda 'scheme-indent-function 1))
192 (eval . (put 'mlambdaq 'scheme-indent-function 1))
193 (eval . (put 'syntax-parameterize 'scheme-indent-function 1))
194 (eval . (put 'with-monad 'scheme-indent-function 1))
195 (eval . (put 'mbegin 'scheme-indent-function 1))
196 (eval . (put 'mwhen 'scheme-indent-function 1))
197 (eval . (put 'munless 'scheme-indent-function 1))
198 (eval . (put 'mlet* 'scheme-indent-function 2))
199 (eval . (put 'mlet 'scheme-indent-function 2))
200 (eval . (put 'state-parameterize 'scheme-indent-function 2))
201 (eval . (put 'store-parameterize 'scheme-indent-function 2))
202 (eval . (put 'run-with-store 'scheme-indent-function 1))
203 (eval . (put 'run-with-state 'scheme-indent-function 1))
204 (eval . (put 'wrap-program 'scheme-indent-function 1))
205 (eval . (put 'wrap-script 'scheme-indent-function 1))
206 (eval . (put 'with-imported-modules 'scheme-indent-function 1))
207 (eval . (put 'with-extensions 'scheme-indent-function 1))
208 (eval . (put 'with-parameters 'scheme-indent-function 1))
209 (eval . (put 'with-transformation 'scheme-indent-function 1))
210 (eval . (put 'let-system 'scheme-indent-function 1))
211 (eval . (put 'with-build-variables 'scheme-indent-function 2))
212
213 (eval . (put 'with-database 'scheme-indent-function 2))
214 (eval . (put 'call-with-database 'scheme-indent-function 1))
215 (eval . (put 'call-with-transaction 'scheme-indent-function 1))
216 (eval . (put 'call-with-retrying-transaction 'scheme-indent-function 1))
217
218 (eval . (put 'call-with-container 'scheme-indent-function 1))
219 (eval . (put 'container-excursion 'scheme-indent-function 1))
220 (eval . (put 'eventually 'scheme-indent-function 1))
221
222 (eval . (put 'call-with-progress-reporter 'scheme-indent-function 1))
223 (eval . (put 'with-repository 'scheme-indent-function 2))
224 (eval . (put 'with-temporary-git-repository 'scheme-indent-function 2))
225 (eval . (put 'with-served-git-repository 'scheme-indent-function 2))
226 (eval . (put 'with-environment-variables 'scheme-indent-function 1))
227 (eval . (put 'with-fresh-gnupg-setup 'scheme-indent-function 1))
228
229 (eval . (put 'with-paginated-output-port 'scheme-indent-function 1))
230
231 (eval . (put 'with-shepherd-action 'scheme-indent-function 3))
232
233 (eval . (put 'with-http-server 'scheme-indent-function 1))
234
235 ;; Record constructors.
236 ;; URIs for origin methods.
237 (eval . (put 'android-repo-reference 'scheme-indent-function 0))
238 (eval . (put 'bzr-reference 'scheme-indent-function 0))
239 (eval . (put 'cvs-reference 'scheme-indent-function 0))
240 (eval . (put 'git-checkout 'scheme-indent-function 0))
241 (eval . (put 'git-reference 'scheme-indent-function 0))
242 (eval . (put 'hg-reference 'scheme-indent-function 0))
243 (eval . (put 'svn-multi-reference 'scheme-indent-function 0))
244 (eval . (put 'svn-reference 'scheme-indent-function 0))
245
246 ;; guix/
247 (eval . (put 'avahi-service 'scheme-indent-function 0))
248 (eval . (put 'bag 'scheme-indent-function 0))
249 (eval . (put 'build-status 'scheme-indent-function 0))
250 (eval . (put 'build-system 'scheme-indent-function 0))
251 (eval . (put 'channel 'scheme-indent-function 0))
252 (eval . (put 'gnu-package-descriptor 'scheme-indent-function 0))
253 (eval . (put 'graft 'scheme-indent-function 0))
254 (eval . (put 'lint-checker 'scheme-indent-function 0))
255 (eval . (put 'lint-warning 'scheme-indent-function 0))
256 (eval . (put 'manifest-entry 'scheme-indent-function 0))
257 (eval . (put 'manifest-pattern 'scheme-indent-function 0))
258 (eval . (put 'manifest-transaction 'scheme-indent-function 0))
259 (eval . (put 'node-type 'scheme-indent-function 0))
260 (eval . (put 'origin 'scheme-indent-function 0))
261 (eval . (put 'package 'scheme-indent-function 0))
262 (eval . (put 'platform 'scheme-indent-function 0))
263 (eval . (put 'profile 'scheme-indent-function 0))
264 (eval . (put 'progress-reporter 'scheme-indent-function 0))
265 (eval . (put 'search-path-specification 'scheme-indent-function 0))
266 (eval . (put 'upstream-input 'scheme-indent-function 0))
267 (eval . (put 'upstream-source 'scheme-indent-function 0))
268 (eval . (put 'upstream-updater 'scheme-indent-function 0))
269
270 ;; gnu/
271 (eval . (put 'bootloader 'scheme-indent-function 0))
272 (eval . (put 'bootloader-configuration 'scheme-indent-function 0))
273 (eval . (put 'image 'scheme-indent-function 0))
274 (eval . (put 'image-type 'scheme-indent-function 0))
275 (eval . (put 'menu-entry 'scheme-indent-function 0))
276 (eval . (put 'partition 'scheme-indent-function 0))
277
278 ;; gnu/machine
279 (eval . (put 'digital-ocean-configuration 'scheme-indent-function 0))
280 (eval . (put 'environment-type 'scheme-indent-function 0))
281 (eval . (put 'hetzner-configuration 'scheme-indent-function 0))
282 (eval . (put 'machine 'scheme-indent-function 0))
283 (eval . (put 'machine-ssh-configuration 'scheme-indent-function 0))
284
285 ;; gnu/system
286 (eval . (put 'boot-parameters 'scheme-indent-function 0))
287 (eval . (put 'file-system 'scheme-indent-function 0))
288 (eval . (put 'file-system-mapping 'scheme-indent-function 0))
289 (eval . (put 'locale-definition 'scheme-indent-function 0))
290 (eval . (put 'mapped-device 'scheme-indent-function 0))
291 (eval . (put 'mapped-device-kind 'scheme-indent-function 0))
292 (eval . (put 'name-service 'scheme-indent-function 0))
293 (eval . (put 'name-service-switch 'scheme-indent-function 0))
294 (eval . (put 'operating-system 'scheme-indent-function 0))
295 (eval . (put 'pam-configuration 'scheme-indent-function 0))
296 (eval . (put 'pam-entry 'scheme-indent-function 0))
297 (eval . (put 'pam-extension 'scheme-indent-function 0))
298 (eval . (put 'pam-service 'scheme-indent-function 0))
299 (eval . (put 'privileged-program 'scheme-indent-function 0))
300 (eval . (put 'subid-range 'scheme-indent-function 0))
301 (eval . (put 'subids-configuration 'scheme-indent-function 0))
302 (eval . (put 'subids-extension 'scheme-indent-function 0))
303 (eval . (put 'swap-space 'scheme-indent-function 0))
304 (eval . (put 'user-account 'scheme-indent-function 0))
305 (eval . (put 'user-group 'scheme-indent-function 0))
306 (eval . (put 'virtual-machine 'scheme-indent-function 0))
307
308 ;; gnu/home
309 (eval . (put 'home-bash-configuration 'scheme-indent-function 0))
310 (eval . (put 'home-bash-extension 'scheme-indent-function 0))
311 (eval . (put 'home-batsignal-configuration 'scheme-indent-function 0))
312 (eval . (put 'home-beets-configuration 'scheme-indent-function 0))
313 (eval . (put 'home-dbus-configuration 'scheme-indent-function 0))
314 (eval . (put 'home-dotfiles-configuration 'scheme-indent-function 0))
315 (eval . (put 'home-environment 'scheme-indent-function 0))
316 (eval . (put 'home-fish-configuration 'scheme-indent-function 0))
317 (eval . (put 'home-fish-extension 'scheme-indent-function 0))
318 (eval . (put 'home-gpg-agent-configuration 'scheme-indent-function 0))
319 (eval . (put 'home-inputrc-configuration 'scheme-indent-function 0))
320 (eval . (put 'home-kodi-configuration 'scheme-indent-function 0))
321 (eval . (put 'home-mcron-configuration 'scheme-indent-function 0))
322 (eval . (put 'home-msmtp-configuration 'scheme-indent-function 0))
323 (eval . (put 'home-openssh-configuration 'scheme-indent-function 0))
324 (eval . (put 'home-parcimonie-configuration 'scheme-indent-function 0))
325 (eval . (put 'home-pipewire-configuration 'scheme-indent-function 0))
326 (eval . (put 'home-redshift-configuration 'scheme-indent-function 0))
327 (eval . (put 'home-shell-profile-configuration 'scheme-indent-function 0))
328 (eval . (put 'home-shepherd-configuration 'scheme-indent-function 0))
329 (eval . (put 'home-ssh-agent-configuration 'scheme-indent-function 0))
330 (eval . (put 'home-unclutter-configuration 'scheme-indent-function 0))
331 (eval . (put 'home-xdg-base-directories-configuration 'scheme-indent-function 0))
332 (eval . (put 'home-xdg-mime-applications-configuration 'scheme-indent-function 0))
333 (eval . (put 'home-xdg-user-directories-configuration 'scheme-indent-function 0))
334 (eval . (put 'home-xmodmap-configuration 'scheme-indent-function 0))
335 (eval . (put 'home-znc-configuration 'scheme-indent-function 0))
336 (eval . (put 'home-zsh-configuration 'scheme-indent-function 0))
337 (eval . (put 'home-zsh-extension 'scheme-indent-function 0))
338 (eval . (put 'msmtp-account 'scheme-indent-function 0))
339 (eval . (put 'msmtp-configuration 'scheme-indent-function 0))
340 (eval . (put 'openssh-host 'scheme-indent-function 0))
341 (eval . (put 'point 'scheme-indent-function 0))
342 (eval . (put 'proxy-jump 'scheme-indent-function 0))
343 (eval . (put 'sway-bar 'scheme-indent-function 0))
344 (eval . (put 'sway-border-color 'scheme-indent-function 0))
345 (eval . (put 'sway-color 'scheme-indent-function 0))
346 (eval . (put 'sway-configuration 'scheme-indent-function 0))
347 (eval . (put 'sway-input 'scheme-indent-function 0))
348 (eval . (put 'sway-mode 'scheme-indent-function 0))
349 (eval . (put 'sway-output 'scheme-indent-function 0))
350 (eval . (put 'xdg-desktop-action 'scheme-indent-function 0))
351 (eval . (put 'xdg-desktop-entry 'scheme-indent-function 0))
352
353 ;; gnu/services
354 (eval . (put 'agate-configuration 'scheme-indent-function 0))
355 (eval . (put 'agetty-configuration 'scheme-indent-function 0))
356 (eval . (put 'alsa-configuration 'scheme-indent-function 0))
357 (eval . (put 'anonip-configuration 'scheme-indent-function 0))
358 (eval . (put 'apcupsd-configuration 'scheme-indent-function 0))
359 (eval . (put 'apcupsd-event-handlers 'scheme-indent-function 0))
360 (eval . (put 'auditd-configuration 'scheme-indent-function 0))
361 (eval . (put 'autossh-configuration 'scheme-indent-function 0))
362 (eval . (put 'avahi-configuration 'scheme-indent-function 0))
363 (eval . (put 'backend-userroot-configuration 'scheme-indent-function 0))
364 (eval . (put 'bffe-configuration 'scheme-indent-function 0))
365 (eval . (put 'bitlbee-configuration 'scheme-indent-function 0))
366 (eval . (put 'bluetooth-configuration 'scheme-indent-function 0))
367 (eval . (put 'cachefilesd-configuration 'scheme-indent-function 0))
368 (eval . (put 'certbot-configuration 'scheme-indent-function 0))
369 (eval . (put 'cgit-configuration 'scheme-indent-function 0))
370 (eval . (put 'configuration-field 'scheme-indent-function 0))
371 (eval . (put 'connman-configuration 'scheme-indent-function 0))
372 (eval . (put 'connman-general-configuration 'scheme-indent-function 0))
373 (eval . (put 'containerd-configuration 'scheme-indent-function 0))
374 (eval . (put 'cuirass-configuration 'scheme-indent-function 0))
375 (eval . (put 'cuirass-remote-server-configuration 'scheme-indent-function 0))
376 (eval . (put 'cuirass-remote-worker-configuration 'scheme-indent-function 0))
377 (eval . (put 'cups-configuration 'scheme-indent-function 0))
378 (eval . (put 'darkstat-configuration 'scheme-indent-function 0))
379 (eval . (put 'dbus-configuration 'scheme-indent-function 0))
380 (eval . (put 'dconf-keyfile 'scheme-indent-function 0))
381 (eval . (put 'dconf-profile 'scheme-indent-function 0))
382 (eval . (put 'debootstrap-configuration 'scheme-indent-function 0))
383 (eval . (put 'dhcp-client-configuration 'scheme-indent-function 0))
384 (eval . (put 'dhcpcd-configuration 'scheme-indent-function 0))
385 (eval . (put 'dicod-configuration 'scheme-indent-function 0))
386 (eval . (put 'dict-configuration 'scheme-indent-function 0))
387 (eval . (put 'directory-server-instance-configuration 'scheme-indent-function 0))
388 (eval . (put 'dnsmasq-configuration 'scheme-indent-function 0))
389 (eval . (put 'docker-configuration 'scheme-indent-function 0))
390 (eval . (put 'dovecot-configuration 'scheme-indent-function 0))
391 (eval . (put 'dropbear-configuration 'scheme-indent-function 0))
392 (eval . (put 'earlyoom-configuration 'scheme-indent-function 0))
393 (eval . (put 'elogind-configuration 'scheme-indent-function 0))
394 (eval . (put 'enlightenment-desktop-configuration 'scheme-indent-function 0))
395 (eval . (put 'exim-configuration 'scheme-indent-function 0))
396 (eval . (put 'ext-component-configuration 'scheme-indent-function 0))
397 (eval . (put 'fail2ban-configuration 'scheme-indent-function 0))
398 (eval . (put 'fail2ban-ignore-cache-configuration 'scheme-indent-function 0))
399 (eval . (put 'fail2ban-jail-action-configuration 'scheme-indent-function 0))
400 (eval . (put 'fail2ban-jail-configuration 'scheme-indent-function 0))
401 (eval . (put 'fail2ban-jail-filter-configuration 'scheme-indent-function 0))
402 (eval . (put 'fcgiwrap-configuration 'scheme-indent-function 0))
403 (eval . (put 'fifo-listener-configuration 'scheme-indent-function 0))
404 (eval . (put 'file-database-configuration 'scheme-indent-function 0))
405 (eval . (put 'files-configuration 'scheme-indent-function 0))
406 (eval . (put 'fprintd-configuration 'scheme-indent-function 0))
407 (eval . (put 'fstrim-configuration 'scheme-indent-function 0))
408 (eval . (put 'ganeti-cleaner-configuration 'scheme-indent-function 0))
409 (eval . (put 'ganeti-confd-configuration 'scheme-indent-function 0))
410 (eval . (put 'ganeti-configuration 'scheme-indent-function 0))
411 (eval . (put 'ganeti-kvmd-configuration 'scheme-indent-function 0))
412 (eval . (put 'ganeti-luxid-configuration 'scheme-indent-function 0))
413 (eval . (put 'ganeti-metad-configuration 'scheme-indent-function 0))
414 (eval . (put 'ganeti-mond-configuration 'scheme-indent-function 0))
415 (eval . (put 'ganeti-noded-configuration 'scheme-indent-function 0))
416 (eval . (put 'ganeti-os 'scheme-indent-function 0))
417 (eval . (put 'ganeti-os-variant 'scheme-indent-function 0))
418 (eval . (put 'ganeti-rapi-configuration 'scheme-indent-function 0))
419 (eval . (put 'ganeti-watcher-configuration 'scheme-indent-function 0))
420 (eval . (put 'ganeti-wconfd-configuration 'scheme-indent-function 0))
421 (eval . (put 'gdm-configuration 'scheme-indent-function 0))
422 (eval . (put 'geoclue-configuration 'scheme-indent-function 0))
423 (eval . (put 'getmail-configuration 'scheme-indent-function 0))
424 (eval . (put 'getmail-configuration-file 'scheme-indent-function 0))
425 (eval . (put 'getmail-destination-configuration 'scheme-indent-function 0))
426 (eval . (put 'getmail-options-configuration 'scheme-indent-function 0))
427 (eval . (put 'getmail-retriever-configuration 'scheme-indent-function 0))
428 (eval . (put 'git-daemon-configuration 'scheme-indent-function 0))
429 (eval . (put 'git-http-configuration 'scheme-indent-function 0))
430 (eval . (put 'gitile-configuration 'scheme-indent-function 0))
431 (eval . (put 'gitolite-configuration 'scheme-indent-function 0))
432 (eval . (put 'gitolite-git-configuration 'scheme-indent-function 0))
433 (eval . (put 'gitolite-rc-file 'scheme-indent-function 0))
434 (eval . (put 'gmnisrv-configuration 'scheme-indent-function 0))
435 (eval . (put 'gnome-desktop-configuration 'scheme-indent-function 0))
436 (eval . (put 'gnome-keyring-configuration 'scheme-indent-function 0))
437 (eval . (put 'gpm-configuration 'scheme-indent-function 0))
438 (eval . (put 'greetd-agreety-session 'scheme-indent-function 0))
439 (eval . (put 'greetd-configuration 'scheme-indent-function 0))
440 (eval . (put 'greetd-gtkgreet-sway-session 'scheme-indent-function 0))
441 (eval . (put 'greetd-terminal-configuration 'scheme-indent-function 0))
442 (eval . (put 'greetd-user-session 'scheme-indent-function 0))
443 (eval . (put 'greetd-wlgreet-configuration 'scheme-indent-function 0))
444 (eval . (put 'greetd-wlgreet-session 'scheme-indent-function 0))
445 (eval . (put 'greetd-wlgreet-sway-session 'scheme-indent-function 0))
446 (eval . (put 'gss-configuration 'scheme-indent-function 0))
447 (eval . (put 'guix-build-coordinator-agent-configuration 'scheme-indent-function 0))
448 (eval . (put 'guix-build-coordinator-agent-dynamic-auth 'scheme-indent-function 0))
449 (eval . (put 'guix-build-coordinator-agent-dynamic-auth-with-file 'scheme-indent-function 0))
450 (eval . (put 'guix-build-coordinator-agent-password-auth 'scheme-indent-function 0))
451 (eval . (put 'guix-build-coordinator-agent-password-file-auth 'scheme-indent-function 0))
452 (eval . (put 'guix-build-coordinator-configuration 'scheme-indent-function 0))
453 (eval . (put 'guix-configuration 'scheme-indent-function 0))
454 (eval . (put 'guix-data-service-configuration 'scheme-indent-function 0))
455 (eval . (put 'guix-extension 'scheme-indent-function 0))
456 (eval . (put 'guix-publish-configuration 'scheme-indent-function 0))
457 (eval . (put 'gvfs-configuration 'scheme-indent-function 0))
458 (eval . (put 'host 'scheme-indent-function 0))
459 (eval . (put 'hostapd-configuration 'scheme-indent-function 0))
460 (eval . (put 'hpcguix-web-configuration 'scheme-indent-function 0))
461 (eval . (put 'httpd-config-file 'scheme-indent-function 0))
462 (eval . (put 'httpd-configuration 'scheme-indent-function 0))
463 (eval . (put 'httpd-module 'scheme-indent-function 0))
464 (eval . (put 'httpd-virtualhost 'scheme-indent-function 0))
465 (eval . (put 'hurd-console-configuration 'scheme-indent-function 0))
466 (eval . (put 'hurd-getty-configuration 'scheme-indent-function 0))
467 (eval . (put 'hurd-vm-configuration 'scheme-indent-function 0))
468 (eval . (put 'idmap-configuration 'scheme-indent-function 0))
469 (eval . (put 'imap4d-configuration 'scheme-indent-function 0))
470 (eval . (put 'inet-listener-configuration 'scheme-indent-function 0))
471 (eval . (put 'inetd-configuration 'scheme-indent-function 0))
472 (eval . (put 'inetd-entry 'scheme-indent-function 0))
473 (eval . (put 'inputattach-configuration 'scheme-indent-function 0))
474 (eval . (put 'int-component-configuration 'scheme-indent-function 0))
475 (eval . (put 'ipfs-configuration 'scheme-indent-function 0))
476 (eval . (put 'iptables-configuration 'scheme-indent-function 0))
477 (eval . (put 'iwd-configuration 'scheme-indent-function 0))
478 (eval . (put 'iwd-general-settings 'scheme-indent-function 0))
479 (eval . (put 'iwd-network-settings 'scheme-indent-function 0))
480 (eval . (put 'iwd-scan-settings 'scheme-indent-function 0))
481 (eval . (put 'iwd-settings 'scheme-indent-function 0))
482 (eval . (put 'jami-account 'scheme-indent-function 0))
483 (eval . (put 'jami-configuration 'scheme-indent-function 0))
484 (eval . (put 'joycond-configuration 'scheme-indent-function 0))
485 (eval . (put 'keepalived-configuration 'scheme-indent-function 0))
486 (eval . (put 'kmscon-configuration 'scheme-indent-function 0))
487 (eval . (put 'knot-acl-configuration 'scheme-indent-function 0))
488 (eval . (put 'knot-configuration 'scheme-indent-function 0))
489 (eval . (put 'knot-key-configuration 'scheme-indent-function 0))
490 (eval . (put 'knot-keystore-configuration 'scheme-indent-function 0))
491 (eval . (put 'knot-policy-configuration 'scheme-indent-function 0))
492 (eval . (put 'knot-remote-configuration 'scheme-indent-function 0))
493 (eval . (put 'knot-resolver-configuration 'scheme-indent-function 0))
494 (eval . (put 'knot-zone-configuration 'scheme-indent-function 0))
495 (eval . (put 'krb5-configuration 'scheme-indent-function 0))
496 (eval . (put 'krb5-realm 'scheme-indent-function 0))
497 (eval . (put 'kwallet-configuration 'scheme-indent-function 0))
498 (eval . (put 'ladspa-configuration 'scheme-indent-function 0))
499 (eval . (put 'laminar-configuration 'scheme-indent-function 0))
500 (eval . (put 'libvirt-configuration 'scheme-indent-function 0))
501 (eval . (put 'lightdm-configuration 'scheme-indent-function 0))
502 (eval . (put 'lightdm-gtk-greeter-configuration 'scheme-indent-function 0))
503 (eval . (put 'lightdm-seat-configuration 'scheme-indent-function 0))
504 (eval . (put 'linux-builder-configuration 'scheme-indent-function 0))
505 (eval . (put 'lirc-configuration 'scheme-indent-function 0))
506 (eval . (put 'live-service 'scheme-indent-function 0))
507 (eval . (put 'localed-configuration 'scheme-indent-function 0))
508 (eval . (put 'location-access-control 'scheme-indent-function 0))
509 (eval . (put 'log-cleanup-configuration 'scheme-indent-function 0))
510 (eval . (put 'log-rotation 'scheme-indent-function 0))
511 (eval . (put 'log-rotation-configuration 'scheme-indent-function 0))
512 (eval . (put 'login-configuration 'scheme-indent-function 0))
513 (eval . (put 'lsh-configuration 'scheme-indent-function 0))
514 (eval . (put 'lxqt-desktop-configuration 'scheme-indent-function 0))
515 (eval . (put 'mailbox-configuration 'scheme-indent-function 0))
516 (eval . (put 'mate-desktop-configuration 'scheme-indent-function 0))
517 (eval . (put 'mcron-configuration 'scheme-indent-function 0))
518 (eval . (put 'memcached-configuration 'scheme-indent-function 0))
519 (eval . (put 'method-access-control 'scheme-indent-function 0))
520 (eval . (put 'mingetty-configuration 'scheme-indent-function 0))
521 (eval . (put 'mod-muc-configuration 'scheme-indent-function 0))
522 (eval . (put 'modem-manager-configuration 'scheme-indent-function 0))
523 (eval . (put 'mosquitto-configuration 'scheme-indent-function 0))
524 (eval . (put 'mpd-configuration 'scheme-indent-function 0))
525 (eval . (put 'mpd-output 'scheme-indent-function 0))
526 (eval . (put 'mpd-partition 'scheme-indent-function 0))
527 (eval . (put 'mpd-plugin 'scheme-indent-function 0))
528 (eval . (put 'mumble-server-configuration 'scheme-indent-function 0))
529 (eval . (put 'mumble-server-public-registration-configuration 'scheme-indent-function 0))
530 (eval . (put 'mumi-configuration 'scheme-indent-function 0))
531 (eval . (put 'mumi-package-configuration 'scheme-indent-function 0))
532 (eval . (put 'mympd-configuration 'scheme-indent-function 0))
533 (eval . (put 'mympd-ip-acl 'scheme-indent-function 0))
534 (eval . (put 'mysql-configuration 'scheme-indent-function 0))
535 (eval . (put 'namespace-configuration 'scheme-indent-function 0))
536 (eval . (put 'nar-herder-cached-compression-configuration 'scheme-indent-function 0))
537 (eval . (put 'nar-herder-configuration 'scheme-indent-function 0))
538 (eval . (put 'network-address 'scheme-indent-function 0))
539 (eval . (put 'network-link 'scheme-indent-function 0))
540 (eval . (put 'network-manager-configuration 'scheme-indent-function 0))
541 (eval . (put 'network-route 'scheme-indent-function 0))
542 (eval . (put 'nfs-configuration 'scheme-indent-function 0))
543 (eval . (put 'nftables-configuration 'scheme-indent-function 0))
544 (eval . (put 'nginx-configuration 'scheme-indent-function 0))
545 (eval . (put 'nginx-location-configuration 'scheme-indent-function 0))
546 (eval . (put 'nginx-log-format-configuration 'scheme-indent-function 0))
547 (eval . (put 'nginx-named-location-configuration 'scheme-indent-function 0))
548 (eval . (put 'nginx-server-configuration 'scheme-indent-function 0))
549 (eval . (put 'nginx-upstream-configuration 'scheme-indent-function 0))
550 (eval . (put 'ngircd-channel 'scheme-indent-function 0))
551 (eval . (put 'ngircd-configuration 'scheme-indent-function 0))
552 (eval . (put 'ngircd-global 'scheme-indent-function 0))
553 (eval . (put 'ngircd-limits 'scheme-indent-function 0))
554 (eval . (put 'ngircd-operator 'scheme-indent-function 0))
555 (eval . (put 'ngircd-options 'scheme-indent-function 0))
556 (eval . (put 'ngircd-server 'scheme-indent-function 0))
557 (eval . (put 'ngircd-ssl 'scheme-indent-function 0))
558 (eval . (put 'nix-configuration 'scheme-indent-function 0))
559 (eval . (put 'nscd-cache 'scheme-indent-function 0))
560 (eval . (put 'nscd-configuration 'scheme-indent-function 0))
561 (eval . (put 'nslcd-configuration 'scheme-indent-function 0))
562 (eval . (put 'ntp-configuration 'scheme-indent-function 0))
563 (eval . (put 'ntp-server 'scheme-indent-function 0))
564 (eval . (put 'oci-container-configuration 'scheme-indent-function 0))
565 (eval . (put 'oci-image 'scheme-indent-function 0))
566 (eval . (put 'opaque-cgit-configuration 'scheme-indent-function 0))
567 (eval . (put 'opaque-cups-configuration 'scheme-indent-function 0))
568 (eval . (put 'opaque-dovecot-configuration 'scheme-indent-function 0))
569 (eval . (put 'opaque-prosody-configuration 'scheme-indent-function 0))
570 (eval . (put 'opendht-configuration 'scheme-indent-function 0))
571 (eval . (put 'openntpd-configuration 'scheme-indent-function 0))
572 (eval . (put 'opensmtpd-configuration 'scheme-indent-function 0))
573 (eval . (put 'openssh-configuration 'scheme-indent-function 0))
574 (eval . (put 'openvpn-ccd-configuration 'scheme-indent-function 0))
575 (eval . (put 'openvpn-client-configuration 'scheme-indent-function 0))
576 (eval . (put 'openvpn-remote-configuration 'scheme-indent-function 0))
577 (eval . (put 'openvpn-server-configuration 'scheme-indent-function 0))
578 (eval . (put 'openvswitch-configuration 'scheme-indent-function 0))
579 (eval . (put 'operation-access-control 'scheme-indent-function 0))
580 (eval . (put 'package-database-configuration 'scheme-indent-function 0))
581 (eval . (put 'pagekite-configuration 'scheme-indent-function 0))
582 (eval . (put 'pam-krb5-configuration 'scheme-indent-function 0))
583 (eval . (put 'pam-mount-configuration 'scheme-indent-function 0))
584 (eval . (put 'pam-mount-volume 'scheme-indent-function 0))
585 (eval . (put 'passdb-configuration 'scheme-indent-function 0))
586 (eval . (put 'patchwork-configuration 'scheme-indent-function 0))
587 (eval . (put 'patchwork-database-configuration 'scheme-indent-function 0))
588 (eval . (put 'patchwork-settings-module 'scheme-indent-function 0))
589 (eval . (put 'pcscd-configuration 'scheme-indent-function 0))
590 (eval . (put 'php-fpm-configuration 'scheme-indent-function 0))
591 (eval . (put 'php-fpm-dynamic-process-manager-configuration 'scheme-indent-function 0))
592 (eval . (put 'php-fpm-on-demand-process-manager-configuration 'scheme-indent-function 0))
593 (eval . (put 'php-fpm-static-process-manager-configuration 'scheme-indent-function 0))
594 (eval . (put 'pipefs-configuration 'scheme-indent-function 0))
595 (eval . (put 'plasma-desktop-configuration 'scheme-indent-function 0))
596 (eval . (put 'plugin-configuration 'scheme-indent-function 0))
597 (eval . (put 'policy-configuration 'scheme-indent-function 0))
598 (eval . (put 'polkit-configuration 'scheme-indent-function 0))
599 (eval . (put 'postgresql-config-file 'scheme-indent-function 0))
600 (eval . (put 'postgresql-configuration 'scheme-indent-function 0))
601 (eval . (put 'postgresql-role 'scheme-indent-function 0))
602 (eval . (put 'pounce-configuration 'scheme-indent-function 0))
603 (eval . (put 'power-profiles-daemon-configuration 'scheme-indent-function 0))
604 (eval . (put 'powertop-configuration 'scheme-indent-function 0))
605 (eval . (put 'prometheus-node-exporter-configuration 'scheme-indent-function 0))
606 (eval . (put 'prosody-configuration 'scheme-indent-function 0))
607 (eval . (put 'protocol-configuration 'scheme-indent-function 0))
608 (eval . (put 'pulseaudio-configuration 'scheme-indent-function 0))
609 (eval . (put 'qemu-binfmt-configuration 'scheme-indent-function 0))
610 (eval . (put 'qemu-guest-agent-configuration 'scheme-indent-function 0))
611 (eval . (put 'quassel-configuration 'scheme-indent-function 0))
612 (eval . (put 'radicale-auth-configuration 'scheme-indent-function 0))
613 (eval . (put 'radicale-configuration 'scheme-indent-function 0))
614 (eval . (put 'radicale-encoding-configuration 'scheme-indent-function 0))
615 (eval . (put 'radicale-logging-configuration 'scheme-indent-function 0))
616 (eval . (put 'radicale-rights-configuration 'scheme-indent-function 0))
617 (eval . (put 'radicale-server-configuration 'scheme-indent-function 0))
618 (eval . (put 'radicale-storage-configuration 'scheme-indent-function 0))
619 (eval . (put 'rasdaemon-configuration 'scheme-indent-function 0))
620 (eval . (put 'readymedia-configuration 'scheme-indent-function 0))
621 (eval . (put 'readymedia-media-directory 'scheme-indent-function 0))
622 (eval . (put 'redis-configuration 'scheme-indent-function 0))
623 (eval . (put 'repository-cgit-configuration 'scheme-indent-function 0))
624 (eval . (put 'resize-file-system-configuration 'scheme-indent-function 0))
625 (eval . (put 'restic-backup-configuration 'scheme-indent-function 0))
626 (eval . (put 'restic-backup-job 'scheme-indent-function 0))
627 (eval . (put 'rngd-configuration 'scheme-indent-function 0))
628 (eval . (put 'rootless-podman-configuration 'scheme-indent-function 0))
629 (eval . (put 'rpcbind-configuration 'scheme-indent-function 0))
630 (eval . (put 'rshiny-configuration 'scheme-indent-function 0))
631 (eval . (put 'rspamd-configuration 'scheme-indent-function 0))
632 (eval . (put 'rsync-configuration 'scheme-indent-function 0))
633 (eval . (put 'rsync-module 'scheme-indent-function 0))
634 (eval . (put 'samba-configuration 'scheme-indent-function 0))
635 (eval . (put 'screen-locker-configuration 'scheme-indent-function 0))
636 (eval . (put 'sddm-configuration 'scheme-indent-function 0))
637 (eval . (put 'seatd-configuration 'scheme-indent-function 0))
638 (eval . (put 'service-configuration 'scheme-indent-function 0))
639 (eval . (put 'service-type 'scheme-indent-function 0))
640 (eval . (put 'shepherd-action 'scheme-indent-function 0))
641 (eval . (put 'shepherd-configuration 'scheme-indent-function 0))
642 (eval . (put 'shepherd-service 'scheme-indent-function 0))
643 (eval . (put 'slim-configuration 'scheme-indent-function 0))
644 (eval . (put 'snuik-configuration 'scheme-indent-function 0))
645 (eval . (put 'speakersafetyd-configuration 'scheme-indent-function 0))
646 (eval . (put 'spice-vdagent-configuration 'scheme-indent-function 0))
647 (eval . (put 'ssl-configuration 'scheme-indent-function 0))
648 (eval . (put 'static-networking 'scheme-indent-function 0))
649 (eval . (put 'strongswan-configuration 'scheme-indent-function 0))
650 (eval . (put 'sugar-desktop-configuration 'scheme-indent-function 0))
651 (eval . (put 'syncthing-config-file 'scheme-indent-function 0))
652 (eval . (put 'syncthing-configuration 'scheme-indent-function 0))
653 (eval . (put 'syncthing-device 'scheme-indent-function 0))
654 (eval . (put 'syncthing-folder 'scheme-indent-function 0))
655 (eval . (put 'syncthing-folder-device 'scheme-indent-function 0))
656 (eval . (put 'sysctl-configuration 'scheme-indent-function 0))
657 (eval . (put 'syslog-configuration 'scheme-indent-function 0))
658 (eval . (put 'system-log-configuration 'scheme-indent-function 0))
659 (eval . (put 'tailon-configuration 'scheme-indent-function 0))
660 (eval . (put 'tailon-configuration-file 'scheme-indent-function 0))
661 (eval . (put 'thermald-configuration 'scheme-indent-function 0))
662 (eval . (put 'tlp-configuration 'scheme-indent-function 0))
663 (eval . (put 'tor-configuration 'scheme-indent-function 0))
664 (eval . (put 'tor-onion-service-configuration 'scheme-indent-function 0))
665 (eval . (put 'tor-transport-plugin 'scheme-indent-function 0))
666 (eval . (put 'transmission-daemon-configuration 'scheme-indent-function 0))
667 (eval . (put 'udev-configuration 'scheme-indent-function 0))
668 (eval . (put 'udisks-configuration 'scheme-indent-function 0))
669 (eval . (put 'unattended-upgrade-configuration 'scheme-indent-function 0))
670 (eval . (put 'unbound-configuration 'scheme-indent-function 0))
671 (eval . (put 'unbound-remote 'scheme-indent-function 0))
672 (eval . (put 'unbound-server 'scheme-indent-function 0))
673 (eval . (put 'unbound-zone 'scheme-indent-function 0))
674 (eval . (put 'unix-listener-configuration 'scheme-indent-function 0))
675 (eval . (put 'upower-configuration 'scheme-indent-function 0))
676 (eval . (put 'usb-modeswitch-configuration 'scheme-indent-function 0))
677 (eval . (put 'userdb-configuration 'scheme-indent-function 0))
678 (eval . (put 'varnish-configuration 'scheme-indent-function 0))
679 (eval . (put 'virtlog-configuration 'scheme-indent-function 0))
680 (eval . (put 'virtual-build-machine 'scheme-indent-function 0))
681 (eval . (put 'virtualhost-configuration 'scheme-indent-function 0))
682 (eval . (put 'vnstat-configuration 'scheme-indent-function 0))
683 (eval . (put 'webssh-configuration 'scheme-indent-function 0))
684 (eval . (put 'wesnothd-configuration 'scheme-indent-function 0))
685 (eval . (put 'whoogle-configuration 'scheme-indent-function 0))
686 (eval . (put 'wireguard-configuration 'scheme-indent-function 0))
687 (eval . (put 'wireguard-peer 'scheme-indent-function 0))
688 (eval . (put 'wpa-supplicant-configuration 'scheme-indent-function 0))
689 (eval . (put 'wsdd-configuration 'scheme-indent-function 0))
690 (eval . (put 'xe-guest-utilities-configuration 'scheme-indent-function 0))
691 (eval . (put 'xen-guest-agent-configuration 'scheme-indent-function 0))
692 (eval . (put 'xfce-desktop-configuration 'scheme-indent-function 0))
693 (eval . (put 'xorg-configuration 'scheme-indent-function 0))
694 (eval . (put 'xvnc-configuration 'scheme-indent-function 0))
695 (eval . (put 'yggdrasil-configuration 'scheme-indent-function 0))
696 (eval . (put 'zabbix-agent-configuration 'scheme-indent-function 0))
697 (eval . (put 'zabbix-front-end-configuration 'scheme-indent-function 0))
698 (eval . (put 'zabbix-server-configuration 'scheme-indent-function 0))
699 (eval . (put 'zone-entry 'scheme-indent-function 0))
700 (eval . (put 'zone-file 'scheme-indent-function 0))
701 (eval . (put 'zram-device-configuration 'scheme-indent-function 0)))))