diff options
Diffstat (limited to 'init.org')
-rw-r--r-- | init.org | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -1484,18 +1484,20 @@ (insert "\nmaildir-mailbox = " mbox "\n\n") (save-buffer))) - (defun jao-rss-subscribe () + (defun jao-rss-subscribe (&optional url) + "Subscribe to a given RSS URL. If URL not given, look for it." (interactive) - (let* ((url (or (jao-url-around-point) + (let* ((url (or url + (jao-url-around-point) (jao-rss--find-url) (read-string "Feed URL: "))) - (url+title (if (consp url) url (cons url (read-string "Feed name: ")))) + (url+title (if (consp url) url (list url))) (url (car url+title)) (title (cdr url+title))) (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 "Name: " title)) + (let* ((name (read-string "Feed name: " title)) (cat (completing-read "Category: " (jao-list-mailboxes "feeds") nil t))) |