emacs-opml-to-elfeed-feeds

commit 14ff7cd71726260127de27dc43df909f38d95bcb
parent 4b5d8171835bf546b1140907cf0b05913146b832
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Wed, 26 Jun 2024 04:07:57 +0300

Add the name of the author to the list of tags.

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

1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/get-craftering-opml.el b/get-craftering-opml.el
@@ -34,6 +34,11 @@
   :type
   '(string))
 
+(defun gco--blogger-name-to-symbol (blogger-name)
+  (intern (downcase (replace-regexp-in-string "[ .]+"
+                                              "-"
+                                              blogger-name))))
+
 (defun gco--get-response-buffer ()
   (url-retrieve-synchronously get-craftering-opml--craftering-url))
 
@@ -72,7 +77,8 @@
               (loop rest-of-body
                     (cons (list xml-url
                                 'blog
-                                'craftering)
+                                'craftering
+                                (gco--blogger-name-to-symbol text))
                           accumulator))))))))))
 
 (provide 'get-craftering-opml)