diff options
Diffstat (limited to 'suweren/update.scm')
| -rw-r--r-- | suweren/update.scm | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/suweren/update.scm b/suweren/update.scm index 5c7da9e..23d2e60 100644 --- a/suweren/update.scm +++ b/suweren/update.scm @@ -3,7 +3,8 @@ #:use-module (gnu services)) (define-public update-commands - (let* ((and "&& ") + (let* ((allow-downgrades "--allow-downgrades ") + (and "&& ") (collect-garbage "sudo guix gc -d 7d ") (pull-guix "guix pull ") (reconfigure-home (string-append "guix home " @@ -19,6 +20,16 @@ "'(@ (systems ayase " "system-configuration) ayase)'")) + (reupdate-system (string-append pull-guix + allow-downgrades + and + reconfigure-system + allow-downgrades + and + reconfigure-home + allow-downgrades + and + collect-garbage)) (update-system (string-append pull-guix and reconfigure-system @@ -26,12 +37,13 @@ reconfigure-home and collect-garbage)) - + (aliases `(("collect-garbage" . ,collect-garbage) ("pull-guix" . ,pull-guix) ("reconfigure-home" . ,reconfigure-home) ("reconfigure-system" . ,reconfigure-system) - ("update-system" . ,update-system))) + ("update-system" . ,update-system) + ("reupdate-system" . ,reupdate-system))) (value (home-bash-extension (aliases aliases)))) |