Change Indentation Rules for NoWeb

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"))))))