From bb88185b2b58883c2404777a04f368d61f1e2c93 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Wed, 12 Mar 2025 07:22:38 +0100 Subject: update: prepare update-commands to not need any arguments --- suweren/update.scm | 29 +++++++++++------------------ 1 file changed, 11 insertions(+), 18 deletions(-) (limited to 'suweren/update.scm') diff --git a/suweren/update.scm b/suweren/update.scm index d8dd93e..cc10dfd 100644 --- a/suweren/update.scm +++ b/suweren/update.scm @@ -35,13 +35,6 @@ " ; " delete-garbage)) -;; string -> -;; string -(define (system-definition host-name*) - (string-append "'(@ (sovereign systems " - host-name* - ") operating-system*)'")) - ;; string -> ;; string (define (reconfigure-system system-definition*) @@ -79,15 +72,15 @@ ;; string -> ;; record service -(define-public (update-commands host-name*) - (let* ((system-definition* (system-definition host-name*)) - (reconfigure-system* (reconfigure-system system-definition*)) - (test-update* (test-update reconfigure-system*)) - (update-system* (update-system reconfigure-system*)) - (aliases* (aliases reconfigure-system* - test-update* - update-system*)) - (service-extension* (gnu:home:services:shells:home-bash-extension (aliases aliases*)))) +(define-public (update-commands system-name*) + (let* + ( (reconfigure-system* (reconfigure-system "\"(@ (sovereign systems $HOSTNAME) operating-system*)\"")) + (test-update* (test-update reconfigure-system*)) + (update-system* (update-system reconfigure-system*)) + (aliases* (aliases reconfigure-system* + test-update* + update-system*)) + (service-extension* (gnu:home:services:shells:home-bash-extension (aliases aliases*)))) (simple-service 'update-commands - gnu:home:services:shells:home-bash-service-type - service-extension*))) + gnu:home:services:shells:home-bash-service-type + service-extension*))) -- cgit v1.2.3