From 46c7e4ae9e5d884e1e436336cc85fd23d31833b5 Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 19 Nov 2021 19:21:35 +0000 Subject: nits --- init.org | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'init.org') 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 -- cgit v1.2.3