From 7adef3622630f37bcd7cc3dacd29fe6eea0df0a7 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sun, 11 Jan 2015 21:54:25 +0100
Subject: <F2> prints Maybe FilePath (of a message)

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

(limited to 'test5.hs')

diff --git a/test5.hs b/test5.hs
index 9a64db0..0c3dbf2 100644
--- a/test5.hs
+++ b/test5.hs
@@ -252,6 +252,15 @@ keymap "\ESCq" = \q@State{..} ->
 keymap "\ESC[11~" = \q@State{..} ->
     return q { flashMessage = Plain $ show $ treeViewId $ Z.label cursor }
 
+keymap "\ESC[12~" = \q@State{..} ->
+    return q { flashMessage =
+                  Plain $
+                  show $
+                  maybe Nothing (Just . Notmuch.messageFilename) $
+                  getMessage $
+                  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