diff options
-rw-r--r-- | ttrss.el | 15 |
1 files changed, 12 insertions, 3 deletions
@@ -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 |