From c4d5ded8e03e76b67daba2ea6050d7d3f6c9c1d8 Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <address@hidden>
Date: Sun, 9 Dec 2018 14:33:17 +0100
Subject: [PATCH] guix scripts: Mention Guix checkouts + gcroots/auto when
 warning about disk space.

* guix/scripts.scm (warn-about-disk-space): Mention Guix checkouts and
gcroots/auto.
---
 guix/scripts.scm | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/guix/scripts.scm b/guix/scripts.scm
index 5e20ecd92..565a0a65c 100644
--- a/guix/scripts.scm
+++ b/guix/scripts.scm
@@ -212,13 +212,20 @@ available."
                (* ratio 100) (%store-prefix))
       (if profile
           (display-hint (format #f (G_ "Consider deleting old profile
-generations and collecting garbage, along these lines:
+generations, deleting old Guix checkouts and collecting garbage, along these
+lines:
 
 @example
-guix package -p ~s --delete-generations=1m
-guix gc
address@hidden example\n")
-                                profile))
+guix package --profile=~s --delete-generations=1m
+guix package --profile=~s --delete-generations=1m
+guix gc --free-space=5G
address@hidden example
+
+You might also want to delete old non-default profiles pointed to by
+the symlinks in /var/guix/gcroots/auto (broken symlinks in this
+directory will be automatically removed).")
+                                profile
+                                (string-append (config-directory #:ensure? #f) "/current")))
           (display-hint (G_ "Consider running @command{guix gc} to free
 space."))))))
 
-- 
2.19.2