diff options
Diffstat (limited to 'src/Much/RenderTreeView.hs')
| -rw-r--r-- | src/Much/RenderTreeView.hs | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/src/Much/RenderTreeView.hs b/src/Much/RenderTreeView.hs index ea81fe2..21af597 100644 --- a/src/Much/RenderTreeView.hs +++ b/src/Much/RenderTreeView.hs @@ -1,30 +1,29 @@ -{-# LANGUAGE LambdaCase #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} module Much.RenderTreeView (renderTreeView) where -import qualified Notmuch.Message as Notmuch -import qualified Notmuch.SearchResult as Notmuch -import qualified Data.CaseInsensitive as CI -import qualified Data.List as L -import qualified Data.Map as M -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.CaseInsensitive qualified as CI import Data.Char -import Data.Function import Data.Functor.Identity +import Data.List qualified as L +import Data.Map qualified as M import Data.Maybe +import Data.Text qualified as T import Data.Time import Data.Time.Format.Human import Data.Tree +import Data.Tree.Zipper qualified as Z import Much.State import Much.TagUtils (Tag) import Much.TreeView +import Much.TreeZipperUtils qualified as Z +import Notmuch.Message qualified as Notmuch +import Notmuch.SearchResult qualified as Notmuch + color :: (ColorConfig Identity -> Identity Pm) -> ColorConfig Identity -> Blessings String -> Blessings String color key config = SGR $ runIdentity $ key config |