bug#36374: ‘guix pull’ should not suggest running ‘guix pull’

[Julien Lepiller <julien@lepiller.eu>]

[-- Attachment #1: Type: text/plain, Size: 717 bytes --]

Le 25 juin 2019 16:08:19 GMT+02:00, "Ludovic Courtès" <ludo@gnu.org> a écrit :
>The article at
><https://distrowatch.com/weekly.php?issue=20190624#guixsd> has a
>screenshot showing ‘guix pull’ suggesting to run ‘guix pull && guix
>package -u’.  This is obviously wrong.
>
>Ludo’.

Here is a patch to address this issue on Guix System. It creates new files in /etc/skel: an initial profile (.config/guix/initial) tgat only contains a symlink to /run/current-system/profile/bin/guix and the current profile as a symlink to the initial profile.

At first boot, and for new users, guix well be found in the current profile, and stays there after guix pull, so we don't need to use hash guix anymore.

[-- Attachment #2: 0001-gnu-system-Symlink-guix-inside-an-initial-guix-pull-.patch --]
[-- Type: application/octet-stream, Size: 1536 bytes --]

From 89b5fa77af87e1a1537c10e929439a902806cc5c Mon Sep 17 00:00:00 2001
From: Julien Lepiller <julien@lepiller.eu>
Date: Wed, 26 Jun 2019 14:24:55 +0200
Subject: [PATCH] gnu: system: Symlink guix inside an initial guix pull
 profile.

This patch adds an initial guix pull profile to the skeletons files used
on Guix System.  This ensures that users don't have to type 'hash guix'
after their first guix pull, and prevents 'guix pull' from suggesting to
run 'guix pull' after it finished successfuly.

* gnu/system/shadow.scm (skeleton-directory): Symlink guix inside an
initial guix pull profile.
---
 gnu/system/shadow.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/gnu/system/shadow.scm b/gnu/system/shadow.scm
index 13b8b14095..837be44b2c 100644
--- a/gnu/system/shadow.scm
+++ b/gnu/system/shadow.scm
@@ -223,6 +223,12 @@ for a colorful Guile experience.\\n\\n\"))))\n"))
                                    ((target source)
                                     (copy-recursively source target)))
                                  '#$skeletons)
+
+                       ;; Symlink the current profile to a default system profile.
+                       (mkdir-p (string-append #$output "/.config/guix/initial/bin"))
+                       (symlink "/run/current-system/profile/bin/guix"
+                                ".config/guix/initial/bin/guix")
+                       (symlink "initial" ".config/guix/current")
                        #t))))
 
 (define (assert-valid-users/groups users groups)
-- 
2.21.0