[system] Format system.scm.

diff --git a/system.scm b/system.scm
index 2f052aaff622f32fb58abdde5786486939c03dd5..06613b57992cc6cb53a50ea626f7d342c3a2248f 100644 (file)
--- a/system.scm
+++ b/system.scm
@@ -4,22 +4,22 @@
 ;; system.scm - system configuration for GNU Guix.
 
 (use-modules (conf system bluetooth)
-            (conf system desktop)
+             (conf system desktop)
              (conf system dns)
              (conf system volume)
              (gnu)
              (gnu system nss))
 
 (use-package-modules base
-                    certs
-                    linux
-                    pulseaudio
-                    xdisorg)
+                     certs
+                     linux
+                     pulseaudio
+                     xdisorg)
 
 (use-service-modules desktop)
 
 (use-system-modules nss
-                   setuid)
+                    setuid)
 
 (operating-system
  (kernel linux-libre)
@@ -35,42 +35,42 @@
  (host-name "machine")
  (mapped-devices
   (list (mapped-device
-        (source
-         (uuid "565d174f-3d96-45a1-8bef-fdab38e4d35a"))
-        (target "fde")
-        (type luks-device-mapping))
-       (mapped-device
-        (source "matrix")
-        (targets
-         (list "matrix-rootvol" "matrix-swapvol"))
-        (type lvm-device-mapping))))
+         (source
+          (uuid "565d174f-3d96-45a1-8bef-fdab38e4d35a"))
+         (target "fde")
+         (type luks-device-mapping))
+        (mapped-device
+         (source "matrix")
+         (targets
+          (list "matrix-rootvol" "matrix-swapvol"))
+         (type lvm-device-mapping))))
  (file-systems
   (append
    (list (file-system
-         (type "ext4")
-         (mount-point "/")
-         (device (file-system-label "root"))
-         (flags '(no-atime))
-         (needed-for-boot? #t)
-         (dependencies mapped-devices)))
+          (type "ext4")
+          (mount-point "/")
+          (device (file-system-label "root"))
+          (flags '(no-atime))
+          (needed-for-boot? #t)
+          (dependencies mapped-devices)))
    %base-file-systems))
  (swap-devices
   (list (file-system-label "swap")))
  (users
   (append
    (list (user-account
-         (name "dak")
-         (group "users")
-         (supplementary-groups
-          (list "audio" "cdrom" "lp" "netdev" "tape" "video" "wheel"))))
+          (name "dak")
+          (group "users")
+          (supplementary-groups
+           (list "audio" "cdrom" "lp" "netdev" "tape" "video" "wheel"))))
    %base-user-accounts))
  (packages
   (append
    (list gnu-make
-        nss-certs
-        bluez
-        pulseaudio
-        volume)
+         nss-certs
+         bluez
+         pulseaudio
+         volume)
    dwm-desktop-packages
    %base-packages))
  (timezone "Europe/Warsaw")
@@ -84,6 +84,6 @@
  (services
   (append
    (list bluez-service
-        dnscrypt-proxy-service
-        keyboard-layout-service)
+         dnscrypt-proxy-service
+         keyboard-layout-service)
    %desktop-services)))