guix_mirror_bot pushed a commit to branch master
in repository guix.
commit a6149814533863a14f239c6d227b9c02ea7dd209
Author: Nguyễn Gia Phong <[email protected]>
AuthorDate: Mon Jul 27 11:46:23 2026 +0900
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.
---
gnu/services/admin.scm | 7 +++--
gnu/services/dbus.scm | 4 +--
gnu/services/networking.scm | 59 +++++++++++++++++++----------------------
gnu/services/power.scm | 36 ++++++++++++-------------
gnu/services/ssh.scm | 2 +-
gnu/services/virtualization.scm | 2 +-
gnu/services/web.scm | 28 +++++++++----------
gnu/services/xorg.scm | 10 +++----
8 files changed, 72 insertions(+), 76 deletions(-)
diff --git a/gnu/services/admin.scm b/gnu/services/admin.scm
index 0829d67574..907f7d37f4 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 40f2c9264e..3d314f4183 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 ee626928aa..752f3e3e89 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 26c1157f5d..504b31b293 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 ddb985e51b..e167d2f689 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 c6bf5360a6..502894eb66 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 9bc1adf147..a333d51aea 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 3dec5877ef..412961828f 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
