emacs-opml-to-elfeed-feeds

commit 145224d78296edd39ad15ba18378944ccc5a8f47
parent c66e7f3f1f8be03e8e0b5e6d2adc6d5ed613f255
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Sat, 29 Jun 2024 02:09:11 +0300

Simplify gco--xml-to-opml-outlines.

Diffstat:
M
get-craftering-opml.el
 | 
12
++++--------

1 file changed, 4 insertions(+), 8 deletions(-)
diff --git a/get-craftering-opml.el b/get-craftering-opml.el
@@ -78,14 +78,10 @@ The tags would be attached to each feed in the OPML file."
                                end))))
 
 (defun gco--xml-to-opml-outlines (xml)
-  (pcase xml
-    (`(opml . ,rest-of-opml)
-     (let ((body (assq 'body
-                       rest-of-opml)))
-       (pcase body
-         ;; TODO: What the hell is this?
-         (`(body ,TODO-WHAT-THE-HELL-IS-THIS? . ,outlines)
-          outlines))))))
+  (pcase (assq 'body xml)
+    ;; TODO: What the hell is this?
+    (`(body ,TODO-WHAT-THE-HELL-IS-THIS? . ,outlines)
+     outlines)))
 
 (cl-defun gco--response-buffer-to-elfeed-feed (response-buffer
                                                &key