add initial home-environment to id1001

1 files changed, 23 insertions, 3 deletions

diff --git a/users/id1001.scm b/users/id1001.scm
index 96f0b46..745cf75 100644
--- a/users/id1001.scm
+++ b/users/id1001.scm
@@ -4,11 +4,31 @@
 (define-module (users id1001)
   #:use-module ( (deployment users)
                  #:prefix deployment:users:)
+  #:use-module ( (gnu home)
+                 #:prefix gnu:home:)
   #:use-module ( (gnu system accounts)
-                 #:prefix gnu:system:accounts:))
+                 #:prefix gnu:system:accounts:)
+  #:use-module ( (sovereign services admin)
+                 #:prefix sovereign:services:admin:)
+  #:use-module ( (sovereign systems)
+                 #:prefix sovereign:systems:))
 
-(define-public uid1001-account
+(define name
+  "janusz")
+
+(define home-environment
+  (let
+    ( (l-services (list sovereign:services:admin:update-commands)))
+    (gnu:home:home-environment
+      (packages sovereign:systems:common-home-environment-packages)
+      (services l-services))))
+
+(define-public name/home-environment
+  (list name
+        home-environment))
+
+(define-public user-account
   (gnu:system:accounts:user-account
-    (name     "janusz")
+    (name     name)
     (password deployment:users:initial-password)
     (group    "users")))