diff options
| author | tv <tv@krebsco.de> | 2026-03-19 22:09:58 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2026-03-19 22:39:41 +0100 |
| commit | fdeb641fde5f82c3ad617c5c801ab40955fe62af (patch) | |
| tree | 3b741944473738fb79f4f50943b3975c20a6e9a1 /app/much.hs | |
| parent | 131e4f0ccf655095d13b05f69acdaa1c22b9e6d4 (diff) | |
blessings: 2 -> 3
Diffstat (limited to 'app/much.hs')
| -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 |