From 84ae7c75b70cf2b8a94e267801ac87bd709c847d Mon Sep 17 00:00:00 2001
From: Pedro Silva <psilva+git@pedrosilva.pt>
Date: Thu, 4 Apr 2013 14:41:29 +0100
Subject: Implement ttrss-share-to-published method

---
 ttrss.el | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/ttrss.el b/ttrss.el
index 3ee3433..1409a05 100644
--- a/ttrss.el
+++ b/ttrss.el
@@ -601,14 +601,12 @@ following key-value pairs:
 
 
 ;;; TODO: Implement following methods:
-;; catchupFeed
-;; shareToPublished
 ;; subscribeToFeed
 ;; unsubscribeFeed
 ;; getFeedTree
 
 (defun ttrss-catchup-feed (address sid feed-id)
-  "Try to catchup feed at ADDRESS using SID with FEED-ID.
+  "Catchup, at ADDRESS using SID, FEED-ID.
 Returns a status string (typically 'OK')."
   (ttrss-post-request address
 		      :status
@@ -616,5 +614,16 @@ Returns a status string (typically 'OK')."
 		      :sid sid
 		      :feed_id feed-id))
 
+(defun ttrss-share-to-published (address sid title url content)
+  "Publish, at ADDRESS using SID, an article with TITLE,  URL, and CONTENT
+Returns a status string (typically 'OK')."
+  (ttrss-post-request address
+		      :status
+		      :op "shareToPublished"
+		      :sid sid
+		      :title title
+		      :url url
+		      :content content))
+
 (provide 'ttrss)
 ;;; ttrss.el ends here
-- 
cgit v1.2.3