diff options
Diffstat (limited to 'suweren')
| -rw-r--r-- | suweren/update.scm | 29 |
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*))) |