From 43bccc37f81adb2f7c5f79017af59c4b33e88ec1 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sat, 27 Dec 2014 23:25:39 +0100
Subject: =?UTF-8?q?Pg{Up,Dn}=20moves=20tree=20=C2=BD=20screen=20{down,up}?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 test4.hs | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

(limited to 'test4.hs')

diff --git a/test4.hs b/test4.hs
index cf5ad3e..db2a701 100644
--- a/test4.hs
+++ b/test4.hs
@@ -136,12 +136,14 @@ keymap "r" = Just replyToAll
 keymap "e" = Just viewSource
 keymap "k" = Just moveCursorUp
 keymap "j" = Just moveCursorDown
-keymap "K" = Just moveTreeDown
-keymap "J" = Just moveTreeUp
+keymap "K" = Just $ moveTreeDown 1
+keymap "J" = Just $ moveTreeUp 1
 keymap "\ESC[A" = Just moveCursorUp
 keymap "\ESC[B" = Just moveCursorDown
-keymap "\ESC[a" = Just moveTreeDown
-keymap "\ESC[b" = Just moveTreeUp
+keymap "\ESC[a" = Just $ moveTreeDown 1
+keymap "\ESC[b" = Just $ moveTreeUp 1
+keymap "\ESC[5~" = Just $ \q -> moveTreeDown (screenHeight q `div` 2) q   -- PgUp
+keymap "\ESC[6~" = Just $ \q -> moveTreeUp (screenHeight q `div` 2) q -- PgDn
 keymap "\n" = Just toggleFold
 
 keymap ('\ESC':'[':'9':';':xs) = Just $ \q@State{..} -> do
@@ -156,11 +158,11 @@ moveCursorDown q@State{..} =
 moveCursorUp q@State{..} =
     return q { cursor = fromMaybe (Z.root cursor) $ findPrev cursor }
 
-moveTreeUp q@State{..} =
-    return q { yoffset = max 0 (yoffset + 1) }
+moveTreeUp n q@State{..} =
+    return q { yoffset = max 0 (yoffset + n) }
 
-moveTreeDown q@State{..} =
-    return q { yoffset = max 0 (yoffset - 1) }
+moveTreeDown n q@State{..} =
+    return q { yoffset = max 0 (yoffset - n) }
 
 
 toggleFold q@State{..} = case Z.label cursor of
-- 
cgit v1.2.3