services: Eliminate tab-based indentations.

* gnu/services/admin.scm: Replace tabs with 8 spaces.
* gnu/services/dbus.scm: Likewise.
* gnu/services/power.scm: Likewise.
* gnu/services/ssh.scm: Likewise.
* gnu/services/virtualization.scm: Likewise.
* gnu/services/web.scm: Likewise.
* gnu/services/xorg.scm: Likewise.
* gnu/services/networking.scm: Reindent lines with tabs.

8 files changed, 72 insertions, 76 deletions

diff --git a/gnu/services/admin.scm b/gnu/services/admin.scm
index 0829d67574a..907f7d37f4a 100644
--- a/gnu/services/admin.scm
+++ b/gnu/services/admin.scm
@@ -226,12 +226,11 @@ log-rotation} to list files subject to log rotation.")
                 (with-imported-modules '((guix build utils))
                   #~(begin
                       (use-modules (guix build utils))
-
                       (let* ((now  (car (gettimeofday)))
                              (logs (find-files #$directory
-                                               (lambda (file stat)
-                                                 (> (- now (stat:mtime stat))
-                                                    #$expiry)))))
+                                               (lambda (file stat)
+                                                 (> (- now (stat:mtime stat))
+                                                    #$expiry)))))
                         (format #t "deleting ~a log files from '~a'...~%"
                                 (length logs) #$directory)
                         (for-each delete-file logs))))))
diff --git a/gnu/services/dbus.scm b/gnu/services/dbus.scm
index 40f2c9264ef..3d314f4183e 100644
--- a/gnu/services/dbus.scm
+++ b/gnu/services/dbus.scm
@@ -469,8 +469,8 @@ the capability to suspend the system if the user is logged in locally."
       (extensions
        (list (service-extension
               polkit-service-type rtkit-package)
-             (service-extension dbus-root-service-type rtkit-package)
-             (service-extension
+             (service-extension dbus-root-service-type rtkit-package)
+             (service-extension
               account-service-type
               (const (list %rtkit-account)))))
       (default-value (rtkit-configuration))
diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm
index ee626928aaa..752f3e3e890 100644
--- a/gnu/services/networking.scm
+++ b/gnu/services/networking.scm
@@ -184,11 +184,11 @@
             tor-onion-service-configuration?
             tor-onion-service-configuration-name
             tor-onion-service-configuration-mapping
-            tor-transport-plugin
-            tor-transport-plugin?
-            tor-plugin-role
-            tor-plugin-protocol
-            tor-plugin-program
+            tor-transport-plugin
+            tor-transport-plugin?
+            tor-plugin-role
+            tor-plugin-protocol
+            tor-plugin-program
             tor-hidden-service  ; deprecated
             tor-service-type
 
@@ -1098,15 +1098,15 @@ maps ports 22 and 80 of the Onion Service to the local ports 22 and 8080."))
 (define-record-type* <tor-transport-plugin>
   tor-transport-plugin make-tor-transport-plugin
   tor-transport-plugin?
-  (role           tor-plugin-role
-                  (default 'client)
-                  (sanitize (lambda (value)
-                              (if (memq value '(client server))
-                                  value
-                                  (configuration-field-error #f 'role value)))))
-  (protocol       tor-plugin-protocol
-                  (default "obfs4"))
-  (program        tor-plugin-program))
+  (role tor-plugin-role
+        (default 'client)
+        (sanitize (lambda (value)
+                    (if (memq value '(client server))
+                        value
+                        (configuration-field-error #f 'role value)))))
+  (protocol tor-plugin-protocol
+            (default "obfs4"))
+  (program tor-plugin-program))
 
 (define (tor-configuration->torrc config)
   "Return a 'torrc' file for CONFIG."
@@ -1201,10 +1201,10 @@ HiddenServicePort ~a ~a~%"
                                      (source (file-append nss-certs "/etc/ssl/certs"))
                                      (target "/etc/ssl/certs")))
                              (map (lambda (plugin)
-                                    (file-system-mapping
-                                     (source (tor-plugin-program plugin))
-                                     (target source)))
-                                  transport-plugins))
+                                    (file-system-mapping
+                                     (source (tor-plugin-program plugin))
+                                     (target source)))
+                                  transport-plugins))
                  #:namespaces (delq 'net %namespaces))))
     (list (shepherd-service
            (provision '(tor))
@@ -2697,18 +2697,17 @@ local servers publicly accessible on the web, even behind NATs and firewalls."))
       dotted-list?)
     (define (param->camel str)
       (string-concatenate
-       (map
-        string-capitalize
-        (string-split str (cut eqv? <> #\-)))))
+       (map string-capitalize
+            (string-split str (cut eqv? <> #\-)))))
     (cond
      ((key-value? x)
       (let ((k (car x))
-            (v (cdr x)))
-        (cons
-         (if (symbol? k)
-             (param->camel (symbol->string k))
-             k)
-         v)))
+            (v (cdr x)))
+        (cons
+         (if (symbol? k)
+             (param->camel (symbol->string k))
+             k)
+         v)))
      ((list? x) (map scm->yggdrasil-json x))
      ((vector? x) (vector-map scm->yggdrasil-json x))
      (else x)))
@@ -2740,11 +2739,9 @@ local servers publicly accessible on the web, even behind NATs and firewalls."))
              (list "-extraconffile" extraconf)
              '()))
        (list "-loglevel"
-             #$(symbol->string
-                (yggdrasil-configuration-log-level config))
+             #$(symbol->string (yggdrasil-configuration-log-level config))
              "-logto"
-             #$(symbol->string
-                (yggdrasil-configuration-log-to config)))))
+             #$(symbol->string (yggdrasil-configuration-log-to config)))))
   (list (shepherd-service
          (documentation "Connect to the Yggdrasil mesh network")
          (provision '(yggdrasil))
diff --git a/gnu/services/power.scm b/gnu/services/power.scm
index 26c1157f5da..504b31b293d 100644
--- a/gnu/services/power.scm
+++ b/gnu/services/power.scm
@@ -547,24 +547,24 @@ file, 0 disables.")
                 ("killpower"     #$killpower)
                 ("commfailure"   #$commfailure)
                 ("commok"        #$commok)
-                ("powerout"      #$powerout)
-                ("onbattery"     #$onbattery)
-                ("offbattery"    #$offbattery)
-                ("mainsback"     #$mainsback)
-                ("failing"       #$failing)
-                ("timeout"       #$timeout)
-                ("loadlimit"     #$loadlimit)
-                ("runlimit"      #$runlimit)
-                ("doreboot"      #$doreboot)
-                ("doshutdown"    #$doshutdown)
-                ("annoyme"       #$annoyme)
-                ("emergency"     #$emergency)
-                ("changeme"      #$changeme)
-                ("remotedown"    #$remotedown)
-                ("startselftest" #$startselftest)
-                ("endselftest"   #$endselftest)
-                ("battdetach"    #$battdetach)
-                ("battattach"    #$battattach)
+                ("powerout"      #$powerout)
+                ("onbattery"     #$onbattery)
+                ("offbattery"    #$offbattery)
+                ("mainsback"     #$mainsback)
+                ("failing"       #$failing)
+                ("timeout"       #$timeout)
+                ("loadlimit"     #$loadlimit)
+                ("runlimit"      #$runlimit)
+                ("doreboot"      #$doreboot)
+                ("doshutdown"    #$doshutdown)
+                ("annoyme"       #$annoyme)
+                ("emergency"     #$emergency)
+                ("changeme"      #$changeme)
+                ("remotedown"    #$remotedown)
+                ("startselftest" #$startselftest)
+                ("endselftest"   #$endselftest)
+                ("battdetach"    #$battdetach)
+                ("battattach"    #$battattach)
                 (_
                  (err "Unknown event: ~a~%" cmd)
                  (err "Iff the event was emitted by apcupsd, this is a bug.~%")
diff --git a/gnu/services/ssh.scm b/gnu/services/ssh.scm
index ddb985e51bb..e167d2f689f 100644
--- a/gnu/services/ssh.scm
+++ b/gnu/services/ssh.scm
@@ -624,7 +624,7 @@ object."
   (ssh-options     autossh-configuration-ssh-options
                    (default '()))
   (auto-start?     autossh-configuration-auto-start?
-                   (default #t))
+                   (default #t))
   (shepherd-provision autossh-configuration-shepherd-provision
                    (default '(autossh))))
 
diff --git a/gnu/services/virtualization.scm b/gnu/services/virtualization.scm
index c6bf5360a6d..502894eb66b 100644
--- a/gnu/services/virtualization.scm
+++ b/gnu/services/virtualization.scm
@@ -625,7 +625,7 @@ performs required management tasks for virtualized guests.")))
 
 (define virtlog-service-type
   (service-type (name 'virtlogd)
-                (extensions
+                (extensions
                  (list
                   (service-extension shepherd-root-service-type
                                      virtlogd-shepherd-service)))
diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index 9bc1adf147a..a333d51aeac 100644
--- a/gnu/services/web.scm
+++ b/gnu/services/web.scm
@@ -910,7 +910,7 @@ of index files."
                 (number->string server-names-hash-bucket-max-size)
                 ";\n")
                "")
-           (match extra-content
+           (match extra-content
              ((? list? extra-content)
               (map (lambda (line)
                      `("    " ,line "\n"))
@@ -2829,11 +2829,11 @@ Use absolute path like @code{\"/var/run/miniflux/miniflux.sock\"} for a Unix soc
                       administrator-account-name administrator-account-password)
     (let ((config-file (miniflux-configuration-file config)))
       (list (shepherd-service
-              (documentation "Run Miniflux server")
-              (provision '(miniflux))
-              (requirement '(postgres networking))
-              (start #~(make-forkexec-constructor
-                        (list #$(least-authority-wrapper
+              (documentation "Run Miniflux server")
+              (provision '(miniflux))
+              (requirement '(postgres networking))
+              (start #~(make-forkexec-constructor
+                        (list #$(least-authority-wrapper
                                  (file-append miniflux "/bin/miniflux")
                                  #:name "miniflux"
                                  #:user user
@@ -2858,11 +2858,11 @@ Use absolute path like @code{\"/var/run/miniflux/miniflux.sock\"} for a Unix soc
                                  (fold delq %namespaces '(net user)))
                               "-config-file"
                               #$config-file)
-                        #:log-file #$log-file))
+                        #:log-file #$log-file))
               (stop #~(make-kill-destructor))
               (actions
-               (list
-                (shepherd-configuration-action config-file))))))))
+               (list
+                (shepherd-configuration-action config-file))))))))
 
 (define (miniflux-accounts config)
   (match-record config <miniflux-configuration>
@@ -2901,11 +2901,11 @@ Use absolute path like @code{\"/var/run/miniflux/miniflux.sock\"} for a Unix soc
     (default-value (miniflux-configuration))
     (extensions
      (list (service-extension account-service-type
-                              miniflux-accounts)
-           (service-extension postgresql-role-service-type
-                              miniflux-postgresql-role)
-           (service-extension shepherd-root-service-type
-                              miniflux-shepherd-service)
+                              miniflux-accounts)
+           (service-extension postgresql-role-service-type
+                              miniflux-postgresql-role)
+           (service-extension shepherd-root-service-type
+                              miniflux-shepherd-service)
            (service-extension log-rotation-service-type
                               miniflux-log-files)
            (service-extension activation-service-type
diff --git a/gnu/services/xorg.scm b/gnu/services/xorg.scm
index 3dec5877ef8..412961828f2 100644
--- a/gnu/services/xorg.scm
+++ b/gnu/services/xorg.scm
@@ -1187,12 +1187,12 @@ argument.")))
   (program-file
    "gdm-wayland-session-wrapper"
    #~((let* ((user (getpw (getuid)))
-            (name (passwd:name user))
-            (shell (passwd:shell user))
-            (args (cdr (command-line))))
+             (name (passwd:name user))
+             (shell (passwd:shell user))
+             (args (cdr (command-line))))
         (if (string=? name "gdm")
-            (apply execl (cons (car args) args))
-            (execl shell shell "--login" "-c" (string-join args)))))))
+            (apply execl (cons (car args) args))
+            (execl shell shell "--login" "-c" (string-join args)))))))
 
 (define-record-type* <gdm-configuration>
   gdm-configuration make-gdm-configuration