guix: updates to chaman's system configuration
authorAmin Bandali <mab@gnu.org>
Thu, 23 Jan 2020 15:02:10 +0000 (10:02 -0500)
committerAmin Bandali <mab@gnu.org>
Thu, 23 Jan 2020 18:23:21 +0000 (13:23 -0500)
- update device uuids
- change username from bandali to mab
- use cons* instead of appendāˆ˜list once again

.config/guix/system/chaman.scm

index e40a11c..6a359fb 100644 (file)
  (mapped-devices
   (list (mapped-device
          (source
  (mapped-devices
   (list (mapped-device
          (source
-          (uuid "9a96bc64-ab47-49f9-aae0-d7ddeabc4011"))
+          (uuid "283da85e-2c84-47e6-a8ca-20f4e8efb806"))
          (target "groot")
          (type luks-device-mapping))
         (mapped-device
          (source
          (target "groot")
          (type luks-device-mapping))
         (mapped-device
          (source
-          (uuid "8cb5bde9-fe13-4490-87a1-caf3e1a2ee52"))
+          (uuid "017ddebc-c2c3-4a0a-bda4-d47ec0bc67f0"))
          (target "data")
          (type luks-device-mapping))))
  (file-systems
          (target "data")
          (type luks-device-mapping))))
  (file-systems
@@ -37,9 +37,9 @@
          %base-file-systems))
  (users
   (cons* (user-account
          %base-file-systems))
  (users
   (cons* (user-account
-          (name "bandali")
+          (name "mab")
           (group "users")
           (group "users")
-          (home-directory "/home/bandali")
+          (home-directory "/home/mab")
           (supplementary-groups
            '("wheel" "netdev" "audio" "video")))
          %base-user-accounts))
           (supplementary-groups
            '("wheel" "netdev" "audio" "video")))
          %base-user-accounts))
@@ -48,9 +48,9 @@
    (list (specification->package "nss-certs"))
    %base-packages))
  (services
    (list (specification->package "nss-certs"))
    %base-packages))
  (services
-  (append
-   (list (service xfce-desktop-service-type)
-         (set-xorg-configuration
-          (xorg-configuration
-           (keyboard-layout keyboard-layout))))
+  (cons*
+   (service xfce-desktop-service-type)
+   (set-xorg-configuration
+    (xorg-configuration
+     (keyboard-layout keyboard-layout)))
    %desktop-services)))
    %desktop-services)))