diff options
| -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*)) |