From 3f123eeb567f2dfb861ad4999394b3534151dda9 Mon Sep 17 00:00:00 2001 From: oxaliq Date: Fri, 15 Dec 2023 16:19:07 +0000 Subject: [PATCH] Delete publish-test/data/make-atom.txt --- publish-test/data/make-atom.txt | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100644 publish-test/data/make-atom.txt 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