From 2b93e0bce102d7ccf8402b4506be9e55698f2ea9 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Wed, 4 Oct 2023 15:48:26 +0200 Subject: strip tags from description --- app/Main.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'app/Main.hs') diff --git a/app/Main.hs b/app/Main.hs index 151115e..44b4242 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -134,7 +134,13 @@ showMatches issues = do [ [P.annotate P.bold (P.pretty issue.title)], if not (T.null issue.description) then [P.pretty issue.description] - else [] + else [], + map + ( \(I.Tag k v) -> + P.annotate (P.colorDull P.Yellow) $ + P.pretty ("@" `T.append` k `T.append` " " `T.append` v) + ) + issue.tags ] ) ) -- cgit v1.2.3