Re: Making a simple script to send coloured output to a terminal.

[John MacFarlane <fiddlosopher-Re5JQEeQqe8AvxtiuMwx3w@public.gmane.org>]

You won't be able to change the color of the bullets with
this method.  Given what you want to do, your best bet might
be to add a new writer (a variant of the markdown writer)
or perhaps add a "writerAnsiColors" option to WriterOptions
and use it in the markdown writer.

+++ Qubyte [Oct 21 12 02:15 ]:
>    Hi all,
> 
>    Someone recently asked me if it was possible to pretty print markdown
>    in a terminal, for example to preview git commit messages and such. I'm
>    playing around with the idea as basically stripping some formatting (I
>    don't need # or === but I want to keep bullets or numbers for lists)
>    and injecting in colours, bold, underlines etc. So far I have:
> 
>    import Text.Pandoc
>    colour :: Block -> Block
>    colour (Header n xs) = Para $ map modHeader xs
>    --colour (BulletList xs) = BulletList $ map modBullet xs
>    colour x = x
>    modHeader :: Inline -> Inline
>    modHeader (Str xs) = Str $ "\x1b[1m\x1b[32m" ++ xs ++ "\x1b[0m"
>    modHeader x = x
>    --modBullets :: Block -> Block
>    --modBullets (Plain xs) = Plain $ map modBullet xs
>    --modBullet :: Inline -> Inline
>    --modBullet (Str xs) = Str $ "\x1b[1m\x1b[32m" ++ xs ++ "\x1b[0m"
>    main :: IO ()
>    main = toJsonFilter $ colour
> 
>    Which just makes all headers green (I'll add in cases for different
>    depths later). I'm having trouble with bullet lists though. I'd like to
>    mutate them either into a single paragraph with injected newlines and
>    dashes for bullets (and characters for colour encoding) or modify the
>    content of each point with inline colour encoding. To execute what I
>    have so far, I compile as toTerminal and run files through pandoc like:
> 
>    pandoc -t json something.markdown | ./toTerminal | pandoc -f json -t
>    plain
> 
>    And hints or tips would be very much appreciated! If I can get the
>    bullet lists working, I'm pretty sure I can figure the rest out. :)
> 
>    Thanks,
> 
>    Mark
> 
>    --
>    You received this message because you are subscribed to the Google
>    Groups "pandoc-discuss" group.
>    To post to this group, send email to pandoc-discuss-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
>    To unsubscribe from this group, send email to
>    pandoc-discuss+unsubscribe-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
>    To view this discussion on the web visit
>    [1]https://groups.google.com/d/msg/pandoc-discuss/-/7NiJS5t6WnAJ.
>    For more options, visit [2]https://groups.google.com/groups/opt_out.
> 
> References
> 
>    1. https://groups.google.com/d/msg/pandoc-discuss/-/7NiJS5t6WnAJ
>    2. https://groups.google.com/groups/opt_out