yogsototh/gpm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

review show better display

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2018-10-07 17:20:45 +02:00
parent 10b29065d2
commit 2d434d9b8a
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/GPM/Review.hs
View file

@ -197,7 +197,12 @@ retrieveReview br = do
showReview :: Text -> IO () showReview :: Text -> IO ()
showReview br = do showReview br = do
reviewName <- getTmpReviewFile br reviewName <- getTmpReviewFile br
putText "--------------------------------------------------------------------------------"
putText $ format ("Review file: "%fp) reviewName
putText $ format ("(setq org-annotate-file-storage-file \""%fp%"\")") reviewName
putText "--------------------------------------------------------------------------------"
stdout (input reviewName) stdout (input reviewName)
putText "--------------------------------------------------------------------------------"
protectStr :: Text -> Text protectStr :: Text -> Text
protectStr = protectStr =