From 9297b07df13d9fe47c1ececb367db1225ddd84f8 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Thu, 6 Mar 2014 00:07:32 +0100
Subject: Add command to subscribe to feeds

---
 avandu.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/avandu.el b/avandu.el
index c7f89f9..b1fa309 100644
--- a/avandu.el
+++ b/avandu.el
@@ -719,6 +719,19 @@ If BUTTON is nil, try to use a button at `point'."
 
     version))
 
+;;;###autoload
+(defun avandu-subscribe-to-feed (url)
+  "Subscribe to the feed at URL optionally putting it in CATEGORY."
+  (interactive "MUrl: ")
+  (let ((status (avu-prop (avu-prop (avandu--send-command-sync
+                                     `((op . "subscribeToFeed")
+                                       (feed_url . ,url)))
+                                    status)
+                          code)))
+    (if (= status 1)
+        (message "Succesfully subscribed to feed")
+      (message "Could not subscribe to feed"))))
+
 (defun avandu-view-possibly-external (start end)
   "Maybe execute a command on the region between START and END.
 
-- 
cgit v1.2.3-54-g00ecf