From 40ed964ca4a4a4e3ee9b4c4250fa6d0f049c629a Mon Sep 17 00:00:00 2001 From: tv Date: Mon, 6 Feb 2023 00:47:05 +0100 Subject: RenderTreeView: quoteSpecials in subject --- src/Much/RenderTreeView.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3