update: prepare update-commands to not need any arguments

1 files changed, 11 insertions, 18 deletions

diff --git a/suweren/update.scm b/suweren/update.scm
index d8dd93e..cc10dfd 100644
--- a/suweren/update.scm
+++ b/suweren/update.scm
@@ -37,13 +37,6 @@
 
 ;; string ->
 ;; string
-(define (system-definition host-name*)
-  (string-append "'(@ (sovereign systems "
-		 host-name*
-		 ") operating-system*)'"))
-
-;; string ->
-;; string
 (define (reconfigure-system system-definition*)
   (string-append "sudo guix system reconfigure -e "
 		 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*)))