diff options
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/ANSI.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Writers/ANSI.hs b/src/Text/Pandoc/Writers/ANSI.hs index f29794ddf..0a26e5abe 100644 --- a/src/Text/Pandoc/Writers/ANSI.hs +++ b/src/Text/Pandoc/Writers/ANSI.hs @@ -30,8 +30,8 @@ import qualified Data.Text as T import Data.Text.Lazy (toStrict) import qualified Text.DocLayout as D -fleuron :: D.HasChars a => D.Doc a -fleuron = D.literal "─── ☙ ───" +hr :: D.HasChars a => D.Doc a +hr = D.literal $ D.replicateChar 20 '─' data WriterState = WriterState { stNotes :: [D.Doc Text] -- Footnotes @@ -73,7 +73,7 @@ pandocToANSI opts (Pandoc meta blocks) = do let notemark x = D.literal (tshow (x :: Int) <> ".") <+> D.space let marks = take (length notes) $ map notemark [1..] let hangWidth = foldr (max . D.offset) 0 marks - let notepretty | not (null notes) = D.cblock width fleuron $+$ hangMarks hangWidth marks notes + let notepretty | not (null notes) = D.cblock width hr $+$ hangMarks hangWidth marks notes | otherwise = D.empty let main = D.nest 4 $ body $+$ notepretty let context = defField "body" main @@ -84,7 +84,7 @@ pandocToANSI opts (Pandoc meta blocks) = do Just tpl -> toStrict $ D.renderANSI (Just width) $ renderTemplate tpl context titleBlock :: Int -> Context Text -> D.Doc Text -titleBlock width meta = if null most then D.empty else D.cblock width $ most $+$ fleuron +titleBlock width meta = if null most then D.empty else D.cblock width $ most $+$ hr where title = D.bold (fromMaybe D.empty $ getField "title" meta) subtitle = fromMaybe D.empty $ getField "subtitle" meta @@ -119,7 +119,7 @@ blockToANSI _ b@(RawBlock _ _) = do report $ BlockNotRendered b return D.empty -blockToANSI _ HorizontalRule = return $ D.blankline $$ fleuron $$ D.blankline +blockToANSI _ HorizontalRule = return $ D.blankline $$ hr $$ D.blankline blockToANSI opts (Header level _ inlines) = do contents <- inlineListToANSI opts inlines |