28 lines
682 B
Text
28 lines
682 B
Text
|
;; required on update
|
||
|
;; -- (let (feed-ref "https://URI/atom")
|
||
|
;; (update-time
|
||
|
|
||
|
(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))
|
||
|
)
|