From: "Luis Felipe López Acevedo" <felipe.lopez@openmailbox.org>
To: ludo@gnu.org
Cc: guix-devel@gnu.org
Subject: Re: Website development questions
Date: Sat, 26 Nov 2016 20:02:11 -0500 [thread overview]
Message-ID: <c52f2a69529b3f93bd50a43fb8ead9ef@openmailbox.org> (raw)
In-Reply-To: <8760nap2fm.fsf@gnu.org>
On 2016-11-26 12:37, ludo@gnu.org wrote:
> 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.
I get this:
--8<---------------cut here---------------end--------------->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/anonimo/Documentos/guix"
scheme@(guile-user)> (search-path %load-path "guix.scm")
$2 = "/home/anonimo/Documentos/guix/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"] a835320>)'.
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/anonimo" "/home/anonimo/.guix-profile/share/guile/site/2.0"
"" "/home/anonimo/Documentos/misitio" "/home/anonimo/Documentos/myglab"
"/home/anonimo/Documentos/retsi" "/home/anonimo/Documentos/guix/"
"/home/anonimo/Documentos/guix-artwork/website"
"/gnu/store/dw907d51axf5xcz6qkngdb8mv1x6ja9m-guile-2.0.13/share/guile/2.0"
"/gnu/store/dw907d51axf5xcz6qkngdb8mv1x6ja9m-guile-2.0.13/share/guile/site/2.0"
"/gnu/store/dw907d51axf5xcz6qkngdb8mv1x6ja9m-guile-2.0.13/share/guile/site"
"/gnu/store/dw907d51axf5xcz6qkngdb8mv1x6ja9m-guile-2.0.13/share/guile")
--8<---------------cut here---------------end--------------->8---
Searching my home directory for "guix.scm" files I get this:
--8<---------------cut here---------------end--------------->8---
$ find -name "guix.scm"
./Documentos/guix/build-aux/hydra/guix.scm
./Documentos/guix/guix.scm
--8<---------------cut here---------------end--------------->8---
So, I don't know :)
--
Luis Felipe López Acevedo
http://sirgazil.bitbucket.org/
next prev parent reply other threads:[~2016-11-27 1:02 UTC|newest]
Thread overview: 15+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-11-14 18:15 Website development questions Luis Felipe López Acevedo
2016-11-15 9:57 ` Ludovic Courtès
2016-11-16 17:55 ` Luis Felipe López Acevedo
2016-11-20 20:17 ` Luis Felipe López Acevedo
2016-11-21 1:39 ` Luis Felipe López Acevedo
2016-11-21 14:01 ` Ludovic Courtès
2016-11-21 14:55 ` Luis Felipe López Acevedo
2016-11-22 22:52 ` Ludovic Courtès
2016-11-23 0:59 ` Luis Felipe López Acevedo
2016-11-23 22:11 ` Ludovic Courtès
2016-11-24 1:24 ` Luis Felipe López Acevedo
2016-11-26 17:37 ` Ludovic Courtès
2016-11-27 1:02 ` Luis Felipe López Acevedo [this message]
2016-11-27 1:27 ` Luis Felipe López Acevedo
2016-11-28 14:02 ` Ludovic Courtès
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=c52f2a69529b3f93bd50a43fb8ead9ef@openmailbox.org \
--to=felipe.lopez@openmailbox.org \
--cc=guix-devel@gnu.org \
--cc=ludo@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.