From 2ee866228ce66170c3a546a4a566ccaec92f9af8 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Tue, 1 Oct 2024 00:50:47 +0200 Subject: refactor(users): drop user id1001 --- users/id1001.scm | 45 --------------------------------------------- 1 file changed, 45 deletions(-) delete mode 100644 users/id1001.scm 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*))))) -- cgit v1.2.3