From d937235d6c84cf27fc6a1120e7ecc5284154ca19 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Thu, 22 Dec 2022 16:18:11 +0100
Subject: [PATCH] - [pleroma] added API for announcements.

---
 src/api-client.lisp | 8 ++++++++
 src/package.lisp    | 2 ++
 2 files changed, 10 insertions(+)

diff --git a/src/api-client.lisp b/src/api-client.lisp
index a1f1fe7..7a3b048 100644
--- a/src/api-client.lisp
+++ b/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*
diff --git a/src/package.lisp b/src/package.lisp
index 8d0caec..45d7d3a 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -1633,6 +1633,8 @@
    :forget-credentials
    :authorize
    :defun-api-call
+   :get-announcements
+   :dismiss-announcement
    :favourite-status
    :unfavourite-status
    :reblog-status