git.fiddlerwoaroof.com
Browse code

feat: support RSS with RDF content-type

fiddlerwoaroof authored on 05/05/2023 06:12:26
Showing 2 changed files
... ...
@@ -158,6 +158,7 @@
158 158
                                           (map #'tag-name) (node))))))
159 159
     (case root-node-name
160 160
       ((:feed) :atom)
161
+      ((:rdf :|RDF:RDF|) :rss)
161 162
       (t root-node-name))))
162 163
 
163 164
 (defgeneric get-random-item (feed)
... ...
@@ -5,8 +5,8 @@
5 5
   `(let ((plump:*tag-dispatchers* plump:*xml-tags*)
6 6
          (drakma:*drakma-default-external-format* :utf-8)
7 7
          (drakma:*text-content-types*
8
-           (pairlis '("application" "application" "application")
9
-                    '("atom+xml"    "rss+xml"     "xml")
8
+           (pairlis '("application" "application" "application" "application")
9
+                    '("atom+xml"    "rss+xml"     "xml"         "rdf+xml")
10 10
                     drakma:*text-content-types*)))
11 11
      ,@body))
12 12