print file and row in show mode

1 files changed, 15 insertions, 1 deletions

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