review show better display
This commit is contained in:
parent
10b29065d2
commit
2d434d9b8a
1 changed files with 5 additions and 0 deletions
|
@ -197,7 +197,12 @@ retrieveReview br = do
|
|||
showReview :: Text -> IO ()
|
||||
showReview br = do
|
||||
reviewName <- getTmpReviewFile br
|
||||
putText "--------------------------------------------------------------------------------"
|
||||
putText $ format ("Review file: "%fp) reviewName
|
||||
putText $ format ("(setq org-annotate-file-storage-file \""%fp%"\")") reviewName
|
||||
putText "--------------------------------------------------------------------------------"
|
||||
stdout (input reviewName)
|
||||
putText "--------------------------------------------------------------------------------"
|
||||
|
||||
protectStr :: Text -> Text
|
||||
protectStr =
|
||||
|
|
Loading…
Reference in a new issue