- [pleroma] added API for announcements.

src/api-client.lisp

@@ -264,6 +264,14 @@ Returns nil if the user did not provided a server in the configuration file"
        (when (client-valid-p)
          ,@remaining-forms))))
 
+(defun-api-call get-announcements ()
+    "Get all the non dismissed announcements"
+  (tooter:get-announcements *client* :with-dismissed nil))
+
+(defun-api-call dismiss-announcement (announcement-id)
+  "Dismisse an announcement identified by `announcement-id'"
+  (tooter:dismiss-announcement *client* announcement-id))
+
 (defun-api-call favourite-status (status-id)
     "Favourite a status identified by `status-id'"
   (tooter:favourite *client*

src/package.lisp

@@ -1633,6 +1633,8 @@
    :forget-credentials
    :authorize
    :defun-api-call
+   :get-announcements
+   :dismiss-announcement
    :favourite-status
    :unfavourite-status
    :reblog-status