style: make system declaration style more consistent

pull/1/head
anemofilia 2023-09-23 21:44:13 -03:00
parent 6996aa68d0
commit 0d323cd654
No known key found for this signature in database
GPG Key ID: 5A8F3D62C87A2B33
1 changed files with 22 additions and 22 deletions

View File

@ -40,21 +40,21 @@
(keyboard-layout (keyboard-layout
(keyboard-layout "us,br" (keyboard-layout "us,br"
#:options '("grp:menu_switch" #:options `("grp:menu_switch"
"parens:swap_brackets" "parens:swap_brackets"
"caps:swapescape"))) "caps:swapescape")))
(bootloader (bootloader
(bootloader-configuration (bootloader-configuration
(bootloader grub-bootloader) (bootloader grub-bootloader)
(targets '("/dev/sda")) (targets `("/dev/sda"))
(theme (grub-theme (theme (grub-theme
(image (file-append %artwork-repository (image (file-append %artwork-repository
"/backgrounds/guix-silver-16-9.svg")) "/backgrounds/guix-silver-16-9.svg"))
(gfxmode '("1280x720x32")))))) (gfxmode `("1280x720x32"))))))
(kernel-arguments (kernel-arguments
(list "modprobe.blacklist=usbmouse,usbkbd,pcspkr" `("modprobe.blacklist=usbmouse,usbkbd,pcspkr"
"thinkpad_acpi.fan_control=1" "thinkpad_acpi.fan_control=1"
"loglevel=5" "loglevel=5"
"quiet")) "quiet"))
@ -118,12 +118,12 @@
#|Run some programs from each package with file owner privileges|# #|Run some programs from each package with file owner privileges|#
(setuid-programs (setuid-programs
(map-setuid-programs (map-setuid-programs
(shadow '("passwd" "chfn" "sg" "su" "newgrp" "newuidmap" "newgidmap")) (shadow `("passwd" "chfn" "sg" "su" "newgrp" "newuidmap" "newgidmap"))
(inetutils '("ping" "ping6")) (inetutils `("ping" "ping6"))
(opendoas '("doas")) (opendoas `("doas"))
(fuse-2 '("fusermount")) (fuse-2 `("fusermount"))
(fuse '("fusermount3")) (fuse `("fusermount3"))
(util-linux '("mount" "umount")))) (util-linux `("mount" "umount"))))
#|Allow resolution of '.local' host names with mDNS|# #|Allow resolution of '.local' host names with mDNS|#
(name-service-switch %mdns-host-lookup-nss) (name-service-switch %mdns-host-lookup-nss)
@ -134,10 +134,10 @@
(service virtual-terminal-service-type) (service virtual-terminal-service-type)
(service console-font-service-type (service console-font-service-type
(associate-right (associate-right
(%default-console-font '("tty1" "tty2")))) (%default-console-font `("tty1" "tty2"))))
(service agetty-service-type (service agetty-service-type
(agetty-configuration (agetty-configuration
(extra-options '("-L")) (extra-options `("-L"))
(term "vt100") (term "vt100")
(tty #f))) (tty #f)))
(service mingetty-service-type (service mingetty-service-type
@ -170,12 +170,12 @@
(guix-configuration (guix-configuration
(discover? #t) (discover? #t)
(build-accounts 16) (build-accounts 16)
(extra-options '("--max-jobs=8" "--cores=4")))) (extra-options `("--max-jobs=8" "--cores=4"))))
(service guix-publish-service-type (service guix-publish-service-type
(guix-publish-configuration (guix-publish-configuration
(port 8080) (port 8080)
(advertise? #t) (advertise? #t)
(compression '(("zstd" 3))) (compression `(("zstd" 3)))
(workers 4))) (workers 4)))
#|Mcron service|# #|Mcron service|#
@ -204,7 +204,7 @@
(wpa-supplicant-configuration (wpa-supplicant-configuration
(config-file "/etc/wpa_supplicant.conf") (config-file "/etc/wpa_supplicant.conf")
(interface "wlp2s0") (interface "wlp2s0")
(extra-options '("-B")))) (extra-options `("-B"))))
(service dhcp-client-service-type (service dhcp-client-service-type
(dhcp-client-configuration (dhcp-client-configuration
(interfaces 'all))) (interfaces 'all)))
@ -213,8 +213,8 @@
#|Power management services|# #|Power management services|#
(service tlp-service-type (service tlp-service-type
(tlp-configuration (tlp-configuration
(cpu-scaling-governor-on-ac '("performance")) (cpu-scaling-governor-on-ac `("performance"))
(cpu-scaling-governor-on-bat '("powersave")) (cpu-scaling-governor-on-bat `("powersave"))
(cpu-scaling-min-freq-on-ac 1500000) (cpu-scaling-min-freq-on-ac 1500000)
(cpu-scaling-max-freq-on-ac 3500000) (cpu-scaling-max-freq-on-ac 3500000)
(cpu-scaling-min-freq-on-bat 1000000) (cpu-scaling-min-freq-on-bat 1000000)
@ -239,7 +239,7 @@
(config-file file:thinkfan-config) (config-file file:thinkfan-config)
(respawn? #f))) (respawn? #f)))
#|Doas config service|# #|Doas configuration services|#
(service doas-service-type (service doas-service-type
(append #|Miscellaneous|# (append #|Miscellaneous|#
(list (permit (identity ":wheel") (list (permit (identity ":wheel")
@ -291,5 +291,5 @@
(service sysctl-service-type (service sysctl-service-type
(sysctl-configuration (sysctl-configuration
(sysctl (file-append procps "/sbin/sysctl")) (sysctl (file-append procps "/sbin/sysctl"))
(settings '(("fs.protected_hardlinks" . "1") (settings `(("fs.protected_hardlinks" . "1")
("fs.protected_symlinks" . "1")))))))) ("fs.protected_symlinks" . "1"))))))))