From e19520243ebaa6359f5e1c5015ddd3db421dde3e Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Mon, 8 Aug 2011 11:36:45 +0400
Subject: [PATCH] Allow ctrl-l in bird's eye

---
 KEYS    | 1 +
 main.ml | 9 +++++++++
 2 files changed, 10 insertions(+)

diff --git a/KEYS b/KEYS
index f79d850..43326ab 100644
--- a/KEYS
+++ b/KEYS
@@ -62,6 +62,7 @@ tunables
 
 bird's eye mode
 Ctrl-9/F9/esc           - leave bird's eye view
+Ctrl-l                  - center the view on the currently selected page
 (page)up/(page)down     - navigate
 home/end                - go to first/last page
 enter                   - select the page and leave bird's eye mode
diff --git a/main.ml b/main.ml
index 1fcdb18..593593d 100644
--- a/main.ml
+++ b/main.ml
@@ -1280,6 +1280,15 @@ let viewkeyboard ~key ~x ~y =
           let y = getnav () in
           gotoy_and_clear_text y
 
+      | '\012' ->                       (* ctrl-l *)
+          begin match state.birdseye with
+          | None -> ()
+          | Some ((_, _, pageno, _) as vals) ->
+              let y, h = getpageyh pageno in
+              let top = (conf.winh - h) / 2 in
+              gotoy (max 0 (y - top))
+          end;
+
       | '\013' ->
           begin match state.birdseye with
           | None -> ()
-- 
2.11.4.GIT