1 files changed, 46 insertions, 0 deletions
diff --git a/users/id1001.scm b/users/id1001.scm
new file mode 100644
index 0000000..2c065c4
--- /dev/null
+++ b/users/id1001.scm
@@ -0,0 +1,46 @@
+(define-module (users id1001)
+  ;; home-environment
+  #:use-module (gnu home)
+
+  ;; home-profile-service-type
+  ;; home-xdg-configuration-files-service-type
+  #:use-module (gnu home services)
+
+  ;; simple-service
+  #:use-module (gnu services)
+
+  ;; user-account
+  #:use-module (gnu system shadow)
+
+  ;; %suweren-home-services
+  #:use-module (suweren home))
+
+;; string
+(define-public uid1001-name
+  "lilia")
+
+;; (string) ->
+;; record user-account
+(define-public (uid1001-account supplementary-groups*)
+  (user-account (name uid1001-name)
+		(group "users")
+		(supplementary-groups supplementary-groups*)
+		(uid 1001)
+		(comment "Liliana Ruszuk")
+		(home-directory "/home/lilia")))
+
+;; record home-environment
+(define-public uid1001-home-environment
+  (lambda (host-name*)
+    (let* ((packages (list ))
+
+	   (profile (simple-service 'user-packages
+				    home-profile-service-type
+				    packages))
+
+	   (%suweren-home-services* (%suweren-home-services host-name*))
+	   (user-services (list profile))
+
+	   (services* (append %suweren-home-services*
+			      user-services)))
+      (home-environment (services services*)))))