diff options
Diffstat (limited to 'haunt/jakob/utils/comments.scm')
| -rw-r--r-- | haunt/jakob/utils/comments.scm | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/haunt/jakob/utils/comments.scm b/haunt/jakob/utils/comments.scm index 3f55345..45c97c5 100644 --- a/haunt/jakob/utils/comments.scm +++ b/haunt/jakob/utils/comments.scm @@ -16,8 +16,6 @@ (define-module (jakob utils comments) #:use-module (commonmark) - ;; #:use-module (dynamic capabilities comments) - #:use-module (dynamic util) #:use-module (gcrypt base16) #:use-module (gcrypt hash) #:use-module (ice-9 receive) @@ -26,6 +24,8 @@ #:use-module (srfi srfi-19) #:use-module (srfi srfi-43) #:use-module (srfi-197) + #:use-module (jakob dynamic capabilities comments) + #:use-module (jakob dynamic util) #:use-module (json) #:use-module (web client) #:use-module (web response) @@ -64,7 +64,7 @@ (let* ((author-name (assoc-ref comment 'name)) (author-url (assoc-ref comment 'url)) (author-photo (gravatar-url (assoc-ref comment 'email))) - (publish-datetime (assoc-ref comment 'published)) + (publish-datetime (assoc-ref comment 'publish-time)) (content-text (assoc-ref comment 'comment)) (content-reactions (assoc-ref comment 'reactions))) `(li (@ (class "p-comment h-cite comment comment-source-internal")) @@ -83,13 +83,11 @@ ,@(chain content-text (safe-markdown->sxml _))) (div (@ (class "metaline")) - (a (@ (class "u-url") - (href ,author-url)) - (time (@ (class "dt-published") - (datetime ,publish-datetime)) - ,(date->string - (string->date publish-datetime "~Y~m~d~H~M~S") - "~B ~e, ~Y at ~H:~M")))) + (time (@ (class "dt-published") + (datetime ,publish-datetime)) + ,(date->string + (string->date publish-datetime "~Y~m~d ~H~M~S.~N") + "~B ~e, ~Y at ~H:~M"))) (ul (@ (class "comment-reactions")) ,@(map (match-lambda ((emote . count) |