diff options
author | Tom Willemsen | 2012-08-04 02:28:18 +0200 |
---|---|---|
committer | Tom Willemsen | 2012-08-04 02:28:18 +0200 |
commit | ed39e627ded14d63e19f3718ca5cb95c4317fca3 (patch) | |
tree | 976164fe92ebc67002c152c3cea04a8c0333c77c | |
parent | fb8e52c1dc022538e3e5874cc12c021e05d1fb50 (diff) | |
download | avandu-ed39e627ded14d63e19f3718ca5cb95c4317fca3.tar.gz avandu-ed39e627ded14d63e19f3718ca5cb95c4317fca3.zip |
Add avandu-categories function
Remove texinfo documentation abount avandu-feeds, as it is not a
command it should not (yet) be documented in the info manual.
-rw-r--r-- | avandu.el | 46 | ||||
-rw-r--r-- | doc/avandu.texinfo | 15 |
2 files changed, 27 insertions, 34 deletions
@@ -306,25 +306,13 @@ returned json." (kill-buffer buffer) result)) -;; Commands -(defun avandu-browse-article () - "Browse the current button's article url." - (interactive) - (let ((button (button-at (point)))) - (browse-url (button-get button 'link)) - (avandu-mark-article-read button))) - -(defun avandu-feed-catchup () - "Send a request to tt-rss to \"Catch up\" with a feed. This - means that all the (unread) articles in a feed will be marked - as read. After having completed this request the overview is - reloaded." - (interactive) - (let* ((button (button-at (point))) - (id (button-get button 'feed-id))) - (avandu--send-command `((op . "catchupFeed") - (feed_id . ,id)))) - (revert-buffer)) +(defun avandu-categories (&optional unread) + "Get the created categories. If UNREAD is non-nil only get +categories with feeds with unread articles in them." + (cdr (assq 'content + (avandu--send-command + `((op . "getCategories") + ,@(when unread `((unread_only . ,unread)))))))) (defun avandu-feeds (&optional category unread limit offset) "Get the subscribed feeds. If CATEGORY has been specified show @@ -346,6 +334,26 @@ There are a number of special category IDs: ,@(when limit `((limit . ,limit))) ,@(when offset `((offset . ,offset)))))))) +;; Commands +(defun avandu-browse-article () + "Browse the current button's article url." + (interactive) + (let ((button (button-at (point)))) + (browse-url (button-get button 'link)) + (avandu-mark-article-read button))) + +(defun avandu-feed-catchup () + "Send a request to tt-rss to \"Catch up\" with a feed. This + means that all the (unread) articles in a feed will be marked + as read. After having completed this request the overview is + reloaded." + (interactive) + (let* ((button (button-at (point))) + (id (button-get button 'feed-id))) + (avandu--send-command `((op . "catchupFeed") + (feed_id . ,id)))) + (revert-buffer)) + (defun avandu-logged-in-p () "Send a request to tt-rss to see if we're (still) logged in. This function returns t if we are, or nil if we're not." diff --git a/doc/avandu.texinfo b/doc/avandu.texinfo index b1a8afb..8d12586 100644 --- a/doc/avandu.texinfo +++ b/doc/avandu.texinfo @@ -273,18 +273,3 @@ Tiny Tiny RSS Version: # and it returns the version as a string. @end deffn - -@deffn avandu-feeds &optional category unread limit offset -Get a list of all the feeds in CATEGORY. If CATEGORY is @code{nil}, -unspicified or 0, show uncategorized feeds. - -If UNREAD is non-@code{nil} only get feeds with unread articles in -them. - -If LIMIT is non-@code{nil} only get LIMIT number of feeds and if -OFFSET is non-@code{nil} start at OFFSET. - -Returns a vector of all the feeds. This is not useful for users on -its own, but if will be used in the future to make more views -available. -@end deffn |