From 9f355ffc1ebb67f2fd4d2962f712590be23290f5 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Thu, 1 Aug 2024 21:20:15 +0200
Subject: config(aisaka): add a new user

---
 systems/aisaka.scm | 14 +++++++++++---
 users/id1001.scm   | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 57 insertions(+), 3 deletions(-)
 create mode 100644 users/id1001.scm

diff --git a/systems/aisaka.scm b/systems/aisaka.scm
index 5b1efa8..be3b4cf 100644
--- a/systems/aisaka.scm
+++ b/systems/aisaka.scm
@@ -23,7 +23,12 @@
   ;; uid1000-account
   ;; uid1000-home-environment
   ;; uid1000-name
-  #:use-module (users id1000))
+  #:use-module (users id1000)
+
+  ;; uid1001-account
+  ;; uid1001-home-environment
+  ;; uid1001-name
+  #:use-module (users id1001))
 
 ;; string
 (define host-name*
@@ -33,13 +38,16 @@
 (define users*
   (let* ((system-groups (list "wheel"))
 
+	 (supplementary-groups hardware-groups)
 	 (supplementary-groups* (append hardware-groups
 					system-groups)))
-    (list (uid1000-account supplementary-groups*))))
+    (list (uid1000-account supplementary-groups*)
+	  (uid1001-account supplementary-groups))))
 
 ;; record operating-system
 (define-public operating-system*
-  (let* ((home-environments `((,uid1000-name ,(uid1000-home-environment host-name*))))
+  (let* ((home-environments `((,uid1000-name ,(uid1000-home-environment host-name*))
+			      (,uid1001-name ,(uid1001-home-environment host-name*))))
 
 	 (guix-home (service guix-home-service-type
 			     home-environments))
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*)))))
-- 
cgit v1.2.3