summaryrefslogtreecommitdiff
path: root/users/id1001.scm
diff options
context:
space:
mode:
Diffstat (limited to 'users/id1001.scm')
-rw-r--r--users/id1001.scm46
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*)))))