From 9e22cbd730da34afa0f8d3c03b9cb7f61e83d5f5 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Wed, 7 Jan 2015 00:38:36 +0100
Subject: add treeViewId

---
 test5.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'test5.hs')

diff --git a/test5.hs b/test5.hs
index f1516c3..b8071b1 100644
--- a/test5.hs
+++ b/test5.hs
@@ -237,6 +237,9 @@ keymap "\ESC[Z" = moveCursorUpToPrevUnread -- S-Tab
 keymap "\t" = moveCursorDownToNextUnread
 keymap "\DEL" = moveToParent  -- backspace
 
+keymap "\ESC[11~" = \q@State{..} ->
+    return q { flashMessage = Plain $ show $ treeViewId $ Z.label cursor }
+
 -- TODO Stuff Vim sends after exit (also there is more...)
 keymap "\ESC[2;2R" = \q -> return q { flashMessage = flashMessage q <> " " <> Plain "stupid" }
 keymap "\ESC[>85;95;0c" = \q -> return q { flashMessage = flashMessage q <> " " <> Plain "stupid" }
-- 
cgit v1.2.3