From bd04f642702bc2a77fe9b17d7f6ca417cfd61f23 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Mon, 17 Jun 2024 11:08:14 +0200
Subject: add alias for update with channel downgrades

---
 suweren/update.scm | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

(limited to 'suweren')

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))))
     
-- 
cgit v1.2.3