summaryrefslogtreecommitdiff
path: root/system-configuration.scm
diff options
context:
space:
mode:
Diffstat (limited to 'system-configuration.scm')
-rw-r--r--system-configuration.scm52
1 files changed, 29 insertions, 23 deletions
diff --git a/system-configuration.scm b/system-configuration.scm
index 4114d24..522b4d9 100644
--- a/system-configuration.scm
+++ b/system-configuration.scm
@@ -30,15 +30,18 @@
"video"
"wheel")))
%base-user-accounts))
- (packages (append (map (compose ; &rest
- list
- specification->package+output)
- '("netcat-openbsd"
- "nss-certs"
- "ntfs-3g"
- "trezord"
- "trezord-udev-rules"))
- %base-packages))
+ (packages
+ (append
+ (map
+ (compose ; &rest
+ list
+ specification->package+output)
+ '("netcat-openbsd"
+ "nss-certs"
+ "ntfs-3g"
+ "trezord"
+ "trezord-udev-rules"))
+ %base-packages))
(services (cons* ssh-service
(service cups-service-type
(cups-configuration (extensions `(,cups-filters
@@ -59,20 +62,23 @@
(targets '("/dev/sda"))
(keyboard-layout keyboard-layout)))
(swap-devices
- `(,(swap-space (target (uuid "73bed3f9-be07-40ad-a228-577cd24f2e1d")))))
+ (list
+ (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))))
+ (list
+ (mapped-device
+ (source (uuid "887ac37f-2919-41a0-a62a-e1ff5ea2d6cc"))
+ (target "aisaka-root")
+ (type luks-device-mapping))))
(file-systems
(append %base-file-systems
- `(,(file-system
- (mount-point "/")
- (device "/dev/mapper/aisaka-root")
- (type "btrfs")
- (dependencies mapped-devices))
- ,(file-system
- (mount-point "/boot")
- (device (uuid "4f77b5fc-56ad-43ae-b6ec-e5adc8c48587"))
- (type "ext4"))))))
+ (list
+ (file-system
+ (mount-point "/")
+ (device "/dev/mapper/aisaka-root")
+ (type "btrfs")
+ (dependencies mapped-devices))
+ (file-system
+ (mount-point "/boot")
+ (device (uuid "4f77b5fc-56ad-43ae-b6ec-e5adc8c48587"))
+ (type "ext4"))))))