<F2> prints Maybe FilePath (of a message)

1 files changed, 9 insertions, 0 deletions

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" }