Re: Syntactically extensible markdown - would something like this work well with pandoc?

["'Saku Laesvuori' via pandoc-discuss" <pandoc-discuss-/JYPxA39Uh5TLH3MbocFFw@public.gmane.org>]

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

> but pattern matching will fail if the inner details content is anything but 
> the simplest markup.
> Ideally I would do something like "the first block goes in the summary and 
> the rest gets rendered as usual outside". But I couldn't figure out how to 
> do that - could you give me any ideas?

> details :: Maybe Format -> Block -> Block
> details (Just format) x@(Div (_id, classes, _attributes) [Para [Str summary], Para [Str spoiler]]) = 
>   case "details" `elem` classes of
>     True
>       | format == Format "html" -> RawBlock format $
>         "<details>" <> "<summary>" <> summary <> "</summary>" <> spoiler <> "</details>"
>       | otherwise -> x
>     _ -> x
> details _ x = x

Instead of pattern matching on a list of Para elements with a single
Str element, try matching the head and tail of the list `x@(Div (_id,
classes, _attributes) summary:details)`. Then you can render the summary
and details blocks to html (Text.Pandoc.Writers.HTML).

> (by the way, I'm a very newbie haskeller, so any advice on code style is 
> also welcome, but not required)

You could use guards instead of the case ... of block and test for the
format in pattern matching:

```
details (Just format@(Format "html")) x@(Div ...)
  | "details" `elem` classes = RawBlock format $ ...
  | otherwise = x
details _ x = x
```