From mboxrd@z Thu Jan  1 00:00:00 1970
From: zimoun <zimon.toutoune@gmail.com>
Subject: Re: Store channel specification in profile
Date: Tue, 3 Mar 2020 22:49:17 +0100
Message-ID: <CAJ3okZ2EeVie7F1+s98upVjdrOi5r_3M+xTbN=CS_Fv9Esgb_A@mail.gmail.com>
References: <87blsyelgm.fsf@ambrevar.xyz> <m1h82q8ub3.fsf@khs-macbook.home>
 <87tv69bezo.fsf@gnu.org> <87zhg1xvmo.fsf@ambrevar.xyz>
 <CAJ3okZ2-Lniaw8ARXre7atDyHmWEeHwm25CkpbSdSk9un4r4OQ@mail.gmail.com>
 <874kx8gxh1.fsf@ambrevar.xyz>
 <CAJ3okZ0GGJAJ_YRSdm4we-YYwUTzi85RvJkMHnPkSzVjVxPWSw@mail.gmail.com>
 <87blreasgd.fsf@ambrevar.xyz> <87pnfpsgfx.fsf@gnu.org>
 <CAJ3okZ29N2B+ikwupN4cevzvZHpz0CK31tXoZcp50aPCtHKFAQ@mail.gmail.com>
 <87a76rqu5j.fsf@ambrevar.xyz>
 <CAJ3okZ1KWzjThKh2QF7RGBJuX+63QpY822NF6fuX9FkgddLRnw@mail.gmail.com>
 <877e1vqowd.fsf@ambrevar.xyz> <87zhe4px2a.fsf@ambrevar.xyz>
 <87wo91p9yt.fsf@gnu.org> <87eev8gewx.fsf@ambrevar.xyz>
 <87pneq140d.fsf@gnu.org>
 <8736bldmzr.fsf@ambrevar.xyz> <87zhdp2p16.fsf@gnu.org>
 <87imkdky1w.fsf@ambrevar.xyz> <87ftf0j6zq.fsf@gnu.org>
Mime-Version: 1.0
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
Return-path: <guix-devel-bounces+gcggd-guix-devel=m.gmane-mx.org@gnu.org>
Received: from eggs.gnu.org ([2001:470:142:3::10]:37352)
 by lists.gnu.org with esmtp (Exim 4.90_1)
 (envelope-from <zimon.toutoune@gmail.com>) id 1j9FPw-0001rK-Va
 for guix-devel@gnu.org; Tue, 03 Mar 2020 16:49:33 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <zimon.toutoune@gmail.com>) id 1j9FPv-0002VR-R6
 for guix-devel@gnu.org; Tue, 03 Mar 2020 16:49:32 -0500
In-Reply-To: <87ftf0j6zq.fsf@gnu.org>
List-Id: "Development of GNU Guix and the GNU System distribution."
 <guix-devel.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/guix-devel>,
 <mailto:guix-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <https://lists.gnu.org/archive/html/guix-devel>
List-Post: <mailto:guix-devel@gnu.org>
List-Help: <mailto:guix-devel-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/guix-devel>,
 <mailto:guix-devel-request@gnu.org?subject=subscribe>
Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane-mx.org@gnu.org
Sender: "Guix-devel"
 <guix-devel-bounces+gcggd-guix-devel=m.gmane-mx.org@gnu.org>
To: =?UTF-8?Q?Ludovic_Court=C3=A8s?= <ludo@gnu.org>
Cc: Guix Devel <guix-devel@gnu.org>

Hi Ludo,

On Mon, 24 Feb 2020 at 17:16, Ludovic Court=C3=A8s <ludo@gnu.org> wrote:

> > ;; Thanks to Ivan Vilata-i-Balaguer for this:
> > (define (guix-commit)
> >   (let ((guix-manifest (profile-manifest (string-append (getenv "HOME")=
 "/.config/guix/current"))))
> >     (match (assq 'source (manifest-entry-properties (car (manifest-entr=
ies guix-manifest))))
> >       (('source ('repository ('version 0) _ _
> >                              ('commit commit) _ ...))
> >        commit)
> >       (_ #f))))
> >
> > (match (command-line)
> >   ((_ where)
> >    (format #t ";; commit: ~a\n" (guix-commit))
> >    (pretty-print
> >     `(specifications->manifest
> >       ',(guix-manifest where))))
>
> Emitting channel info as comments like this, and/or a warning when
> there=E2=80=99s a conflict (packages coming from different commits of the=
 same
> channel) could be done as a second step.

The snippet uses the last commit of "guix pull", right?
Or the commit of last installed package with "guix package -i"?

Even if it can be done as a second step, the commits of each installed
packages are IMHO the key point of the exporter. Because otherwise, I
am doing "guix package -I | cut" and I am almost done.

Cheers,
simon