From mboxrd@z Thu Jan  1 00:00:00 1970
From: Pierre Neidhardt <mail@ambrevar.xyz>
Subject: Re: How do I install packages from a file without removing currently
	installed packages?
Date: Sat, 11 May 2019 10:55:23 +0200
Message-ID: <87woixz7yc.fsf@ambrevar.xyz>
References: <16aa278da65.c6dd197c22998.5984578131160668235@zoho.com>
	<87zhntfl5h.fsf@roquette.mug.biscuolo.net>
Mime-Version: 1.0
Content-Type: multipart/signed; boundary="=-=-=";
	micalg=pgp-sha256; protocol="application/pgp-signature"
Return-path: <help-guix-bounces+gcggh-help-guix=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([209.51.188.92]:49847)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <mail@ambrevar.xyz>) id 1hPNn0-0001TG-If
	for help-guix@gnu.org; Sat, 11 May 2019 04:55:31 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <mail@ambrevar.xyz>) id 1hPNmz-0004M5-Br
	for help-guix@gnu.org; Sat, 11 May 2019 04:55:30 -0400
Received: from relay10.mail.gandi.net ([217.70.178.230]:34857)
	by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32)
	(Exim 4.71) (envelope-from <mail@ambrevar.xyz>) id 1hPNmz-00049W-4t
	for help-guix@gnu.org; Sat, 11 May 2019 04:55:29 -0400
In-Reply-To: <87zhntfl5h.fsf@roquette.mug.biscuolo.net>
List-Id: <help-guix.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/help-guix>,
	<mailto:help-guix-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/help-guix/>
List-Post: <mailto:help-guix@gnu.org>
List-Help: <mailto:help-guix-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/help-guix>,
	<mailto:help-guix-request@gnu.org?subject=subscribe>
Errors-To: help-guix-bounces+gcggh-help-guix=m.gmane.org@gnu.org
Sender: "Help-Guix" <help-guix-bounces+gcggh-help-guix=m.gmane.org@gnu.org>
To: Giovanni Biscuolo <g@xelera.eu>, sirgazil <sirgazil@zoho.com>, help-guix <help-guix@gnu.org>

--=-=-=
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable

Improved manifest generator (https://ambrevar.xyz/guix-advance/index.html):

=2D-8<---------------cut here---------------start------------->8---
(use-modules (guix profiles)
	     (ice-9 match)
	     (ice-9 pretty-print))

(define (guix-manifest where)
  (sort (map (lambda (entry)
		     (let ((out (manifest-entry-output entry)))
		       (if (string=3D out "out")
			   (manifest-entry-name entry)
			   (format #f "~a:~a"
				   (manifest-entry-name entry)
				   (manifest-entry-output entry)))))
		   (manifest-entries (profile-manifest where)))
	string<?))

;; 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-entries =
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))))
  (_ (error "Please provide the path to a Guix profile.")))
=2D-8<---------------cut here---------------end--------------->8---

This includes the package outputs, sort everything and includes the Guix co=
mmit.

Cheers!

=2D-=20
Pierre Neidhardt
https://ambrevar.xyz/

--=-=-=
Content-Type: application/pgp-signature; name="signature.asc"

-----BEGIN PGP SIGNATURE-----

iQEzBAEBCAAdFiEEUPM+LlsMPZAEJKvom9z0l6S7zH8FAlzWjfsACgkQm9z0l6S7
zH9cJAf+OXI2mT/ZrStHrxN4NpjuySwjGpso0PGV8E4gPupIFBy1m5dnlERtjUgv
SKY7fxdRQ6WMgwM2PHxahg7tw7g5ZxYRLrX8J+KuUF6zOJyHqaWZ7dOjjra22sp6
vmtwn51EhgYXtQTdYClrIf/6ivsxVam66yR2IUSfzu2+CrcZkkQpH81iy0rEvIAc
+rMa1mcUvlgI9s/mfjVvvWxh2BE2e9KeIXA2+9a/gD19GI978uHQbY63HUnX8hrn
sV4hcmzNixlGKlDxSKxlS3nNTV/efg2jZc8ot2zS3bR6qBbGe1a2YfUBNTl5mJr+
I65MsaiQ28JmP8CVffc8yB94f3+d8w==
=+V26
-----END PGP SIGNATURE-----
--=-=-=--