.dir-locals: Update Scheme indentation.

See also:
https://codeberg.org/guix/guix/commit/00291ad00ffddde1e557defaec3e9fde3f20cfaf

* .dir-locals.el (scheme-mode): Add updates from Guix.
Add indentation rule for Nonguix code.

1 files changed, 571 insertions, 24 deletions

diff --git a/.dir-locals.el b/.dir-locals.el
index 4ab3cc8..cdad06d 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -1,7 +1,25 @@
 ;;; SPDX-License-Identifier: GPL-3.0-or-later
+;;; Copyright © 2012-2023 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2013,2014 Mark H Weaver <mhw@netris.org>
+;;; Copyright © 2014 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
+;;; Copyright © 2015 David Thompson <davet@gnu.org>
+;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
+;;; Copyright © 2017 Alex Kost <alezost@gmail.com>
+;;; Copyright © 2018-2020 Caleb Ristvedt <caleb.ristvedt@cune.org>
+;;; Copyright © 2020-2023,2025 Maxim Cournoyer <maxim.cournoyer@gmail.com>
+;;; Copyright © 2020 Miguel Ángel Arruga Vivas <rosen644835@gmail.com>
+;;; Copyright © 2020 Christine Lemmer-Webber <cwebber@dustycloud.org>
+;;; Copyright © 2022 Liliana Marie Prikler <liliana.prikler@gmail.com>
+;;; Copyright © 2022 Andrew Tropin <andrew@trop.in>
+;;; Copyright © 2022 Brian Cully <bjc@kublai.com>
+;;; Copyright © 2023 (unmatched-parenthesis <paren@disroot.org>
+;;; Copyright © 2024 Christopher Baines <mail@cbaines.net>
 ;;; Copyright © 2024 Tomas Volf <~@wolfsden.cz>
-;; Per-directory local variables for GNU Emacs 23 and later.
+;;; Copyright © 2024 Nicolas Graves <ngraves@ngraves.fr>
+;;; Copyright © 2025 David Elsing <david.elsing@posteo.net>
+;;; Copyright © 2025 Hilton Chain <hako@ultrarare.space>
 
+;; Per-directory local variables for GNU Emacs 23 and later.
 ((nil
   . ((fill-column . 78)
      (tab-width   .  8)
@@ -12,15 +30,57 @@
      (bug-reference-bug-regexp
       . "\\(#\\([0-9]+\\)\\)")
 
-     (geiser-insert-actual-lambda . nil)))
+     (geiser-insert-actual-lambda . nil)
+
+     (eval . (add-to-list 'completion-ignored-extensions ".go"))))
+
  (c-mode          . ((c-file-style . "gnu")))
+ (emacs-lisp-mode . ((indent-tabs-mode . nil)))
+ (texinfo-mode    . ((indent-tabs-mode . nil)
+                     (fill-column . 72)))
  (scheme-mode
   .
-  ;; Note this next setting will use the current guix as the geiser binary;
-  ;; one working with a local guix checkout may want something different.
-  ((geiser-guile-binary . ("guix" "repl"))
+  (;; Note this next setting will use the current guix as the geiser binary;
+   ;; one working with a local guix checkout may want something different.
+   (geiser-guile-binary . ("guix" "repl"))
 
+   (eval . (put 'with-transformation 'scheme-indent-function 1))
+
+   (eval . (put 'nonguix-container 'scheme-indent-function 0))
+   (eval . (put 'nvidia-configuration 'scheme-indent-function 0))
+
+   ;; Configurations below are copied from Guix.
    (indent-tabs-mode . nil)
+
+   ;; Emacs 28 changed the behavior of 'lisp-fill-paragraph', which causes the
+   ;; first line of package descriptions to extrude past 'fill-column', and
+   ;; somehow that is deemed more correct upstream (see:
+   ;; https://issues.guix.gnu.org/56197).
+   (eval . (progn
+             (require 'lisp-mode)
+             (defun emacs27-lisp-fill-paragraph (&optional justify)
+               (interactive "P")
+               (or (fill-comment-paragraph justify)
+                   (let ((paragraph-start
+                          (concat paragraph-start
+                                  "\\|\\s-*\\([(;\"]\\|\\s-:\\|`(\\|#'(\\)"))
+                         (paragraph-separate
+                          (concat paragraph-separate "\\|\\s-*\".*[,\\.]$"))
+                         (fill-column (if (and (integerp emacs-lisp-docstring-fill-column)
+                                               (derived-mode-p 'emacs-lisp-mode))
+                                          emacs-lisp-docstring-fill-column
+                                        fill-column)))
+                     (fill-paragraph justify))
+                   ;; Never return nil.
+                   t))
+             (setq-local fill-paragraph-function #'emacs27-lisp-fill-paragraph)))
+
+   ;; 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 ?+ "'"))
+
    (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))
@@ -29,10 +89,19 @@
    (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 'call-with-port '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))
+   (eval . (put 'match-record 'scheme-indent-function 3))
+   (eval . (put 'match-record-lambda 'scheme-indent-function 2))
+
+   ;; TODO: Contribute these to Emacs' scheme-mode.
+   (eval . (put 'let-keywords 'scheme-indent-function 3))
+
+   ;; 'modify-inputs' and its keywords.
+   (eval . (put 'modify-inputs 'scheme-indent-function 1))
+   (eval . (put 'replace 'scheme-indent-function 1))
 
    ;; 'modify-phases' and its keywords.
    (eval . (put 'modify-phases 'scheme-indent-function 1))
@@ -42,17 +111,15 @@
 
    (eval . (put 'modify-services 'scheme-indent-function 1))
    (eval . (put 'with-directory-excursion 'scheme-indent-function 1))
-   (eval . (put 'package 'scheme-indent-function 0))
-   (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 '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/inherit 'scheme-indent-function 1))
    (eval . (put 'substitute-keyword-arguments 'scheme-indent-function 1))
    (eval . (put 'with-store 'scheme-indent-function 1))
+   (eval . (put 'with-store/non-blocking '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))
@@ -72,6 +139,7 @@
    (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))
@@ -82,26 +150,505 @@
    (eval . (put 'munless 'scheme-indent-function 1))
    (eval . (put 'mlet* 'scheme-indent-function 2))
    (eval . (put 'mlet 'scheme-indent-function 2))
+   (eval . (put 'state-parameterize 'scheme-indent-function 2))
+   (eval . (put 'store-parameterize '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 'wrap-script '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-build-variables 'scheme-indent-function 2))
 
    (eval . (put 'with-database 'scheme-indent-function 2))
-   (eval . (put 'call-with-transaction 'scheme-indent-function 2))
+   (eval . (put 'call-with-database 'scheme-indent-function 1))
+   (eval . (put 'call-with-transaction 'scheme-indent-function 1))
+   (eval . (put 'call-with-retrying-transaction '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-environment-variables 'scheme-indent-function 1))
+   (eval . (put 'with-fresh-gnupg-setup '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))))
+   (eval . (put 'with-paginated-output-port 'scheme-indent-function 1))
+
+   (eval . (put 'with-shepherd-action 'scheme-indent-function 3))
+
+   (eval . (put 'with-http-server 'scheme-indent-function 1))
+
+   ;; Record constructors.
+   ;; URIs for origin methods.
+   (eval . (put 'android-repo-reference 'scheme-indent-function 0))
+   (eval . (put 'bzr-reference 'scheme-indent-function 0))
+   (eval . (put 'cvs-reference 'scheme-indent-function 0))
+   (eval . (put 'git-checkout 'scheme-indent-function 0))
+   (eval . (put 'git-reference 'scheme-indent-function 0))
+   (eval . (put 'hg-reference 'scheme-indent-function 0))
+   (eval . (put 'svn-multi-reference 'scheme-indent-function 0))
+   (eval . (put 'svn-reference 'scheme-indent-function 0))
+
+   ;; guix/
+   (eval . (put 'avahi-service 'scheme-indent-function 0))
+   (eval . (put 'bag 'scheme-indent-function 0))
+   (eval . (put 'build-status 'scheme-indent-function 0))
+   (eval . (put 'build-system 'scheme-indent-function 0))
+   (eval . (put 'channel 'scheme-indent-function 0))
+   (eval . (put 'gnu-package-descriptor 'scheme-indent-function 0))
+   (eval . (put 'graft 'scheme-indent-function 0))
+   (eval . (put 'lint-checker 'scheme-indent-function 0))
+   (eval . (put 'lint-warning 'scheme-indent-function 0))
+   (eval . (put 'manifest-entry 'scheme-indent-function 0))
+   (eval . (put 'manifest-pattern 'scheme-indent-function 0))
+   (eval . (put 'manifest-transaction 'scheme-indent-function 0))
+   (eval . (put 'node-type 'scheme-indent-function 0))
+   (eval . (put 'origin 'scheme-indent-function 0))
+   (eval . (put 'package 'scheme-indent-function 0))
+   (eval . (put 'platform 'scheme-indent-function 0))
+   (eval . (put 'profile 'scheme-indent-function 0))
+   (eval . (put 'progress-reporter 'scheme-indent-function 0))
+   (eval . (put 'search-path-specification 'scheme-indent-function 0))
+   (eval . (put 'upstream-input 'scheme-indent-function 0))
+   (eval . (put 'upstream-source 'scheme-indent-function 0))
+   (eval . (put 'upstream-updater 'scheme-indent-function 0))
+
+   ;; gnu/
+   (eval . (put 'bootloader 'scheme-indent-function 0))
+   (eval . (put 'bootloader-configuration 'scheme-indent-function 0))
+   (eval . (put 'image 'scheme-indent-function 0))
+   (eval . (put 'image-type 'scheme-indent-function 0))
+   (eval . (put 'menu-entry 'scheme-indent-function 0))
+   (eval . (put 'partition 'scheme-indent-function 0))
+
+   ;; gnu/machine
+   (eval . (put 'digital-ocean-configuration 'scheme-indent-function 0))
+   (eval . (put 'environment-type 'scheme-indent-function 0))
+   (eval . (put 'hetzner-configuration 'scheme-indent-function 0))
+   (eval . (put 'machine 'scheme-indent-function 0))
+   (eval . (put 'machine-ssh-configuration 'scheme-indent-function 0))
+
+   ;; gnu/system
+   (eval . (put 'boot-parameters 'scheme-indent-function 0))
+   (eval . (put 'file-system 'scheme-indent-function 0))
+   (eval . (put 'file-system-mapping 'scheme-indent-function 0))
+   (eval . (put 'locale-definition 'scheme-indent-function 0))
+   (eval . (put 'mapped-device 'scheme-indent-function 0))
+   (eval . (put 'mapped-device-kind 'scheme-indent-function 0))
+   (eval . (put 'name-service 'scheme-indent-function 0))
+   (eval . (put 'name-service-switch 'scheme-indent-function 0))
+   (eval . (put 'operating-system 'scheme-indent-function 0))
+   (eval . (put 'pam-configuration 'scheme-indent-function 0))
+   (eval . (put 'pam-entry 'scheme-indent-function 0))
+   (eval . (put 'pam-extension 'scheme-indent-function 0))
+   (eval . (put 'pam-service 'scheme-indent-function 0))
+   (eval . (put 'privileged-program 'scheme-indent-function 0))
+   (eval . (put 'subid-range 'scheme-indent-function 0))
+   (eval . (put 'subids-configuration 'scheme-indent-function 0))
+   (eval . (put 'subids-extension 'scheme-indent-function 0))
+   (eval . (put 'swap-space 'scheme-indent-function 0))
+   (eval . (put 'user-account 'scheme-indent-function 0))
+   (eval . (put 'user-group 'scheme-indent-function 0))
+   (eval . (put 'virtual-machine 'scheme-indent-function 0))
+
+   ;; gnu/home
+   (eval . (put 'home-bash-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-bash-extension 'scheme-indent-function 0))
+   (eval . (put 'home-batsignal-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-beets-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-dbus-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-dotfiles-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-environment 'scheme-indent-function 0))
+   (eval . (put 'home-fish-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-fish-extension 'scheme-indent-function 0))
+   (eval . (put 'home-gpg-agent-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-inputrc-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-kodi-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-mcron-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-msmtp-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-openssh-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-parcimonie-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-pipewire-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-redshift-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-shell-profile-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-shepherd-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-ssh-agent-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-unclutter-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-xdg-base-directories-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-xdg-mime-applications-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-xdg-user-directories-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-xmodmap-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-znc-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-zsh-configuration 'scheme-indent-function 0))
+   (eval . (put 'home-zsh-extension 'scheme-indent-function 0))
+   (eval . (put 'msmtp-account 'scheme-indent-function 0))
+   (eval . (put 'msmtp-configuration 'scheme-indent-function 0))
+   (eval . (put 'openssh-host 'scheme-indent-function 0))
+   (eval . (put 'point 'scheme-indent-function 0))
+   (eval . (put 'proxy-jump 'scheme-indent-function 0))
+   (eval . (put 'sway-bar 'scheme-indent-function 0))
+   (eval . (put 'sway-border-color 'scheme-indent-function 0))
+   (eval . (put 'sway-color 'scheme-indent-function 0))
+   (eval . (put 'sway-configuration 'scheme-indent-function 0))
+   (eval . (put 'sway-input 'scheme-indent-function 0))
+   (eval . (put 'sway-mode 'scheme-indent-function 0))
+   (eval . (put 'sway-output 'scheme-indent-function 0))
+   (eval . (put 'xdg-desktop-action 'scheme-indent-function 0))
+   (eval . (put 'xdg-desktop-entry 'scheme-indent-function 0))
+
+   ;; gnu/services
+   (eval . (put 'agate-configuration 'scheme-indent-function 0))
+   (eval . (put 'agetty-configuration 'scheme-indent-function 0))
+   (eval . (put 'alsa-configuration 'scheme-indent-function 0))
+   (eval . (put 'anonip-configuration 'scheme-indent-function 0))
+   (eval . (put 'apcupsd-configuration 'scheme-indent-function 0))
+   (eval . (put 'apcupsd-event-handlers 'scheme-indent-function 0))
+   (eval . (put 'auditd-configuration 'scheme-indent-function 0))
+   (eval . (put 'autossh-configuration 'scheme-indent-function 0))
+   (eval . (put 'avahi-configuration 'scheme-indent-function 0))
+   (eval . (put 'backend-userroot-configuration 'scheme-indent-function 0))
+   (eval . (put 'bffe-configuration 'scheme-indent-function 0))
+   (eval . (put 'bitlbee-configuration 'scheme-indent-function 0))
+   (eval . (put 'bluetooth-configuration 'scheme-indent-function 0))
+   (eval . (put 'cachefilesd-configuration 'scheme-indent-function 0))
+   (eval . (put 'certbot-configuration 'scheme-indent-function 0))
+   (eval . (put 'cgit-configuration 'scheme-indent-function 0))
+   (eval . (put 'configuration-field 'scheme-indent-function 0))
+   (eval . (put 'connman-configuration 'scheme-indent-function 0))
+   (eval . (put 'connman-general-configuration 'scheme-indent-function 0))
+   (eval . (put 'containerd-configuration 'scheme-indent-function 0))
+   (eval . (put 'cuirass-configuration 'scheme-indent-function 0))
+   (eval . (put 'cuirass-remote-server-configuration 'scheme-indent-function 0))
+   (eval . (put 'cuirass-remote-worker-configuration 'scheme-indent-function 0))
+   (eval . (put 'cups-configuration 'scheme-indent-function 0))
+   (eval . (put 'darkstat-configuration 'scheme-indent-function 0))
+   (eval . (put 'dbus-configuration 'scheme-indent-function 0))
+   (eval . (put 'dconf-keyfile 'scheme-indent-function 0))
+   (eval . (put 'dconf-profile 'scheme-indent-function 0))
+   (eval . (put 'debootstrap-configuration 'scheme-indent-function 0))
+   (eval . (put 'dhcp-client-configuration 'scheme-indent-function 0))
+   (eval . (put 'dhcpcd-configuration 'scheme-indent-function 0))
+   (eval . (put 'dhcpd-configuration 'scheme-indent-function 0))
+   (eval . (put 'dicod-configuration 'scheme-indent-function 0))
+   (eval . (put 'dict-configuration 'scheme-indent-function 0))
+   (eval . (put 'directory-server-instance-configuration 'scheme-indent-function 0))
+   (eval . (put 'dnsmasq-configuration 'scheme-indent-function 0))
+   (eval . (put 'docker-configuration 'scheme-indent-function 0))
+   (eval . (put 'dovecot-configuration 'scheme-indent-function 0))
+   (eval . (put 'dropbear-configuration 'scheme-indent-function 0))
+   (eval . (put 'earlyoom-configuration 'scheme-indent-function 0))
+   (eval . (put 'elogind-configuration 'scheme-indent-function 0))
+   (eval . (put 'enlightenment-desktop-configuration 'scheme-indent-function 0))
+   (eval . (put 'exim-configuration 'scheme-indent-function 0))
+   (eval . (put 'ext-component-configuration 'scheme-indent-function 0))
+   (eval . (put 'fail2ban-configuration 'scheme-indent-function 0))
+   (eval . (put 'fail2ban-ignore-cache-configuration 'scheme-indent-function 0))
+   (eval . (put 'fail2ban-jail-action-configuration 'scheme-indent-function 0))
+   (eval . (put 'fail2ban-jail-configuration 'scheme-indent-function 0))
+   (eval . (put 'fail2ban-jail-filter-configuration 'scheme-indent-function 0))
+   (eval . (put 'fcgiwrap-configuration 'scheme-indent-function 0))
+   (eval . (put 'fifo-listener-configuration 'scheme-indent-function 0))
+   (eval . (put 'file-database-configuration 'scheme-indent-function 0))
+   (eval . (put 'files-configuration 'scheme-indent-function 0))
+   (eval . (put 'fprintd-configuration 'scheme-indent-function 0))
+   (eval . (put 'fstrim-configuration 'scheme-indent-function 0))
+   (eval . (put 'ganeti-cleaner-configuration 'scheme-indent-function 0))
+   (eval . (put 'ganeti-confd-configuration 'scheme-indent-function 0))
+   (eval . (put 'ganeti-configuration 'scheme-indent-function 0))
+   (eval . (put 'ganeti-kvmd-configuration 'scheme-indent-function 0))
+   (eval . (put 'ganeti-luxid-configuration 'scheme-indent-function 0))
+   (eval . (put 'ganeti-metad-configuration 'scheme-indent-function 0))
+   (eval . (put 'ganeti-mond-configuration 'scheme-indent-function 0))
+   (eval . (put 'ganeti-noded-configuration 'scheme-indent-function 0))
+   (eval . (put 'ganeti-os 'scheme-indent-function 0))
+   (eval . (put 'ganeti-os-variant 'scheme-indent-function 0))
+   (eval . (put 'ganeti-rapi-configuration 'scheme-indent-function 0))
+   (eval . (put 'ganeti-watcher-configuration 'scheme-indent-function 0))
+   (eval . (put 'ganeti-wconfd-configuration 'scheme-indent-function 0))
+   (eval . (put 'gdm-configuration 'scheme-indent-function 0))
+   (eval . (put 'geoclue-configuration 'scheme-indent-function 0))
+   (eval . (put 'getmail-configuration 'scheme-indent-function 0))
+   (eval . (put 'getmail-configuration-file 'scheme-indent-function 0))
+   (eval . (put 'getmail-destination-configuration 'scheme-indent-function 0))
+   (eval . (put 'getmail-options-configuration 'scheme-indent-function 0))
+   (eval . (put 'getmail-retriever-configuration 'scheme-indent-function 0))
+   (eval . (put 'git-daemon-configuration 'scheme-indent-function 0))
+   (eval . (put 'git-http-configuration 'scheme-indent-function 0))
+   (eval . (put 'gitile-configuration 'scheme-indent-function 0))
+   (eval . (put 'gitolite-configuration 'scheme-indent-function 0))
+   (eval . (put 'gitolite-git-configuration 'scheme-indent-function 0))
+   (eval . (put 'gitolite-rc-file 'scheme-indent-function 0))
+   (eval . (put 'gmnisrv-configuration 'scheme-indent-function 0))
+   (eval . (put 'gnome-desktop-configuration 'scheme-indent-function 0))
+   (eval . (put 'gnome-keyring-configuration 'scheme-indent-function 0))
+   (eval . (put 'gpm-configuration 'scheme-indent-function 0))
+   (eval . (put 'greetd-agreety-session 'scheme-indent-function 0))
+   (eval . (put 'greetd-configuration 'scheme-indent-function 0))
+   (eval . (put 'greetd-gtkgreet-sway-session 'scheme-indent-function 0))
+   (eval . (put 'greetd-terminal-configuration 'scheme-indent-function 0))
+   (eval . (put 'greetd-user-session 'scheme-indent-function 0))
+   (eval . (put 'greetd-wlgreet-configuration 'scheme-indent-function 0))
+   (eval . (put 'greetd-wlgreet-session 'scheme-indent-function 0))
+   (eval . (put 'greetd-wlgreet-sway-session 'scheme-indent-function 0))
+   (eval . (put 'gss-configuration 'scheme-indent-function 0))
+   (eval . (put 'guix-build-coordinator-agent-configuration 'scheme-indent-function 0))
+   (eval . (put 'guix-build-coordinator-agent-dynamic-auth 'scheme-indent-function 0))
+   (eval . (put 'guix-build-coordinator-agent-dynamic-auth-with-file 'scheme-indent-function 0))
+   (eval . (put 'guix-build-coordinator-agent-password-auth 'scheme-indent-function 0))
+   (eval . (put 'guix-build-coordinator-agent-password-file-auth 'scheme-indent-function 0))
+   (eval . (put 'guix-build-coordinator-configuration 'scheme-indent-function 0))
+   (eval . (put 'guix-configuration 'scheme-indent-function 0))
+   (eval . (put 'guix-data-service-configuration 'scheme-indent-function 0))
+   (eval . (put 'guix-extension 'scheme-indent-function 0))
+   (eval . (put 'guix-publish-configuration 'scheme-indent-function 0))
+   (eval . (put 'gvfs-configuration 'scheme-indent-function 0))
+   (eval . (put 'host 'scheme-indent-function 0))
+   (eval . (put 'hostapd-configuration 'scheme-indent-function 0))
+   (eval . (put 'hpcguix-web-configuration 'scheme-indent-function 0))
+   (eval . (put 'httpd-config-file 'scheme-indent-function 0))
+   (eval . (put 'httpd-configuration 'scheme-indent-function 0))
+   (eval . (put 'httpd-module 'scheme-indent-function 0))
+   (eval . (put 'httpd-virtualhost 'scheme-indent-function 0))
+   (eval . (put 'hurd-console-configuration 'scheme-indent-function 0))
+   (eval . (put 'hurd-getty-configuration 'scheme-indent-function 0))
+   (eval . (put 'hurd-vm-configuration 'scheme-indent-function 0))
+   (eval . (put 'idmap-configuration 'scheme-indent-function 0))
+   (eval . (put 'imap4d-configuration 'scheme-indent-function 0))
+   (eval . (put 'inet-listener-configuration 'scheme-indent-function 0))
+   (eval . (put 'inetd-configuration 'scheme-indent-function 0))
+   (eval . (put 'inetd-entry 'scheme-indent-function 0))
+   (eval . (put 'inputattach-configuration 'scheme-indent-function 0))
+   (eval . (put 'int-component-configuration 'scheme-indent-function 0))
+   (eval . (put 'ipfs-configuration 'scheme-indent-function 0))
+   (eval . (put 'iptables-configuration 'scheme-indent-function 0))
+   (eval . (put 'iwd-configuration 'scheme-indent-function 0))
+   (eval . (put 'iwd-general-settings 'scheme-indent-function 0))
+   (eval . (put 'iwd-network-settings 'scheme-indent-function 0))
+   (eval . (put 'iwd-scan-settings 'scheme-indent-function 0))
+   (eval . (put 'iwd-settings 'scheme-indent-function 0))
+   (eval . (put 'jami-account 'scheme-indent-function 0))
+   (eval . (put 'jami-configuration 'scheme-indent-function 0))
+   (eval . (put 'joycond-configuration 'scheme-indent-function 0))
+   (eval . (put 'keepalived-configuration 'scheme-indent-function 0))
+   (eval . (put 'kmscon-configuration 'scheme-indent-function 0))
+   (eval . (put 'knot-acl-configuration 'scheme-indent-function 0))
+   (eval . (put 'knot-configuration 'scheme-indent-function 0))
+   (eval . (put 'knot-key-configuration 'scheme-indent-function 0))
+   (eval . (put 'knot-keystore-configuration 'scheme-indent-function 0))
+   (eval . (put 'knot-policy-configuration 'scheme-indent-function 0))
+   (eval . (put 'knot-remote-configuration 'scheme-indent-function 0))
+   (eval . (put 'knot-resolver-configuration 'scheme-indent-function 0))
+   (eval . (put 'knot-zone-configuration 'scheme-indent-function 0))
+   (eval . (put 'krb5-configuration 'scheme-indent-function 0))
+   (eval . (put 'krb5-realm 'scheme-indent-function 0))
+   (eval . (put 'kwallet-configuration 'scheme-indent-function 0))
+   (eval . (put 'ladspa-configuration 'scheme-indent-function 0))
+   (eval . (put 'laminar-configuration 'scheme-indent-function 0))
+   (eval . (put 'libvirt-configuration 'scheme-indent-function 0))
+   (eval . (put 'lightdm-configuration 'scheme-indent-function 0))
+   (eval . (put 'lightdm-gtk-greeter-configuration 'scheme-indent-function 0))
+   (eval . (put 'lightdm-seat-configuration 'scheme-indent-function 0))
+   (eval . (put 'linux-builder-configuration 'scheme-indent-function 0))
+   (eval . (put 'lirc-configuration 'scheme-indent-function 0))
+   (eval . (put 'live-service 'scheme-indent-function 0))
+   (eval . (put 'localed-configuration 'scheme-indent-function 0))
+   (eval . (put 'location-access-control 'scheme-indent-function 0))
+   (eval . (put 'log-cleanup-configuration 'scheme-indent-function 0))
+   (eval . (put 'log-rotation 'scheme-indent-function 0))
+   (eval . (put 'log-rotation-configuration 'scheme-indent-function 0))
+   (eval . (put 'login-configuration 'scheme-indent-function 0))
+   (eval . (put 'lsh-configuration 'scheme-indent-function 0))
+   (eval . (put 'lxqt-desktop-configuration 'scheme-indent-function 0))
+   (eval . (put 'mailbox-configuration 'scheme-indent-function 0))
+   (eval . (put 'mate-desktop-configuration 'scheme-indent-function 0))
+   (eval . (put 'mcron-configuration 'scheme-indent-function 0))
+   (eval . (put 'memcached-configuration 'scheme-indent-function 0))
+   (eval . (put 'method-access-control 'scheme-indent-function 0))
+   (eval . (put 'mingetty-configuration 'scheme-indent-function 0))
+   (eval . (put 'mod-muc-configuration 'scheme-indent-function 0))
+   (eval . (put 'modem-manager-configuration 'scheme-indent-function 0))
+   (eval . (put 'mosquitto-configuration 'scheme-indent-function 0))
+   (eval . (put 'mpd-configuration 'scheme-indent-function 0))
+   (eval . (put 'mpd-output 'scheme-indent-function 0))
+   (eval . (put 'mpd-partition 'scheme-indent-function 0))
+   (eval . (put 'mpd-plugin 'scheme-indent-function 0))
+   (eval . (put 'mumble-server-configuration 'scheme-indent-function 0))
+   (eval . (put 'mumble-server-public-registration-configuration 'scheme-indent-function 0))
+   (eval . (put 'mumi-configuration 'scheme-indent-function 0))
+   (eval . (put 'mumi-package-configuration 'scheme-indent-function 0))
+   (eval . (put 'mympd-configuration 'scheme-indent-function 0))
+   (eval . (put 'mympd-ip-acl 'scheme-indent-function 0))
+   (eval . (put 'mysql-configuration 'scheme-indent-function 0))
+   (eval . (put 'namespace-configuration 'scheme-indent-function 0))
+   (eval . (put 'nar-herder-cached-compression-configuration 'scheme-indent-function 0))
+   (eval . (put 'nar-herder-configuration 'scheme-indent-function 0))
+   (eval . (put 'network-address 'scheme-indent-function 0))
+   (eval . (put 'network-link 'scheme-indent-function 0))
+   (eval . (put 'network-manager-configuration 'scheme-indent-function 0))
+   (eval . (put 'network-route 'scheme-indent-function 0))
+   (eval . (put 'nfs-configuration 'scheme-indent-function 0))
+   (eval . (put 'nftables-configuration 'scheme-indent-function 0))
+   (eval . (put 'nginx-configuration 'scheme-indent-function 0))
+   (eval . (put 'nginx-location-configuration 'scheme-indent-function 0))
+   (eval . (put 'nginx-log-format-configuration 'scheme-indent-function 0))
+   (eval . (put 'nginx-named-location-configuration 'scheme-indent-function 0))
+   (eval . (put 'nginx-server-configuration 'scheme-indent-function 0))
+   (eval . (put 'nginx-upstream-configuration 'scheme-indent-function 0))
+   (eval . (put 'ngircd-channel 'scheme-indent-function 0))
+   (eval . (put 'ngircd-configuration 'scheme-indent-function 0))
+   (eval . (put 'ngircd-global 'scheme-indent-function 0))
+   (eval . (put 'ngircd-limits 'scheme-indent-function 0))
+   (eval . (put 'ngircd-operator 'scheme-indent-function 0))
+   (eval . (put 'ngircd-options 'scheme-indent-function 0))
+   (eval . (put 'ngircd-server 'scheme-indent-function 0))
+   (eval . (put 'ngircd-ssl 'scheme-indent-function 0))
+   (eval . (put 'nix-configuration 'scheme-indent-function 0))
+   (eval . (put 'nscd-cache 'scheme-indent-function 0))
+   (eval . (put 'nscd-configuration 'scheme-indent-function 0))
+   (eval . (put 'nslcd-configuration 'scheme-indent-function 0))
+   (eval . (put 'ntp-configuration 'scheme-indent-function 0))
+   (eval . (put 'ntp-server 'scheme-indent-function 0))
+   (eval . (put 'oci-container-configuration 'scheme-indent-function 0))
+   (eval . (put 'oci-image 'scheme-indent-function 0))
+   (eval . (put 'opaque-cgit-configuration 'scheme-indent-function 0))
+   (eval . (put 'opaque-cups-configuration 'scheme-indent-function 0))
+   (eval . (put 'opaque-dovecot-configuration 'scheme-indent-function 0))
+   (eval . (put 'opaque-prosody-configuration 'scheme-indent-function 0))
+   (eval . (put 'opendht-configuration 'scheme-indent-function 0))
+   (eval . (put 'openntpd-configuration 'scheme-indent-function 0))
+   (eval . (put 'opensmtpd-configuration 'scheme-indent-function 0))
+   (eval . (put 'openssh-configuration 'scheme-indent-function 0))
+   (eval . (put 'openvpn-ccd-configuration 'scheme-indent-function 0))
+   (eval . (put 'openvpn-client-configuration 'scheme-indent-function 0))
+   (eval . (put 'openvpn-remote-configuration 'scheme-indent-function 0))
+   (eval . (put 'openvpn-server-configuration 'scheme-indent-function 0))
+   (eval . (put 'openvswitch-configuration 'scheme-indent-function 0))
+   (eval . (put 'operation-access-control 'scheme-indent-function 0))
+   (eval . (put 'package-database-configuration 'scheme-indent-function 0))
+   (eval . (put 'pagekite-configuration 'scheme-indent-function 0))
+   (eval . (put 'pam-krb5-configuration 'scheme-indent-function 0))
+   (eval . (put 'pam-mount-configuration 'scheme-indent-function 0))
+   (eval . (put 'pam-mount-volume 'scheme-indent-function 0))
+   (eval . (put 'passdb-configuration 'scheme-indent-function 0))
+   (eval . (put 'patchwork-configuration 'scheme-indent-function 0))
+   (eval . (put 'patchwork-database-configuration 'scheme-indent-function 0))
+   (eval . (put 'patchwork-settings-module 'scheme-indent-function 0))
+   (eval . (put 'pcscd-configuration 'scheme-indent-function 0))
+   (eval . (put 'php-fpm-configuration 'scheme-indent-function 0))
+   (eval . (put 'php-fpm-dynamic-process-manager-configuration 'scheme-indent-function 0))
+   (eval . (put 'php-fpm-on-demand-process-manager-configuration 'scheme-indent-function 0))
+   (eval . (put 'php-fpm-static-process-manager-configuration 'scheme-indent-function 0))
+   (eval . (put 'pipefs-configuration 'scheme-indent-function 0))
+   (eval . (put 'plasma-desktop-configuration 'scheme-indent-function 0))
+   (eval . (put 'plugin-configuration 'scheme-indent-function 0))
+   (eval . (put 'policy-configuration 'scheme-indent-function 0))
+   (eval . (put 'polkit-configuration 'scheme-indent-function 0))
+   (eval . (put 'postgresql-config-file 'scheme-indent-function 0))
+   (eval . (put 'postgresql-configuration 'scheme-indent-function 0))
+   (eval . (put 'postgresql-role 'scheme-indent-function 0))
+   (eval . (put 'pounce-configuration 'scheme-indent-function 0))
+   (eval . (put 'power-profiles-daemon-configuration 'scheme-indent-function 0))
+   (eval . (put 'powertop-configuration 'scheme-indent-function 0))
+   (eval . (put 'prometheus-node-exporter-configuration 'scheme-indent-function 0))
+   (eval . (put 'prosody-configuration 'scheme-indent-function 0))
+   (eval . (put 'protocol-configuration 'scheme-indent-function 0))
+   (eval . (put 'pulseaudio-configuration 'scheme-indent-function 0))
+   (eval . (put 'qemu-binfmt-configuration 'scheme-indent-function 0))
+   (eval . (put 'qemu-guest-agent-configuration 'scheme-indent-function 0))
+   (eval . (put 'quassel-configuration 'scheme-indent-function 0))
+   (eval . (put 'radicale-auth-configuration 'scheme-indent-function 0))
+   (eval . (put 'radicale-configuration 'scheme-indent-function 0))
+   (eval . (put 'radicale-encoding-configuration 'scheme-indent-function 0))
+   (eval . (put 'radicale-logging-configuration 'scheme-indent-function 0))
+   (eval . (put 'radicale-rights-configuration 'scheme-indent-function 0))
+   (eval . (put 'radicale-server-configuration 'scheme-indent-function 0))
+   (eval . (put 'radicale-storage-configuration 'scheme-indent-function 0))
+   (eval . (put 'rasdaemon-configuration 'scheme-indent-function 0))
+   (eval . (put 'readymedia-configuration 'scheme-indent-function 0))
+   (eval . (put 'readymedia-media-directory 'scheme-indent-function 0))
+   (eval . (put 'redis-configuration 'scheme-indent-function 0))
+   (eval . (put 'repository-cgit-configuration 'scheme-indent-function 0))
+   (eval . (put 'resize-file-system-configuration 'scheme-indent-function 0))
+   (eval . (put 'restic-backup-configuration 'scheme-indent-function 0))
+   (eval . (put 'restic-backup-job 'scheme-indent-function 0))
+   (eval . (put 'rngd-configuration 'scheme-indent-function 0))
+   (eval . (put 'rootless-podman-configuration 'scheme-indent-function 0))
+   (eval . (put 'rottlog-configuration 'scheme-indent-function 0))
+   (eval . (put 'rpcbind-configuration 'scheme-indent-function 0))
+   (eval . (put 'rshiny-configuration 'scheme-indent-function 0))
+   (eval . (put 'rspamd-configuration 'scheme-indent-function 0))
+   (eval . (put 'rsync-configuration 'scheme-indent-function 0))
+   (eval . (put 'rsync-module 'scheme-indent-function 0))
+   (eval . (put 'samba-configuration 'scheme-indent-function 0))
+   (eval . (put 'screen-locker-configuration 'scheme-indent-function 0))
+   (eval . (put 'sddm-configuration 'scheme-indent-function 0))
+   (eval . (put 'seatd-configuration 'scheme-indent-function 0))
+   (eval . (put 'service-configuration 'scheme-indent-function 0))
+   (eval . (put 'service-type 'scheme-indent-function 0))
+   (eval . (put 'shepherd-action 'scheme-indent-function 0))
+   (eval . (put 'shepherd-configuration 'scheme-indent-function 0))
+   (eval . (put 'shepherd-service 'scheme-indent-function 0))
+   (eval . (put 'slim-configuration 'scheme-indent-function 0))
+   (eval . (put 'snuik-configuration 'scheme-indent-function 0))
+   (eval . (put 'speakersafetyd-configuration 'scheme-indent-function 0))
+   (eval . (put 'spice-vdagent-configuration 'scheme-indent-function 0))
+   (eval . (put 'ssl-configuration 'scheme-indent-function 0))
+   (eval . (put 'static-networking 'scheme-indent-function 0))
+   (eval . (put 'strongswan-configuration 'scheme-indent-function 0))
+   (eval . (put 'sugar-desktop-configuration 'scheme-indent-function 0))
+   (eval . (put 'syncthing-config-file 'scheme-indent-function 0))
+   (eval . (put 'syncthing-configuration 'scheme-indent-function 0))
+   (eval . (put 'syncthing-device 'scheme-indent-function 0))
+   (eval . (put 'syncthing-folder 'scheme-indent-function 0))
+   (eval . (put 'syncthing-folder-device 'scheme-indent-function 0))
+   (eval . (put 'sysctl-configuration 'scheme-indent-function 0))
+   (eval . (put 'syslog-configuration 'scheme-indent-function 0))
+   (eval . (put 'system-log-configuration 'scheme-indent-function 0))
+   (eval . (put 'tailon-configuration 'scheme-indent-function 0))
+   (eval . (put 'tailon-configuration-file 'scheme-indent-function 0))
+   (eval . (put 'thermald-configuration 'scheme-indent-function 0))
+   (eval . (put 'tlp-configuration 'scheme-indent-function 0))
+   (eval . (put 'tor-configuration 'scheme-indent-function 0))
+   (eval . (put 'tor-onion-service-configuration 'scheme-indent-function 0))
+   (eval . (put 'tor-transport-plugin 'scheme-indent-function 0))
+   (eval . (put 'transmission-daemon-configuration 'scheme-indent-function 0))
+   (eval . (put 'udev-configuration 'scheme-indent-function 0))
+   (eval . (put 'udisks-configuration 'scheme-indent-function 0))
+   (eval . (put 'unattended-upgrade-configuration 'scheme-indent-function 0))
+   (eval . (put 'unbound-configuration 'scheme-indent-function 0))
+   (eval . (put 'unbound-remote 'scheme-indent-function 0))
+   (eval . (put 'unbound-server 'scheme-indent-function 0))
+   (eval . (put 'unbound-zone 'scheme-indent-function 0))
+   (eval . (put 'unix-listener-configuration 'scheme-indent-function 0))
+   (eval . (put 'upower-configuration 'scheme-indent-function 0))
+   (eval . (put 'usb-modeswitch-configuration 'scheme-indent-function 0))
+   (eval . (put 'userdb-configuration 'scheme-indent-function 0))
+   (eval . (put 'varnish-configuration 'scheme-indent-function 0))
+   (eval . (put 'virtlog-configuration 'scheme-indent-function 0))
+   (eval . (put 'virtual-build-machine 'scheme-indent-function 0))
+   (eval . (put 'virtualhost-configuration 'scheme-indent-function 0))
+   (eval . (put 'vnstat-configuration 'scheme-indent-function 0))
+   (eval . (put 'webssh-configuration 'scheme-indent-function 0))
+   (eval . (put 'wesnothd-configuration 'scheme-indent-function 0))
+   (eval . (put 'whoogle-configuration 'scheme-indent-function 0))
+   (eval . (put 'wireguard-configuration 'scheme-indent-function 0))
+   (eval . (put 'wireguard-peer 'scheme-indent-function 0))
+   (eval . (put 'wpa-supplicant-configuration 'scheme-indent-function 0))
+   (eval . (put 'wsdd-configuration 'scheme-indent-function 0))
+   (eval . (put 'xe-guest-utilities-configuration 'scheme-indent-function 0))
+   (eval . (put 'xen-guest-agent-configuration 'scheme-indent-function 0))
+   (eval . (put 'xfce-desktop-configuration 'scheme-indent-function 0))
+   (eval . (put 'xorg-configuration 'scheme-indent-function 0))
+   (eval . (put 'xvnc-configuration 'scheme-indent-function 0))
+   (eval . (put 'yggdrasil-configuration 'scheme-indent-function 0))
+   (eval . (put 'zabbix-agent-configuration 'scheme-indent-function 0))
+   (eval . (put 'zabbix-front-end-configuration 'scheme-indent-function 0))
+   (eval . (put 'zabbix-server-configuration 'scheme-indent-function 0))
+   (eval . (put 'zone-entry 'scheme-indent-function 0))
+   (eval . (put 'zone-file 'scheme-indent-function 0))
+   (eval . (put 'zram-device-configuration 'scheme-indent-function 0)))))