From 34f9c78566a8fdb21987843a335c789a1dcfb8c4 Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Sat, 18 Mar 2023 15:24:26 +0100
Subject: add next prev item funs to lists/scheduled maps

---
 lisp/mastodon-views.el | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lisp')

diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el
index 2a6238b..10a6a8a 100644
--- a/lisp/mastodon-views.el
+++ b/lisp/mastodon-views.el
@@ -105,6 +105,8 @@
 
 (defvar mastodon-views--list-name-keymap
   (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "n") 'mastodon-tl--goto-next-item)
+    (define-key map (kbd "p") 'mastodon-tl--goto-prev-item)
     (define-key map (kbd "<return>") 'mastodon-views--view-timeline-list-at-point)
     (define-key map (kbd "d") 'mastodon-views--delete-list-at-point)
     (define-key map (kbd "a") 'mastodon-views--add-account-to-list-at-point)
@@ -115,6 +117,8 @@
 
 (defvar mastodon-views--scheduled-map
   (let ((map (make-sparse-keymap)))
+    (define-key map (kbd "n") 'mastodon-tl--goto-next-item)
+    (define-key map (kbd "p") 'mastodon-tl--goto-prev-item)
     (define-key map (kbd "r") 'mastodon-views--reschedule-toot)
     (define-key map (kbd "c") 'mastodon-views--cancel-scheduled-toot)
     (define-key map (kbd "e") 'mastodon-views--edit-scheduled-as-new)
-- 
cgit v1.2.3