diff options
author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-10-01 00:50:47 +0200 |
---|---|---|
committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-10-01 00:50:47 +0200 |
commit | 2ee866228ce66170c3a546a4a566ccaec92f9af8 (patch) | |
tree | 2254b52bb3b73833c211b394b71299d8780bf6ba | |
parent | d64a4fd72808223ce0a883318a3ea106c1008b29 (diff) |
refactor(users): drop user id1001
-rw-r--r-- | users/id1001.scm | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/users/id1001.scm b/users/id1001.scm deleted file mode 100644 index 26a76f6..0000000 --- a/users/id1001.scm +++ /dev/null @@ -1,45 +0,0 @@ -(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 - (user-account (name uid1001-name) - (group "users") - (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*))))) |