diff --git a/module/ssg/widgets/link.scm b/module/ssg/widgets/link.scm index d7220484a7a18b4882e57bc1f0571c20fcd0a642..220d8d0a42ecd1f6c6cba3c952b8de9af5c07e4e 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)))