Re: Website development questions

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

Luis Felipe López Acevedo <felipe.lopez@openmailbox.org> skribis:

> On 2016-11-23 17:11, ludo@gnu.org wrote:
>> Luis Felipe López Acevedo <felipe.lopez@openmailbox.org> skribis:

[...]

>> ‘%patch-path’ is defined like this:
>>
>> --8<---------------cut here---------------start------------->8---
>> (define %patch-path
>>   ;; Define it after '%package-module-path' so that '%load-path'
>> contains user
>>   ;; directories, allowing patches in $GUIX_PACKAGE_PATH to be found.
>>   (make-parameter
>>    (map (lambda (directory)
>>           (if (string=? directory %distro-root-directory)
>>               (string-append directory "/gnu/packages/patches")
>>               directory))
>>         %load-path)))
>> --8<---------------cut here---------------end--------------->8---
>>
>> So patches are looked up in the “gnu/packages/patches” sub-directory
>> relative to the load path entry that contains “guix.scm”.
>>
>> Presumably /home/anonimo/Documentos/guix/ contains guix.scm and so
>> patches are expected to be in
>> /home/anonimo/Documentos/guix/gnu/packages/patches.
>>
>> Is it the case?  Or could it be that only
>> “4store-fix-buildsystem.patch”
>> is missing?
>
> hmm, patches are in that location, and the patch not found is actually
> there as well:
>
>     $ find -name "4store-fix-buildsystem.patch"
>     ./gnu/packages/patches/4store-fix-buildsystem.patch

Damn it, I’m running out of ideas.  :-)

It’s pretty clear that patches are not searched for under
/home/anonimo/Documentos/guix, which could be because you have another
guix.scm in the search path.

Can you try this:

--8<---------------cut here---------------start------------->8---
$ guile
GNU Guile 2.0.13
Copyright (C) 1995-2016 Free Software Foundation, Inc.

Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.

Enter `,help' for help.
scheme@(guile-user)> (@@ (gnu packages) %distro-root-directory)
$1 = "/home/ludo/soft/share/guile/site/2.0"
scheme@(guile-user)> (search-path %load-path "guix.scm")
$2 = "/home/ludo/soft/share/guile/site/2.0/guix.scm"
scheme@(guile-user)> ,use(gnu packages)
scheme@(guile-user)> (search-patch "4store-fix-buildsystem.patch")
ERROR: Throw to key `srfi-34' with args `(#<condition &message [message: "4store-fix-buildsystem.patch: patch not found"] 1d40120>)'.

Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
scheme@(guile-user) [1]> ,q
scheme@(guile-user)> (%patch-path)
$3 = ("/home/ludo/src/manao/ludo/guix" "/home/ludo/.config/guix/personal" "/home/ludo/.local/share/guile/site/2.0" "/home/ludo/soft/share/guile/site/2.0/gnu/packages/patches" "/home/ludo/.guix-profile/share/guile/site/2.0" "/run/current-system/profile/share/guile/site/2.0" "/home/ludo/.local/share/guile/site/2.0" "/home/ludo/soft/share/guile/site/2.0/gnu/packages/patches" "/home/ludo/.guix-profile/share/guile/site/2.0" "/run/current-system/profile/share/guile/site/2.0" "/home/ludo/.guix-profile/share/guile/site/2.0" "/run/current-system/profile/share/guile/site/2.0" "/home/ludo/soft/share/guile/2.0" "/home/ludo/soft/share/guile/site/2.0/gnu/packages/patches" "/home/ludo/soft/share/guile/site" "/home/ludo/soft/share/guile")
--8<---------------cut here---------------end--------------->8---

Most likely your %distro-root-directory points to that older guix.scm,
where the patch in question is unavailable.

HTH!

Ludo’.