25 lines
No EOL
675 B
Text
25 lines
No EOL
675 B
Text
(lambda (feed-ref update-time homepage)
|
|
`(feed
|
|
((xmlns "http://www.w3.org/2005/Atom"))
|
|
(title "λ.sorrel.dev")
|
|
(link ((rel "self")
|
|
(href ,feed-ref)))
|
|
(updated ,update-time)
|
|
(author
|
|
(name "sorrel"))
|
|
(id ,homepage)
|
|
|
|
; ,(map
|
|
; (lambda (item)
|
|
; `(entry
|
|
; (title ,(title item))
|
|
; (link ((href ,(href item))))
|
|
; (id ,(href item))
|
|
; (type ,(type item)) ; usually html
|
|
; ,(map (lambda (category)
|
|
; `(category ((term ,(term category))
|
|
; (scheme ,(scheme category)))))
|
|
; (categories item))
|
|
; (updated ,(updated item)))
|
|
; items))
|
|
)) |