Markdown writer: Cleaner (code)blocks with single class

When a block only has a single class and no other attributes,
it is not necessary to wrap the class attribute in curly braces –
the class name can be placed after the opening mark as is.

This will result in bit cleaner output when pandoc is used
as a markdown pretty-printer.

src/Text/Pandoc/Writers/Markdown.hs

@@ -279,6 +279,12 @@ attrsToMarkdown attribs = braces $ hsep [attribId, attribClasses, attribKeys]
               escAttrChar '\\' = literal "\\\\"
               escAttrChar c    = literal $ T.singleton c
 
+-- | (Code) blocks with a single class can just use it standalone,
+-- no need to bother with curly braces.
+classOrAttrsToMarkdown :: Attr -> Doc Text
+classOrAttrsToMarkdown ("",[cls],_) = literal cls
+classOrAttrsToMarkdown attrs = attrsToMarkdown attrs
+
 linkAttributes :: WriterOptions -> Attr -> Doc Text
 linkAttributes opts attr =
   if isEnabled Ext_link_attributes opts && attr /= nullAttr
@@ -344,7 +350,7 @@ blockToMarkdown' opts (Div attrs ils) = do
     case () of
          _ | isEnabled Ext_fenced_divs opts &&
              attrs /= nullAttr ->
-                nowrap (literal ":::" <+> attrsToMarkdown attrs) $$
+                nowrap (literal ":::" <+> classOrAttrsToMarkdown attrs) $$
                 chomp contents $$
                 literal ":::" <> blankline
            | isEnabled Ext_native_divs opts ||
@@ -513,7 +519,7 @@ blockToMarkdown' opts (CodeBlock attribs str) = do
      backticks = endline '`'
      tildes = endline '~'
      attrs  = if isEnabled Ext_fenced_code_attributes opts
-                 then nowrap $ " " <> attrsToMarkdown attribs
+                 then nowrap $ " " <> classOrAttrsToMarkdown attribs
                  else case attribs of
                             (_,cls:_,_) -> " " <> literal cls
                             _             -> empty

test/command/5304.md

@@ -1,6 +1,6 @@
 ````
 % pandoc -f markdown -t markdown
-``` {.markdown}
+``` markdown
 `«sträng»`
 
 `` «sträng» ``
@@ -11,7 +11,7 @@
 ... 
 ```
 ^D
-``` {.markdown}
+``` markdown
 `«sträng»`
 
 `` «sträng» ``

test/command/5519.md

@@ -1,12 +1,12 @@
 ~~~
 % pandoc -t markdown
-``````{.attr}
+`````` attr
  ```
  code
  ```
 ``````
 ^D
-```` {.attr}
+```` attr
  ```
  code
  ```

test/command/6925.md

@@ -20,13 +20,13 @@ a
 \end{thm2}
 \end{document}
 ^D
-::: {.thm}
+::: thm
 **Theorem 1**. *a*
 
 ![image](1.png)
 :::
 
-::: {.thm2}
+::: thm2
 **Theorem 1**. a
 
 ![image](1.png)

test/command/toc.md

@@ -31,15 +31,15 @@
 
 ## b
 
-::: {.interior}
+::: interior
 # C
 
 ## cc
 
 # D
 :::
 
-::: {.blue}
+::: blue
 # E
 
 ## e