aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ttrss.el15
1 files 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