diff options
-rw-r--r-- | config/tv.hs | 2 | ||||
-rw-r--r-- | src/Much/RenderTreeView.hs | 3 |
2 files changed, 4 insertions, 1 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 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 |