From dd407a7a15484cc52fa606041295696e2b5dcda3 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marekpasnikowski@protonmail.com>
Date: Mon, 31 Oct 2022 01:32:11 +0100
Subject: Home configuration: break out reconfigure-system and
 reconfigure-system-

---
 home-configuration.scm | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

(limited to 'home-configuration.scm')

diff --git a/home-configuration.scm b/home-configuration.scm
index 7a0a102..7b76bd0 100644
--- a/home-configuration.scm
+++ b/home-configuration.scm
@@ -29,6 +29,15 @@
   (string-append reconfigure-home
 		 "--allow-downgrades"))
 
+(define reconfigure-system
+  (string-append "sudo guix system reconfigure "
+		 config-prefix
+		 "system-configuration.scm"))
+
+(define reconfigure-system-
+  (string-append reconfigure-system
+		 "--allow-downgrades"))
+
 (define system-update
   "pull-guix && reconfigure-system && reconfigure-home")
 
@@ -43,10 +52,8 @@
     ("pull-guix-" . ,pull-guix-)
     ("reconfigure-home" . ,reconfigure-home)
     ("reconfigure-home-" . ,reconfigure-home-)
-    ("reconfigure-system" . (string-append "sudo guix system reconfigure "
-					   ,config-prefix
-					   "system-configuration.scm"))
-    ("reconfigure-system-" . "reconfigure-system --allow-downgrades")
+    ("reconfigure-system" . ,reconfigure-system)
+    ("reconfigure-system-" . ,reconfigure-system-)
     ("system-update" . ,system-update)
     ("system-update-" . ,system-update-)))
 
-- 
cgit v1.2.3