diff options
| -rw-r--r-- | haunt/jakob/builder/atom.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/haunt/jakob/builder/atom.scm b/haunt/jakob/builder/atom.scm index d4f469a..f6bbd08 100644 --- a/haunt/jakob/builder/atom.scm +++ b/haunt/jakob/builder/atom.scm @@ -22,6 +22,7 @@ #:use-module (haunt utils) #:use-module (ice-9 match) #:use-module (jakob builder blog) + #:use-module (jakob utils sxml) #:use-module (srfi srfi-19) #:use-module (srfi srfi-26) #:use-module (web uri) @@ -41,7 +42,14 @@ (updated ,(date->string (post-date post) "~4")) (link (@ (href ,uri) (rel "alternate"))) (summary (@ (type "html")) - ,(sxml->html-string (post-sxml post))) + ,(sxml->html-string + (append (post-sxml post) + (if (post-ref post 'crosspost) + `((p "...") + (p "This is a crosspost. Click " + ,(hyperlink (post-ref post 'crosspost) "here") + " to read the rest of the article.")) + '())))) ,@(map (lambda (enclosure) `(link (@ (rel "enclosure") (title ,(enclosure-title enclosure)) |