From 560292b335e89101f00a941bca30143c4fda9275 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Thu, 17 Nov 2022 13:38:51 +0100
Subject: binding for clear notif at point

---
 README.org                     | 1 +
 lisp/mastodon-notifications.el | 1 +
 2 files changed, 2 insertions(+)

diff --git a/README.org b/README.org
index ffe65df..a310f97 100644
--- a/README.org
+++ b/README.org
@@ -155,6 +155,7 @@ take place if your =mastodon-token-file= does not contain =:client_id= and
 |---------------+-----------------------------------------------------------------------|
 |               | Notifications view                                                    |
 | =a=, =j=          | accept/reject follow request                                          |
+| =c=             | clear notification at point                                           |
 |---------------+-----------------------------------------------------------------------|
 |               | *Quitting*                                                              |
 | =q=             | Quit mastodon buffer, leave window open                               |
diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el
index 27b01c1..bb01b77 100644
--- a/lisp/mastodon-notifications.el
+++ b/lisp/mastodon-notifications.el
@@ -79,6 +79,7 @@
          (copy-keymap mastodon-mode-map)))
     (define-key map (kbd "a") #'mastodon-notifications--follow-request-accept)
     (define-key map (kbd "j") #'mastodon-notifications--follow-request-reject)
+    (define-key map (kbd "c") #'mastodon-notifications--clear-current)
     (define-key map (kbd "g") #'mastodon-notifications--get)
     (keymap-canonicalize map))
   "Keymap for viewing notifications.")
-- 
cgit v1.2.3