diff options
author | tv <tv@krebsco.de> | 2023-02-06 00:47:05 +0100 |
---|---|---|
committer | tv <tv@krebsco.de> | 2023-02-06 00:48:58 +0100 |
commit | 40ed964ca4a4a4e3ee9b4c4250fa6d0f049c629a (patch) | |
tree | 393d7d13dd0959e5cae41ad83ab2e04ba5049c00 /src | |
parent | 3fb447fe006a48bb1e7ecfee3ea0bae2871f78b7 (diff) |
RenderTreeView: quoteSpecials in subject1.3.2
Diffstat (limited to 'src')
-rw-r--r-- | src/Much/RenderTreeView.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |