diff --git a/publish-test/data/make-atom.txt b/publish-test/data/make-atom.txt deleted file mode 100644 index 2956826..0000000 --- a/publish-test/data/make-atom.txt +++ /dev/null @@ -1,30 +0,0 @@ -(lambda (feed-ref update-time homepage entries) - (let ([feed - `(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))]) - - - (for-each - (lambda (entry) - (set! feed - (append feed - `((entry - (title ,(first entry)) - (link ((href ,(second entry)))) - (id ,(second entry)) - (content ((src ,(second entry)) - (type "text/html"))) - (summary ,(third entry)) - (published ,(fourth entry)) - ,(if (eq? 5 (length entry)) - `(updated ,(fifth entry)) - '(updated ""))))))) - entries) - feed)) \ No newline at end of file