Add garbage collection to system-update

2 files changed, 12 insertions, 4 deletions

diff --git a/aisaka.org b/aisaka.org
index 3b8af7c..f397c0c 100644
--- a/aisaka.org
+++ b/aisaka.org
@@ -194,14 +194,18 @@ https://guix.gnu.org/en/manual/devel/en/html_node/Home-Configuration.html
     "&& ")
 
   (define system-update
-    (string-append pull-guix
+    (string-append "sudo guix gc -d 7d "
+                   and
+                   pull-guix
                    and
                    reconfigure-system
                    and
                    reconfigure-home))
 
   (define system-update-
-    (string-append pull-guix-
+    (string-append "sudo guix gc -d 7d "
+                   and
+                   pull-guix-
                    and
                    reconfigure-system-
                    and
diff --git a/home-configuration.scm b/home-configuration.scm
index f35ae53..c3dee97 100644
--- a/home-configuration.scm
+++ b/home-configuration.scm
@@ -56,14 +56,18 @@
   "&& ")
 
 (define system-update
-  (string-append pull-guix
+  (string-append "sudo guix gc -d 7d "
+                 and
+                 pull-guix
                  and
                  reconfigure-system
                  and
                  reconfigure-home))
 
 (define system-update-
-  (string-append pull-guix-
+  (string-append "sudo guix gc -d 7d "
+                 and
+                 pull-guix-
                  and
                  reconfigure-system-
                  and