jgm · jgm · Apr 25, 2021 · Apr 24, 2021 · jgm · Jun 21, 2021
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/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

diff --git a/test/command/5304.md b/test/command/5304.md
@@ -11,7 +11,7 @@
 ... 
 ```
 ^D
-``` {.markdown}
+``` markdown
 `«sträng»`
 
 `` «sträng» ``

diff --git a/test/command/5519.md b/test/command/5519.md
@@ -6,7 +6,7 @@
  ```
 ``````
 ^D
-```` {.attr}
+```` attr
  ```
  code
  ```

diff --git a/test/command/6925.md b/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)

diff --git a/test/command/toc.md b/test/command/toc.md
@@ -31,15 +31,15 @@
 
 ## b
 
-::: {.interior}
+::: interior
 # C
 
 ## cc
 
 # D
 :::
 
-::: {.blue}
+::: blue
 # E
 
 ## e
-Original file line number
+Diff line change
@@ Expand Up / @@ -6,7 +6,7 @@ @@
      ```
     ``````
     ^D
-    ```` {.attr}
+    ```` attr
      ```
      code
      ```
@@ Expand Down @@