From bb47ad0440a588b797187e472ac45b7ee56394c6 Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 8 Apr 2022 01:59:07 +0100 Subject: rss feeds: categories from gnus mail directories --- init.org | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'init.org') diff --git a/init.org b/init.org index 71210f0..4431c81 100644 --- a/init.org +++ b/init.org @@ -1683,6 +1683,10 @@ (insert "\nmaildir-mailbox = " mbox "\n\n") (save-buffer))) + (defun jao-rss--feeds-dirs () + (mapcar (lambda (d) (cadr (split-string d "\\."))) + (directory-files (jao-gnus-dir "Mail/") nil "^feeds"))) + (defun jao-rss-subscribe (url) "Subscribe to a given RSS URL. If URL not given, look for it." (interactive (list (or (jao-url-around-point) @@ -1691,7 +1695,8 @@ (let* ((url+title (if (consp url) url (list url))) (url (car url+title)) (title (cdr url+title)) - (cats (jao-notmuch--subtags "feeds"))) + ;; (cats (cons "prog" (jao-notmuch--subtags "feeds"))) + (cats (jao-rss--feeds-dirs))) (if url (let ((url (if (string-match "^feed:" url) (substring url 5) url))) (when (y-or-n-p (format "Subscribe to <%s>? " url)) -- cgit v1.2.3