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

---
 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 ea2b232..c1f092c 100644
--- a/home-configuration.scm
+++ b/home-configuration.scm
@@ -20,16 +20,23 @@
 (define pull-guix-
   "pull-guix --allow-downgrades --disable-authentication")
 
+(define reconfigure-home
+  (string-append "guix home reconfigure "
+		 config-prefix
+		 "home-configuration.scm"))
+
+(define reconfigure-home-
+  (string-append reconfigure-home
+		 "--allow-downgrades"))
+
 (define home-aliases
   `(("grep" . "grep --color=auto")
     ("ll" . "ls -l")
     ("ls" . "ls -p --color=auto")
     ("pull-guix" . ,pull-guix)
     ("pull-guix-" . ,pull-guix-)
-    ("reconfigure-home" . (string-append "guix home reconfigure "
-					 ,config-prefix
-					 "home-configuration.scm"))
-    ("reconfigure-home-" . "reconfigure-home --allow-downgrades")
+    ("reconfigure-home" . ,reconfigure-home)
+    ("reconfigure-home-" . ,reconfigure-home-)
     ("reconfigure-system" . (string-append "sudo guix system reconfigure "
 					   ,config-prefix
 					   "system-configuration.scm"))
-- 
cgit v1.2.3