diff options
Diffstat (limited to 'system-configuration.scm')
| -rw-r--r-- | system-configuration.scm | 36 |
1 files changed, 18 insertions, 18 deletions
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") |