From b85588311c23f7fc5985107404fbefde3abd47e6 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Wed, 23 Jul 2025 05:43:15 +0200 Subject: id1000: delete reference to %suweren-home-services from Deployment channel This removal is part of a process to decommission Deployment channel. --- The ultimate goal is to move useful code from Deployment channel to either Sovereign or Deployment channels. Everything else will be deleted and ultimately the entire channel will be removed from the net. --- The deleted reference contains in its definition variables from both upstream Guix and another Distribution module. Record uid1000-home-environment is the only user of the deleted reference. This definition is in outdated style. The (suweren home) module, defining the deleted reference, is also still imported by (deployment systems aisaka). --- The variables listed in the deleted reference are used directly in the modified record. This record is also restructured to match the current style. The imports of of (suweren home) module are deleted from all affected modules. Appropriate imports are added in (deployment users id1000). --- Nothing else depends on the deleted reference, so its definition can be safely deleted from Distribution channel. As it is the last definition in the module, the entire file can be deleted from the channel. --- users/id1000.scm | 66 ++++++++++++++++++++++++++++++++++---------------------- 1 file changed, 40 insertions(+), 26 deletions(-) (limited to 'users') diff --git a/users/id1000.scm b/users/id1000.scm index 9d56ae0..d299b19 100644 --- a/users/id1000.scm +++ b/users/id1000.scm @@ -5,6 +5,12 @@ #:prefix gnu:home:) #:use-module ( (gnu home services) #:prefix gnu:home:services:) + #:use-module ( (gnu home services desktop) + #:prefix gnu:home:services:desktop:) + #:use-module ( (gnu home services shepherd) + #:prefix gnu:home:services:shepherd:) + #:use-module ( (gnu home services sound) + #:prefix gnu:home:services:sound:) #:use-module ( (gnu home services shells) #:prefix gnu:home:services:shells:) #:use-module ( (gnu packages audio) @@ -25,8 +31,8 @@ #:prefix sovereign:services:fontutils:) #:use-module ( (sovereign systems) #:prefix sovereign:systems:) - #:use-module ( (suweren home) - #:prefix suweren:home:)) + #:use-module ( (suweren update) + #:prefix suweren:update:)) (guix:records:define-record-type* dkimproxy-out-signature-configuration @@ -544,30 +550,38 @@ (home-directory "/home/marek"))) (define-public uid1000-home-environment - (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-configuration (gnu:services:simple-service 'git-configuration - gnu:home:services:home-xdg-configuration-files-service-type - git-configuration-files)) - (user-services (list bash - sovereign:systems:bash-configuration - environment-variables - git-configuration - sovereign:services:fontutils:home-fontconfig-service-type)) - (l-services (append suweren:home:%suweren-home-services - user-services))) - (gnu:home:home-environment - (packages (cons* gnu:packages:version-control:git - gnu:packages:disk:gparted - sovereign:systems:common-home-environment-packages)) - (services l-services)))) + (let + ( (l-gitconfig-file (local-file "uid1000-gitconfig")) ; TODO modularize + (l-gitignore-file (local-file "uid1000-gitignore")) ; TODO review the contents + (l-home-dbus-service (gnu:services:service gnu:home:services:desktop:home-dbus-service-type)) + (l-home-pipewire-service (gnu:services:service gnu:home:services:sound:home-pipewire-service-type)) + (l-home-shepherd-service (gnu:services:service gnu:home:services:shepherd:home-shepherd-service-type))) + (let + ( (l-gitconfig (list "git/config" + l-gitconfig-file)) + (l-gitignore (list "git/ignore" + l-gitignore-file))) + (let* + ( (l-git-configuration-files (list l-gitconfig + l-gitignore)) + (l-git-configuration (gnu:services:simple-service 'git-configuration + gnu:home:services:home-xdg-configuration-files-service-type + l-git-configuration-files)) + (l-user-services (list bash + sovereign:systems:bash-configuration + environment-variables + l-git-configuration + sovereign:services:fontutils:home-fontconfig-service-type)) + (l-services (cons* suweren:update:update-commands + l-home-dbus-service + l-home-pipewire-service + l-home-shepherd-service + l-user-services))) + (gnu:home:home-environment + (packages (cons* gnu:packages:version-control:git + gnu:packages:disk:gparted + sovereign:systems:common-home-environment-packages)) + (services l-services)))))) (define-public name/home-environment (list uid1000-name -- cgit v1.2.3