Re: filter to remove inline HTML comments

[Mark Szepieniec <mszepien-Re5JQEeQqe8AvxtiuMwx3w@public.gmane.org>]

[-- Attachment #1: Type: text/plain, Size: 3446 bytes --]

Merging the two filters is not straightforward, as one operates on Blocks
and the other on Inlines. It would be doable by merging them into a
function that operates on Pandocs (the datatype pandoc uses to represent
complete documents). However, I don't see why you would want to go to the
trouble of doing that; I think it's more elegant to keep them separate and
if you need to use both just do `pandoc ... --filter removeInlineComments
--filter removeBlockComments` which would apply the filters in that order.
That way, things are more modular and therefore easier to repurpose for
future use cases.

On Sat, Dec 13, 2014 at 8:09 PM, Pablo Rodríguez <oinos-S0/GAf8tV78@public.gmane.org> wrote:
>
> Many thanks for your reply and the code, Mark.
>
> How can I merge both filters (for block and inline comments) into a
> single one.
>
> I tried something like:
>
> #!/usr/bin/runhaskell
>
> module Main where
>
> import Text.Pandoc.JSON
> import Data.List
>
> main :: IO ()
> main = do
>     toJSONFilter removeBlockComments removeInlineComments
>     toJSONFilter removeBlockComments removeInlineComments
>
> removeBlockComments :: Block -> [Block]
> removeBlockComments e@(RawBlock (Format "html") _) = if isComment s then
> [] else [e]
> removeBlockComments e = [e]
>
> removeInlineComments :: Inline -> [Inline]
> removeInlineComments e@(RawInline (Format "html") s) = if isComment s
> then [] else [e]
> removeInlineComments e = [e]
>
> isComment :: String -> Bool
> isComment = isPrefixOf "<!--"
>
> But I must confess that this is the first time I try to write (or even
> read) something in Haskell.
>
> How could be both filters merged?
>
> Many thanks for your help,
>
>
> Pablo
>
>
>
> On 12/13/2014 03:09 PM, Mark Szepieniec wrote:
> > module Main where
> >
> > import Text.Pandoc.JSON
> > import Data.List
> >
> > main = toJSONFilter removeComments
> >
> > removeComments :: Inline -> [Inline]
> > removeComments e@(RawInline (Format "html") s) = if isComment s then []
> else [e]
> > removeComments e = [e]
> >
> > isComment :: String -> Bool
> > isComment = isPrefixOf "<!--"
> >
> > This should work, although I've not tested it myself.
> >
> > Mark
>
>
> --
> http://www.ousia.tk
>
> --
> You received this message because you are subscribed to the Google Groups
> "pandoc-discuss" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to pandoc-discuss+unsubscribe-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
> To post to this group, send email to pandoc-discuss-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
> To view this discussion on the web visit
> https://groups.google.com/d/msgid/pandoc-discuss/548C8EF8.8050007%40web.de
> .
> For more options, visit https://groups.google.com/d/optout.
>

-- 
You received this message because you are subscribed to the Google Groups "pandoc-discuss" group.
To unsubscribe from this group and stop receiving emails from it, send an email to pandoc-discuss+unsubscribe-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
To post to this group, send email to pandoc-discuss-/JYPxA39Uh5TLH3MbocFF+G/Ez6ZCGd0@public.gmane.org
To view this discussion on the web visit https://groups.google.com/d/msgid/pandoc-discuss/CAE4-1rVuUuGss_x43gr80TgfHaxhRF8-MEyhM335Au3RZ-HGgg%40mail.gmail.com.
For more options, visit https://groups.google.com/d/optout.

[-- Attachment #2: Type: text/html, Size: 4906 bytes --]