diff options
Diffstat (limited to 'app')
| -rw-r--r-- | app/much.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/app/much.hs b/app/much.hs index 87d73c0..aba074c 100644 --- a/app/much.hs +++ b/app/much.hs @@ -3,9 +3,9 @@ module Main (main) where -import Blessings.String.WCWidth import Data.Default import Data.Maybe +import Data.String (fromString) import Data.Tree qualified as Tree import Data.Tree.Zipper qualified as Z import Much.API qualified @@ -99,12 +99,12 @@ myKeymap "=" = \q@State{..} -> -- <F1> myKeymap "\ESC[11~" = \q@State{..} -> - return q { flashMessage = Plain $ show $ treeViewId $ Z.label cursor } + return q { flashMessage = fromString $ show $ treeViewId $ Z.label cursor } -- <F2> myKeymap "\ESC[12~" = \q@State{..} -> return q { flashMessage = - Plain $ + fromString $ show $ maybe Nothing (Just . Notmuch.messageFilename) $ getMessage $ @@ -112,8 +112,8 @@ myKeymap "\ESC[12~" = \q@State{..} -> } -- TODO Stuff Vim sends after exit (also there is more...) -myKeymap "\ESC[2;2R" = \q -> return q { flashMessage = flashMessage q <> " " <> Plain "stupid" } -myKeymap "\ESC[>85;95;0c" = \q -> return q { flashMessage = flashMessage q <> " " <> Plain "stupid" } +myKeymap "\ESC[2;2R" = \q -> return q { flashMessage = flashMessage q <> " " <> "stupid" } +myKeymap "\ESC[>85;95;0c" = \q -> return q { flashMessage = flashMessage q <> " " <> "stupid" } myKeymap s = displayKey s |