From 9f355ffc1ebb67f2fd4d2962f712590be23290f5 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Thu, 1 Aug 2024 21:20:15 +0200 Subject: config(aisaka): add a new user --- users/id1001.scm | 46 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 users/id1001.scm (limited to 'users') 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