nits

1 files changed, 8 insertions, 5 deletions

diff --git a/init.org b/init.org
index f05207c..ba9d3da 100644
--- a/init.org
+++ b/init.org
@@ -1601,15 +1601,18 @@
                                (read-string "Feed URL: "))))
         (let* ((url+title (if (consp url) url (list url)))
                (url (car url+title))
-               (title (cdr url+title)))
+               (title (cdr url+title))
+               (cats (mapcar (lambda (f) (car (last (split-string f "\\."))))
+                             (directory-files nnml-directory nil "feeds"))))
           (if url
               (let ((url (if (string-match "^feed:" url) (substring url 5) url)))
                 (when (y-or-n-p (format "Subscribe to <%s>? " url))
                   (let* ((name (read-string "Feed name: " title))
-                         (cat (completing-read "Category: "
-                                               (jao-list-mailboxes "feeds")
-                                               nil t)))
-                    (jao-rss2e-append name url cat)
+                         (cat (completing-read "Category: " cats nil t))
+                         (subs (format "r2e add %s '%s' feeds.%s@localhost"
+                                       name url cat)))
+                    ;; (jao-rss2e-append name url cat)
+                    (shell-command-to-string subs)
                     (shell-command (format "r2e run %s" name)))))
             (message "No feeds found"))))
     #+end_src