diff options
| author | Marek Paśnikowski <marekpasnikowski@protonmail.com> | 2022-10-23 22:17:26 +0200 |
|---|---|---|
| committer | Marek Paśnikowski <marekpasnikowski@protonmail.com> | 2022-10-23 22:17:26 +0200 |
| commit | bfaf76642ba785348ad74229a625068a32f13361 (patch) | |
| tree | 6f4798e838cb2ab4c17a43256e446e5cc28963d3 | |
| parent | 0cbb480af530cd2b41816cb0068bdcfa24813097 (diff) | |
Transform all remaining list constructors to quotes
* This improves code readability by explicitly differentiating
lists of static objects from lists of dynamic objects.
| -rw-r--r-- | home-configuration.scm | 4 | ||||
| -rw-r--r-- | system-configuration.scm | 36 |
2 files changed, 20 insertions, 20 deletions
diff --git a/home-configuration.scm b/home-configuration.scm index fa3b350..bfe0773 100644 --- a/home-configuration.scm +++ b/home-configuration.scm @@ -54,5 +54,5 @@ "bashrc"))))) ,(simple-service 'dot-files home-files-service-type - (list `(".emacs" ,(local-file "emacs.el")) - `(".ssh/config" ,(local-file "ssh.config")))))))) + `(,`(".emacs" ,(local-file "emacs.el")) + ,`(".ssh/config" ,(local-file "ssh.config")))))))) diff --git a/system-configuration.scm b/system-configuration.scm index d839511..778dcbe 100644 --- a/system-configuration.scm +++ b/system-configuration.scm @@ -17,28 +17,28 @@ %base-user-accounts)) (packages (append (map (compose list specification->package+output) - (list "guile-spec" - "netcat-openbsd" - "nss-certs" - "trezord" - "trezord-udev-rules")) + '("guile-spec" + "netcat-openbsd" + "nss-certs" + "trezord" + "trezord-udev-rules")) %base-packages)) - (services (append (list (service cups-service-type - (cups-configuration (extensions (list cups-filters - epson-inkjet-printer-escpr)) - (web-interface? #t))) - (service openssh-service-type) - (service gnome-desktop-service-type) - (service tor-service-type) - (set-xorg-configuration (xorg-configuration (keyboard-layout keyboard-layout)))) + (services (append `(,(service cups-service-type + (cups-configuration (extensions `(,cups-filters + ,epson-inkjet-printer-escpr)) + (web-interface? #t))) + ,(service openssh-service-type) + ,(service gnome-desktop-service-type) + ,(service tor-service-type) + ,(set-xorg-configuration (xorg-configuration (keyboard-layout keyboard-layout)))) %desktop-services)) (bootloader (bootloader-configuration (bootloader grub-bootloader) - (targets (list "/dev/sda")) + (targets '("/dev/sda")) (keyboard-layout keyboard-layout))) - (swap-devices (list (swap-space (target (uuid "73bed3f9-be07-40ad-a228-577cd24f2e1d"))))) - (mapped-devices (list (mapped-device (source (uuid "887ac37f-2919-41a0-a62a-e1ff5ea2d6cc")) - (target "aisaka-root") - (type luks-device-mapping)))) + (swap-devices `(,(swap-space (target (uuid "73bed3f9-be07-40ad-a228-577cd24f2e1d"))))) + (mapped-devices `(,(mapped-device (source (uuid "887ac37f-2919-41a0-a62a-e1ff5ea2d6cc")) + (target "aisaka-root") + (type luks-device-mapping)))) (file-systems (cons* (file-system (mount-point "/") (device "/dev/mapper/aisaka-root") (type "btrfs") |