diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2025-03-13 14:09:31 +0100 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2025-03-13 14:09:31 +0100 |
| commit | 42c4d26ddc9432b65b0b083f676adc4bcdd6de87 (patch) | |
| tree | e3fc2e88503d43bfa19452907445cd7538bc5d4f /users/id1000.scm | |
| parent | beccd21703964b6dfdce174cfb5ab41ae6f7ac36 (diff) | |
degrade the uid1000-home-environment function to a procedure
Diffstat (limited to 'users/id1000.scm')
| -rw-r--r-- | users/id1000.scm | 57 |
1 files changed, 28 insertions, 29 deletions
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)))) |