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