diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-06-17 11:08:14 +0200 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-06-17 11:08:14 +0200 |
| commit | bd04f642702bc2a77fe9b17d7f6ca417cfd61f23 (patch) | |
| tree | 73707eb94bff15b91c23396c297c85b381da0909 | |
| parent | 357edec2121cf018db94c04633ba325ddba46e94 (diff) | |
add alias for update with channel downgrades
| -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)))) |