From e47ae9eaa0311267e9d332b523962d0fdaaf76b6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 13 Nov 2023 00:20:02 +0100
Subject: [PATCH] Major change to [[link]] widget.
---
module/ssg/widgets/link.scm | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/module/ssg/widgets/link.scm b/module/ssg/widgets/link.scm
index d722048..220d8d0 100644
--- a/module/ssg/widgets/link.scm
+++ b/module/ssg/widgets/link.scm
@@ -1,5 +1,6 @@
(define-module (ssg widgets link)
:use-module (ice-9 regex)
+ :use-module (srfi srfi-88)
:use-module (ssg config)
:use-module ((ssg lib) :select (url-append))
:export (link-to full-link-to doc widget))
@@ -31,5 +32,10 @@ Which might produce
(assoc-ref (config) 'host)
(link-to item))))
-(define* (widget to)
- (delay (link-to to)))
+(define* (widget key: to text)
+ "link
+
+Emits the absolute URL of another page within the site."
+ (delay
+ `(a (@ (href ,(link-to to)))
+ ,text)))
--
GitLab