summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--haunt.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/haunt.scm b/haunt.scm
index 27acb27..a0a4915 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -37,6 +37,7 @@
(srfi srfi-26)
(sxml simple)
(sxml transform)
+ ((sxml xpath) #:prefix xpath:)
(haunt asset)
(haunt html)
(haunt page)
@@ -651,7 +652,8 @@ url=\"https://www.gnu.org/software/guile/\">GNU Guile</link> and \
`(link
. ,(lambda (tag attr text)
(a-href
- (cadadr attr)
+ (car ((xpath:sxpath
+ '(url *text*)) attr))
text)))))))))))))))
(define pelzflorian-blue-theme