@@ -63,6 +63,8 @@ module Text.Pandoc.Pretty (
6363 , braces
6464 , brackets
6565 , parens
66+ , quotes
67+ , doubleQuotes
6668 )
6769
6870where
@@ -417,3 +419,11 @@ brackets = inside (char '[') (char ']')
417419-- | Puts a 'Doc' in parentheses.
418420parens :: Doc -> Doc
419421parens = inside (char '(') (char ')')
422+
423+-- | Wraps a 'Doc' in single quotes.
424+quotes :: Doc -> Doc
425+quotes = inside (char '\'') (char '\'')
426+
427+-- | Wraps a 'Doc' in double quotes.
428+doubleQuotes :: Doc -> Doc
429+doubleQuotes = inside (char '"') (char '"')