print file and row in show mode

2 files changed, 17 insertions, 1 deletions

diff --git a/app/Issue.hs b/app/Issue.hs
index 0e3ac2b..a222d0a 100644
--- a/app/Issue.hs
+++ b/app/Issue.hs
@@ -20,6 +20,7 @@ import Prelude hiding (id)
 data Issue = Issue
   { title :: Text,
     description :: Maybe Text,
+    file :: String,
     start :: G.Position,
     end :: G.Position,
     tags :: [Tag],
@@ -42,6 +43,7 @@ fromMatch result match =
         Issue
           { title = title,
             description = description,
+            file = result.file,
             start = match.start,
             end = match.end,
             tags = maybe [] I.extractTags description,
diff --git a/app/Main.hs b/app/Main.hs
index 947ab85..0cb5036 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -187,7 +187,14 @@ main = do
       issues <- listIssues [] []
       case find ((==) (Just id) . I.id) issues of
         Nothing -> die (printf "no issue with id `%s'\n" id)
-        Just issue ->
+        Just issue -> do
+          putDoc $
+            P.annotate (P.color P.Green) $
+              P.pretty $
+                issue.file
+                  ++ ":"
+                  ++ show issue.start.row
+                  ++ "\n\n"
           sh_
             ( P.setStdin
                 ( String.fromString
@@ -202,6 +209,13 @@ main = do
                 -- @topic formatting
                 "mdcat --columns 80 --local"
             )
+          putDoc $
+            P.pretty $
+              "\n@file "
+                ++ issue.file
+                ++ "\n@row "
+                ++ show issue.start.row
+                ++ "\n"
 
 putDoc :: P.Doc P.AnsiStyle -> IO ()
 putDoc doc = do