From 3007949ca728c48a4f68bf03741f1ebe52e4f97f Mon Sep 17 00:00:00 2001 From: tv Date: Thu, 5 Mar 2015 15:41:14 +0100 Subject: add random comments --- test5.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'test5.hs') diff --git a/test5.hs b/test5.hs index 500b1c2..09892f0 100644 --- a/test5.hs +++ b/test5.hs @@ -309,9 +309,11 @@ keymap "\ESCq" = \q@State{..} -> Right result -> return q { cursor = Z.fromTree $ fromSearchResults (parse s') result } +-- keymap "\ESC[11~" = \q@State{..} -> return q { flashMessage = Plain $ show $ treeViewId $ Z.label cursor } +-- keymap "\ESC[12~" = \q@State{..} -> return q { flashMessage = Plain $ -- cgit v1.2.3