diff options
| -rw-r--r-- | config/tv.hs | 2 | ||||
| -rw-r--r-- | much.cabal | 6 | ||||
| -rw-r--r-- | src/Much/RenderTreeView.hs | 3 |
3 files changed, 7 insertions, 4 deletions
diff --git a/config/tv.hs b/config/tv.hs index 2d57678..ea9542a 100644 --- a/config/tv.hs +++ b/config/tv.hs @@ -43,6 +43,8 @@ myKeymap :: String -> State -> IO State myKeymap "a" = toggleTagAtCursor "inbox" myKeymap "s" = toggleTagAtCursor "unread" +myKeymap "g" = toggleTagAtCursor "killed" +myKeymap "f" = toggleTagAtCursor "star" myKeymap "&" = toggleTagAtCursor "killed" myKeymap "*" = toggleTagAtCursor "star" myKeymap "k" = moveCursorUp 1 @@ -21,7 +21,7 @@ executable much-tv , case-insensitive , time , safe - , scanner + , terminal-scanner , directory , hyphenation , linebreak @@ -45,7 +45,7 @@ executable much-kmein , filepath , process , rosezipper - , scanner + , terminal-scanner , text , unix @@ -105,9 +105,9 @@ library , random , rosezipper , safe - , scanner , servant-server , split + , terminal-scanner , terminal-size , text , time diff --git a/src/Much/RenderTreeView.hs b/src/Much/RenderTreeView.hs index ebed6e0..ea81fe2 100644 --- a/src/Much/RenderTreeView.hs +++ b/src/Much/RenderTreeView.hs @@ -13,6 +13,7 @@ import qualified Data.Text as T import qualified Data.Tree.Zipper as Z import qualified Much.TreeZipperUtils as Z import Blessings +import Blessings.String.Extra (quoteSpecials) import Control.Arrow import Data.Char import Data.Function @@ -133,7 +134,7 @@ renderTreeView1 q@State{..} hasFocus x = case x of authors = Plain $ T.unpack $ Notmuch.searchAuthors sr date = color Much.State.date colorConfig $ renderDate now x - subject = Plain $ T.unpack $ Notmuch.searchSubject sr + subject = quoteSpecials $ Plain $ T.unpack $ Notmuch.searchSubject sr tags = color Much.State.tags colorConfig $ renderTags q (Notmuch.searchTags sr) title = if subject /= "" then subject else c_authors authors in |