diff options
Diffstat (limited to 'suweren/update.scm')
-rw-r--r-- | suweren/update.scm | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/suweren/update.scm b/suweren/update.scm index 7c1ec35..2826b00 100644 --- a/suweren/update.scm +++ b/suweren/update.scm @@ -2,17 +2,27 @@ #:use-module (gnu home services shells) #:use-module (gnu services)) -(define-public update-commands +(define-public (update-commands system user) (let* ((allow-downgrades "--allow-downgrades ") (and "&& ") (collect-garbage "sudo guix gc -d 7d ") (pull-guix "guix pull ") (reconfigure-home (string-append "guix home delete-generations 7d ; " "guix home reconfigure -e " - "'(@ (users $USER) home)' ")) + "'((@ (users " + user + ") " + user + "-home-environment) \"" + system + "\")' ")) (reconfigure-system (string-append "sudo guix system delete-generations 7d ; " "sudo guix system reconfigure -e " - "'(@ (systems $HOSTNAME system-configuration) $HOSTNAME)' ")) + "'(@ (systems " + system + " system-configuration) " + system + ")' ")) (reupdate-system (string-append pull-guix allow-downgrades |