diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2025-03-13 11:50:24 +0100 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2025-03-13 11:50:24 +0100 |
| commit | 9bce258be1a1e28f3253f3562b6137e2627c95bb (patch) | |
| tree | 1971187485bac9bb30b5731b7be2cfb5fa92c2c5 /suweren | |
| parent | bb88185b2b58883c2404777a04f368d61f1e2c93 (diff) | |
degrade update-commands function to a procedure
Diffstat (limited to 'suweren')
| -rw-r--r-- | suweren/home.scm | 5 | ||||
| -rw-r--r-- | suweren/update.scm | 2 |
2 files changed, 3 insertions, 4 deletions
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*)) |