From 9bce258be1a1e28f3253f3562b6137e2627c95bb Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Thu, 13 Mar 2025 11:50:24 +0100 Subject: degrade update-commands function to a procedure --- suweren/home.scm | 5 ++--- suweren/update.scm | 2 +- 2 files changed, 3 insertions(+), 4 deletions(-) (limited to 'suweren') diff --git a/suweren/home.scm b/suweren/home.scm index e887caf..fba7fdb 100644 --- a/suweren/home.scm +++ b/suweren/home.scm @@ -84,14 +84,13 @@ (profile (simple-service 'default-home-packages home-profile-service-type packages)) - (shepherd (service home-shepherd-service-type)) - (update-commands* (update-commands host-name*))) + (shepherd (service home-shepherd-service-type))) (list dbus pipewire profile shepherd suweren-home-fontconfig-service-type - update-commands* + update-commands (simple-service 'environment-variables home-environment-variables-service-type diff --git a/suweren/update.scm b/suweren/update.scm index cc10dfd..b196e97 100644 --- a/suweren/update.scm +++ b/suweren/update.scm @@ -72,7 +72,7 @@ ;; string -> ;; record service -(define-public (update-commands system-name*) +(define-public update-commands (let* ( (reconfigure-system* (reconfigure-system "\"(@ (sovereign systems $HOSTNAME) operating-system*)\"")) (test-update* (test-update reconfigure-system*)) -- cgit v1.2.3