From 1e11b28af5a303fe8d3d5d00c35e5c24aa214bd7 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Fri, 12 Sep 2025 12:18:48 +0200
Subject: add initial home-environment to id1001

---
 users/id1001.scm | 26 +++++++++++++++++++++++---
 1 file changed, 23 insertions(+), 3 deletions(-)

(limited to 'users')

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")))
-- 
cgit v1.2.3