Re: emacs package

[ludo@gnu.org (Ludovic Courtès)]

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.patch")))))

No need for ‘search-path’ here. since the absolute file name 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 ‘package-transitive-inputs’ 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 = #<package emacs-canberra-24.3 gnu/packages/emacs.scm:52 43d6210>
scheme@(guile-user)> (filter (match-lambda
			      ((label (? package? p) . _)
			       (string=? "gtk+" (package-name p))))
			     (package-transitive-inputs $7))
$8 = (("gtk+" #<package gtk+-2.24.21 gnu/packages/gtk.scm:342 32a8e70>))
--8<---------------cut here---------------end--------------->8---

There’s only one GTK+ here.

Could you try ‘ldd emacs’ on this Emacs, and see what it returns?

Thanks,
Ludo’.