From: Ricardo Wurmus <rekado@elephly.net>
To: "pelzflorian (Florian Pelz)" <pelzflorian@pelzflorian.de>
Cc: guix-devel@gnu.org, davet@gnu.org
Subject: Re: Web site i18n with Haunt
Date: Sun, 11 Feb 2018 15:45:12 +0100 [thread overview]
Message-ID: <87tvunio07.fsf@elephly.net> (raw)
In-Reply-To: <20180211135230.eowx3yvvm3fll3i6@floriannotebook>
pelzflorian (Florian Pelz) <pelzflorian@pelzflorian.de> writes:
> I did not use SXPath. This one still looks ugly:
>
> (div (@ (id "powered-by"))
> ,@(__ "Powered by <link \
> url=\"https://www.gnu.org/software/guile/\">GNU Guile</link> and \
> <link url=\"https://haunt.dthompson.us/\">Haunt</link>."
> `(link
> . ,(lambda (tag attr text)
> (a-href
> (cadadr attr)
> text)))))
>
> I suppose I should have used SXPath for it to get the URL out of the
> (@ (url "…")) attribute?
Since the URL isn’t supposed to be translated I wouldn’t present it as
part of the translatable text, i.e. the string would be:
Powered by <guile>GNU Guile</guile> and <haunt>Haunt</haunt>.
And then I’d apply the transformations:
(foo s
`(guile . ,(lambda (_ . contents)
(a-href "https://www.gnu.org/software/guile/" ,@contents)))
`(haunt . ,(lambda (_ . contents)
(a-href "https://haunt.dthompson.us/" ,@contents))))
You could use sxpath to avoid cadadr, but it wouldn’t be less verbose:
(foo s
`(link . ,(lambda (_ attr contents)
(a-href (car ((sxpath '(url *text*)) attr)) ,contents))))
(Correctly but annoyingly, “sxpath” always returns a list, so we still
need to unpack the URL from the result with “car”.)
sxpath takes a path as a list of symbols and returns a selector function
that takes a nodeset. So the selector function applied to “attr” gets
us a list of all “*text*” nodes inside of a “url” node in the argument
“attr”.
--
Ricardo
GPG: BCA6 89B6 3655 3801 C3C6 2150 197A 5888 235F ACAC
https://elephly.net
next prev parent reply other threads:[~2018-02-11 14:45 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <20171223125116.33r6kjnu2zze7f2o@floriannotebook>
2018-02-08 17:12 ` Haunt patches pelzflorian (Florian Pelz)
2018-02-09 13:18 ` Ludovic Courtès
2018-02-09 13:39 ` pelzflorian (Florian Pelz)
2018-02-09 17:02 ` Web site i18n with Haunt Ludovic Courtès
2018-02-09 17:47 ` pelzflorian (Florian Pelz)
2018-02-09 23:14 ` Ricardo Wurmus
2018-02-11 13:52 ` pelzflorian (Florian Pelz)
2018-02-11 14:45 ` Ricardo Wurmus [this message]
2018-02-11 16:04 ` pelzflorian (Florian Pelz)
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=87tvunio07.fsf@elephly.net \
--to=rekado@elephly.net \
--cc=davet@gnu.org \
--cc=guix-devel@gnu.org \
--cc=pelzflorian@pelzflorian.de \
/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.