diff options
author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-08-01 21:20:15 +0200 |
---|---|---|
committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-08-17 16:54:51 +0200 |
commit | 9f355ffc1ebb67f2fd4d2962f712590be23290f5 (patch) | |
tree | 97ad1b656946bbdf9fd4979ce58ec234234373a1 /users | |
parent | f891f201ac5487f2a90c0cd906d71cae9fe73c08 (diff) |
config(aisaka): add a new user
Diffstat (limited to 'users')
-rw-r--r-- | users/id1001.scm | 46 |
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*))))) |