diff options
| -rw-r--r-- | app/much.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/app/much.hs b/app/much.hs index aba074c..7f9ff4e 100644 --- a/app/much.hs +++ b/app/much.hs @@ -98,10 +98,12 @@ myKeymap "=" = \q@State{..} -> bf = BreakFormat 80 8 shy hyp -- <F1> +myKeymap "\ESCOP" = myKeymap "\ESC[11~" myKeymap "\ESC[11~" = \q@State{..} -> return q { flashMessage = fromString $ show $ treeViewId $ Z.label cursor } -- <F2> +myKeymap "\ESCOQ" = myKeymap "\ESC[12~" myKeymap "\ESC[12~" = \q@State{..} -> return q { flashMessage = fromString $ |