diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2020-07-27 16:50:31 -0400 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2020-07-27 16:50:31 -0400 |
| commit | 8c9c6ea907eb19f913708aa9cd315d580bc7cbbd (patch) | |
| tree | be350612a16eec19e0edf0d710d0fbfc4eeb8edb | |
| parent | 86a7d16e5bca126a1df11cc93c13bc9428799ac7 (diff) | |
[outbox] Fix 'u-url' in metaline.
| -rw-r--r-- | haunt/jakob/builder/outbox.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/haunt/jakob/builder/outbox.scm b/haunt/jakob/builder/outbox.scm index ba63788..fcccc57 100644 --- a/haunt/jakob/builder/outbox.scm +++ b/haunt/jakob/builder/outbox.scm @@ -28,7 +28,10 @@ ;;; Commentary: ;;; -;;; [TODO] +;;; My implementation of an "outbox" for sending comments via Webmention [1] to +;;; sites that support it. +;;; +;;; [1]: https://webmention.net/ ;;; ;;; Code: @@ -55,7 +58,7 @@ ;;; (define (datetime uri date) - `(p (a (@ (class "u-url") (href uri)) + `(p (a (@ (class "u-url") (href ,uri)) (time (@ (class "dt-published") (datetime ,(date->string date "~4"))) ,(date->string date "~B ~e, ~Y"))))) |