feat: show commit references in show command

2 files changed, 14 insertions, 14 deletions

diff --git a/app/Issue/Meta.hs b/app/Issue/Meta.hs
index d9851ec..4c237a4 100644
--- a/app/Issue/Meta.hs
+++ b/app/Issue/Meta.hs
@@ -21,7 +21,7 @@ getMeta issues issue =
           ( \issueOther ->
               let tagsRelevant =
                     filter (\tag -> tagValue tag == fmap T.pack issue.id) issueOther.tags
-               in map (\tag -> (issue, tag)) tagsRelevant
+               in map (\tag -> (issueOther, tag)) tagsRelevant
           )
           issues
     }
diff --git a/app/Main.hs b/app/Main.hs
index a16ee7e..06327c4 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -235,19 +235,6 @@
 -- @topic dependencies
 -- @backlog
 
--- TODO Relations between issues
---
--- Issues should be able to refer to other issues (via id) within their tags,
--- ie. `@supersedes target-issue-id`. Such relations should create issue
--- events on the target issue, and recording the source issue id that created
--- the relation.
---
--- This might serve as ground work for dependencies-between-issues.
---
--- @related dependencies-between-issues
--- @priority high
--- @assigned Alexander Foremny
-
 -- TODO Add fulltext search
 --
 -- Additional to `--filter` it should be possible to search for issues
@@ -384,6 +371,7 @@
 module Main where
 
 import Control.Applicative ((<|>))
+import Control.Monad (when)
 import Data.Function ((&))
 import Data.List (find, intersperse, isPrefixOf)
 import Data.List.Extra (list)
@@ -702,6 +690,18 @@ main = do
                 ++ "\n@row "
                 ++ show issue.start.row
                 ++ "\n"
+          when (not $ null meta.referencedBy) $
+            putDoc colorize True width . P.annotate (P.color P.Black) . P.vsep $
+              P.pretty ("" :: T.Text)
+                : map
+                  ( \(otherIssue, tag) ->
+                      P.pretty ("This commit was referenced by issue " :: T.Text)
+                        <> P.annotate P.bold (P.pretty otherIssue.id)
+                        <> P.pretty (" (" :: T.Text)
+                        <> P.annotate P.bold (P.pretty ("@" <> I.tagKey tag))
+                        <> P.pretty (")." :: T.Text)
+                  )
+                  meta.referencedBy
     Options {colorize, noPager, width, internalTags, command = Tags} -> do
       issues <- trd3 . last <$> getHistory
       let tags =