1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
;;; Harmonic Flow web site
(define-module (apps blog templates feed)
#:use-module (apps aux strings)
#:use-module (apps aux sxml)
#:use-module (apps aux web)
#:use-module (apps base templates theme)
#:use-module (apps base types)
#:use-module (apps base utils)
#:use-module (apps blog utils)
#:use-module (apps i18n)
#:use-module (haunt html)
#:use-module (haunt post)
#:use-module (srfi srfi-19)
#:export (atom-feed-t))
(define (atom-feed-t context)
"Return an SXML representation of a Blog's topic atom feed."
(let ((domain (context-datum context "domain"))
(title (context-datum context "title"))
(id (context-datum context "id"))
(alternate (context-datum context "alternate"))
(posts (context-datum context "posts")))
`(feed
;; Feed info.
(@ (xmlns "http://www.w3.org/2005/Atom"))
(id ,id)
(title ,title)
(author (name (C_ "feed author name" "Harmonic Flow Blog")) (uri ,domain))
(icon ,(hfweb-url "static/base/img/icon.png"))
(updated ,(date->string (current-date) "~4"))
(link (@ (rel "alternate") (href ,alternate)))
;; Feed entries.
,@(map
(lambda (post)
`(entry
(id ,(url-path-join domain (post-url-path post) ""))
(title ,(post-ref post 'title))
(author (name ,(post-ref post 'author)))
(published ,(date->string (post-date post) "~4"))
(updated ,(date->string (post-date post) "~4"))
;(rights (@ (type "text")) ,(post-copyright post))
(link (@ (rel "alternate")
(href ,(url-path-join domain
(post-url-path post)
""))))
,@(map
(lambda (tag)
`(category (@ (term ,tag))))
(post-ref post 'tags))
(summary ,(string-summarize (sxml->string* (post-sxml post)) 100) "…")
(content (@ (type "html")) ,(sxml->html-string (post-sxml post)))))
posts))))
|
