From 9bc52d7238b81531f5f796c9f90b15e0405db34e Mon Sep 17 00:00:00 2001
From: "C. McEnroe" <june@causal.agency>
Date: Tue, 7 Apr 2020 14:09:29 -0400
Subject: Add M-< and M-> for scroll to top and bottom

Mirrored by S-Home and S-End but I guess I'm not documenting those...
---
 catgirl.1 | 4 ++++
 ui.c      | 7 +++++++
 2 files changed, 11 insertions(+)

diff --git a/catgirl.1 b/catgirl.1
index 623c314..37bf4a0 100644
--- a/catgirl.1
+++ b/catgirl.1
@@ -449,6 +449,10 @@ Scroll down a page.
 Toggle visibility of filtered messages.
 .It Ic M-/
 Switch to previously selected window.
+.It Ic M-<
+Scroll to top.
+.It Ic M->
+Scroll to bottom.
 .It Ic M-a
 Cycle through unread windows.
 .It Ic M-l
diff --git a/ui.c b/ui.c
index 1ff34fd..903149d 100644
--- a/ui.c
+++ b/ui.c
@@ -215,6 +215,8 @@ static short colorPair(short fg, short bg) {
 	X(KeyMetaU, "\33u", NULL) \
 	X(KeyMetaV, "\33v", NULL) \
 	X(KeyMetaEnter, "\33\r", "\33\n") \
+	X(KeyMetaGt, "\33>", "\33.") \
+	X(KeyMetaLt, "\33<", "\33,") \
 	X(KeyMetaMinus, "\33-", "\33_") \
 	X(KeyMetaSlash, "\33/", NULL) \
 	X(KeyFocusIn, "\33[I", NULL) \
@@ -904,6 +906,9 @@ static void keyCode(int code) {
 		break; case KeyMetaMinus: window->ignore ^= true; reflow(window);
 		break; case KeyMetaSlash: windowShow(windows.swap);
 
+		break; case KeyMetaGt: windowScroll(window, -WindowLines);
+		break; case KeyMetaLt: windowScroll(window, +WindowLines);
+
 		break; case KeyMeta0 ... KeyMeta9: uiShowNum(code - KeyMeta0);
 		break; case KeyMetaA: showAuto();
 		break; case KeyMetaB: edit(id, EditPrevWord, 0);
@@ -925,6 +930,8 @@ static void keyCode(int code) {
 		break; case KEY_NPAGE: windowScroll(window, -(PAGE_LINES - 2));
 		break; case KEY_PPAGE: windowScroll(window, +(PAGE_LINES - 2));
 		break; case KEY_RIGHT: edit(id, EditNext, 0);
+		break; case KEY_SEND: windowScroll(window, -WindowLines);
+		break; case KEY_SHOME: windowScroll(window, +WindowLines);
 		break; case KEY_UP: windowScroll(window, +1);
 	}
 }
-- 
cgit 1.4.1