diff options
| -rw-r--r-- | systems/aisaka.scm | 14 | ||||
| -rw-r--r-- | users/id1001.scm | 46 |
2 files changed, 57 insertions, 3 deletions
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*))))) |