summaryrefslogtreecommitdiff
path: root/system-configuration.scm
diff options
context:
space:
mode:
Diffstat (limited to 'system-configuration.scm')
-rw-r--r--system-configuration.scm36
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")