From 42c4d26ddc9432b65b0b083f676adc4bcdd6de87 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Thu, 13 Mar 2025 14:09:31 +0100 Subject: degrade the uid1000-home-environment function to a procedure --- users/id1000.scm | 57 ++++++++++++++++++++++++++++---------------------------- 1 file changed, 28 insertions(+), 29 deletions(-) (limited to 'users') diff --git a/users/id1000.scm b/users/id1000.scm index fb40b30..d051cf6 100644 --- a/users/id1000.scm +++ b/users/id1000.scm @@ -521,32 +521,31 @@ (home-directory "/home/marek"))) (define-public uid1000-home-environment - (lambda (host-name*) - (let* - ( (gitconfig-file (local-file "uid1000-gitconfig")) ; TODO modularize - (gitignore-file (local-file "uid1000-gitignore")) ; TODO review the contents - (gitconfig (list "git/config" - gitconfig-file)) - (gitignore (list "git/ignore" - gitignore-file)) - (git-configuration-files (list gitconfig - gitignore)) - (git-packages (list gnu:packages:version-control:git)) - (packages (list gnu:packages:disk:gparted - gnu:packages:kde:okular)) - (git-configuration (gnu:services:simple-service 'git-configuration - gnu:home:services:home-xdg-configuration-files-service-type - git-configuration-files)) - (git-software (gnu:services:simple-service 'git-packages - gnu:home:services:home-profile-service-type - git-packages)) - (profile (gnu:services:simple-service 'user-packages - gnu:home:services:home-profile-service-type - packages)) - (user-services (list bash - git-configuration - git-software - profile)) - (l-services (append suweren:home:%suweren-home-services - user-services))) - (gnu:home:home-environment (services l-services))))) + (let* + ( (gitconfig-file (local-file "uid1000-gitconfig")) ; TODO modularize + (gitignore-file (local-file "uid1000-gitignore")) ; TODO review the contents + (gitconfig (list "git/config" + gitconfig-file)) + (gitignore (list "git/ignore" + gitignore-file)) + (git-configuration-files (list gitconfig + gitignore)) + (git-packages (list gnu:packages:version-control:git)) + (packages (list gnu:packages:disk:gparted + gnu:packages:kde:okular)) + (git-configuration (gnu:services:simple-service 'git-configuration + gnu:home:services:home-xdg-configuration-files-service-type + git-configuration-files)) + (git-software (gnu:services:simple-service 'git-packages + gnu:home:services:home-profile-service-type + git-packages)) + (profile (gnu:services:simple-service 'user-packages + gnu:home:services:home-profile-service-type + packages)) + (user-services (list bash + git-configuration + git-software + profile)) + (l-services (append suweren:home:%suweren-home-services + user-services))) + (gnu:home:home-environment (services l-services)))) -- cgit v1.2.3