diff options
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 21 |
1 files changed, 15 insertions, 6 deletions
diff --git a/app/Main.hs b/app/Main.hs index ee9e850..793d8a5 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -394,7 +394,7 @@ module Main where import Control.Applicative ((<|>)) import Data.Function ((&)) -import Data.List (find, isPrefixOf) +import Data.List (find, intersperse, isPrefixOf) import Data.Map qualified as M import Data.Maybe (catMaybes) import Data.Text qualified as T @@ -569,15 +569,24 @@ main = do let withinPath issue = if null files then True else any (\file -> file `isPrefixOf` issue.file) files ungroupedIssues <- applySorts sort . applyFilters filters . filter withinPath . fst <$> getHistory let groupedIssues = I.groupIssuesBy groupBy ungroupedIssues - putDoc colorize noPager width . P.vsep $ - map + putDoc colorize noPager width + . P.vsep + . intersperse ("" :: P.Doc ann) + $ map ( \(name, issues) -> P.vsep $ - P.hardline - : P.annotate (P.color P.Red) (P.pretty name) + ( P.annotate P.bold . P.annotate (P.color P.Yellow) $ + ( ( P.annotate P.bold $ + ("@topic" :: P.Doc ann) <+> P.pretty name + ) + <+> ("(" :: P.Doc ann) + <> P.pretty (length issues) + <> (")" :: P.Doc ann) + ) + ) : map ( \issue -> - P.indent 4 $ P.annotate P.bold $ P.pretty issue.title + P.indent 4 $ P.pretty issue.title ) issues ) |