summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--init.org7
1 files changed, 6 insertions, 1 deletions
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))