From mboxrd@z Thu Jan  1 00:00:00 1970
From: ludo@gnu.org (Ludovic =?utf-8?Q?Court=C3=A8s?=)
Subject: Re: emacs package
Date: Thu, 18 Sep 2014 14:01:15 +0200
Message-ID: <8738bp16k4.fsf@gnu.org>
References: <CAKrPhPOB9-RRr8-LkaQ7rzQZPSob_g2u-H+ixDcjrCUa07bFKw@mail.gmail.com>
	<87y4tliahf.fsf@gnu.org>
	<CAKrPhPMPd_bF2FhzS=X7Y8Le_NPPiJZy-T6gac3craCj=AEM_Q@mail.gmail.com>
	<CAKrPhPMcdMUHLc=cBKTYxndy2NUGXGGOmC6x0XpVqJuSRRqKBw@mail.gmail.com>
	<87r3zabohm.fsf@gnu.org>
	<CAKrPhPP4BW1jhoFAT3zwajEsbzf8H97c=ttrSCY6Afs-V0FHKw@mail.gmail.com>
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.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:52205)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <ludo@gnu.org>) id 1XUaP4-0002uX-2E
	for guix-devel@gnu.org; Thu, 18 Sep 2014 08:01:43 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <ludo@gnu.org>) id 1XUaOy-0000lL-CG
	for guix-devel@gnu.org; Thu, 18 Sep 2014 08:01:38 -0400
Received: from hera.aquilenet.fr ([2a01:474::1]:50139)
	by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from <ludo@gnu.org>)
	id 1XUaOy-0000kp-2J
	for guix-devel@gnu.org; Thu, 18 Sep 2014 08:01:32 -0400
In-Reply-To: <CAKrPhPP4BW1jhoFAT3zwajEsbzf8H97c=ttrSCY6Afs-V0FHKw@mail.gmail.com>
	(Federico Beffa's message of "Wed, 17 Sep 2014 18:57:35 +0200")
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: <http://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.org@gnu.org
Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org
To: Federico Beffa <beffa@ieee.org>
Cc: guix-devel@gnu.org

Federico Beffa <beffa@ieee.org> skribis:

> This is the test recipe that I built:
>
> (use-modules (guix) (gnu) (srfi srfi-1)
>          (guix packages)
>          (guix download))
>
> (let ((emacs (car (find-packages-by-name "emacs")))
>       (libcanberra (car (find-packages-by-name "libcanberra")))
>       (gtk+ (car (find-packages-by-name "gtk+"))))
>   (package
>    (inherit emacs)
>    (name "emacs-canberra")
>    (version "24.3")
>    (source (origin
>         (method url-fetch)
>         (uri "mirror://gnu/emacs/emacs-24.3.tar.xz")
>         (sha256
>          (base32
>           "1385qzs3bsa52s5rcncbrkxlydkw0ajzrvfxgv8rws5fx512kakh"))
>         (patches (list (search-patch
> "/home/beffa/src/guix/git/guix/gnu/packages/patches/emacs-configure-sh.pa=
tch")))))

No need for =E2=80=98search-path=E2=80=99 here. since the absolute file nam=
e is given.

>    (inputs
>     (alist-cons "gtk+" (list gtk+)
>         (alist-delete "gtk+"
>                   (alist-cons "libcanberra" (list libcanberra)
>                       (package-inputs emacs)))))))

I put it in the REPL, and then used =E2=80=98package-transitive-inputs=E2=
=80=99 to see
if there was any GTK+ left:

--8<---------------cut here---------------start------------->8---
scheme@(guile-user)> (let ((emacs (car (find-packages-by-name "emacs")))
      (libcanberra (car (find-packages-by-name "libcanberra")))
      (gtk+ (car (find-packages-by-name "gtk+"))))
  (package

[...]

$7 =3D #<package emacs-canberra-24.3 gnu/packages/emacs.scm:52 43d6210>
scheme@(guile-user)> (filter (match-lambda
			      ((label (? package? p) . _)
			       (string=3D? "gtk+" (package-name p))))
			     (package-transitive-inputs $7))
$8 =3D (("gtk+" #<package gtk+-2.24.21 gnu/packages/gtk.scm:342 32a8e70>))
--8<---------------cut here---------------end--------------->8---

There=E2=80=99s only one GTK+ here.

Could you try =E2=80=98ldd emacs=E2=80=99 on this Emacs, and see what it re=
turns?

Thanks,
Ludo=E2=80=99.