tag is created by percent % signs between whitespaces."
+-- e.g. My mother has %{color:green;}green% eyes.
+spanGroup :: PandocMonad m => TextileParser m Inlines
+spanGroup = try $ do
+ notAfterString >>= guard
+ char '%' *> notFollowedBy whitespace
+ attr <- option nullAttr attributes
+ contents <- mconcat <$> manyTill
+ (try (((B.space <>) <$> try (whitespace *> notFollowedBy newline *> inline))
+ <|> try (notFollowedBy newline *> inline)))
+ (try (char '%' <* lookAhead (newline <|> ' ' <$ whitespace)))
+ pure $ B.spanWith attr contents
+
-- | Trademark, registered, copyright
mark :: PandocMonad m => TextileParser m Inlines
mark = try $ char '(' >> (try tm <|> try reg <|> copy)
@@ -778,12 +791,14 @@
-> (Inlines -> Inlines) -- ^ Inline constructor
-> TextileParser m Inlines -- ^ content parser (to be used repeatedly)
simpleInline border construct = try $ do
- notAfterString
+ notAfterString >>= guard
border *> notFollowedBy (oneOf " \t\n\r")
attr <- attributes
body <- trimInlines . mconcat <$>
withQuoteContext InSingleQuote
- (manyTill (notFollowedBy newline >> inline)
+ (manyTill (((B.space <>) <$>
+ try (whitespace *> notFollowedBy newline >> inline))
+ <|> try (notFollowedBy newline >> inline))
(try border <* notFollowedBy alphaNum))
return $ construct $
if attr == nullAttr
diff --git a/src/Text/Pandoc/Readers/Vimwiki.hs b/src/Text/Pandoc/Readers/Vimwiki.hs
--- a/src/Text/Pandoc/Readers/Vimwiki.hs
+++ b/src/Text/Pandoc/Readers/Vimwiki.hs
@@ -54,6 +54,7 @@
import Data.Maybe
import Data.Text (Text)
import qualified Data.Text as T
+import Safe (lastMay)
import Text.Pandoc.Builder (Blocks, Inlines, fromList, toList, trimInlines)
import qualified Text.Pandoc.Builder as B (blockQuote, bulletList, code,
codeBlockWith, definitionList,
@@ -510,9 +511,7 @@
notFollowedBy (oneOf spaceChars)
contents <- mconcat <$> many1Till inline'
(try (char '*' *> notFollowedBy alphaNum))
- guard $ case reverse (toList contents) of
- Space:_ -> False
- _ -> True
+ guard $ lastMay (toList contents) /= Just Space
return $ B.spanWith (makeId contents, [], []) mempty <> B.strong contents
makeId :: Inlines -> Text
@@ -524,9 +523,7 @@
notFollowedBy (oneOf spaceChars)
contents <- mconcat <$> many1Till inline'
(try (char '_' *> notFollowedBy alphaNum))
- guard $ case reverse (toList contents) of
- Space:_ -> False
- _ -> True
+ guard $ lastMay (toList contents) /= Just Space
return $ B.emph contents
strikeout :: PandocMonad m => VwParser m Inlines
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -523,7 +523,7 @@
where
getLevel (Header level _ _) = Min level
getLevel _ = Min 99
- minLevel = if null numoffsets || all (== 0) numoffsets
+ minLevel = if all (== 0) numoffsets
then getMin $ query getLevel bs
else 1 -- see #5071, for backwards compatibility
go :: [Block] -> S.State [Int] [Block]
diff --git a/src/Text/Pandoc/Transforms.hs b/src/Text/Pandoc/Transforms.hs
--- a/src/Text/Pandoc/Transforms.hs
+++ b/src/Text/Pandoc/Transforms.hs
@@ -154,6 +154,11 @@
| n < 0
, m + n == 0 = headerShift n $
B.setTitle (B.fromList ils) $ Pandoc meta bs
+-- for this case, see #10459:
+headerShift n (Pandoc meta (Div attr@(_,"section":_,_) (Header m _ ils : as) : bs))
+ | n < 0
+ , m + n == 0 = headerShift n $
+ B.setTitle (B.fromList ils) $ Pandoc meta (Div attr as : bs)
headerShift n (Pandoc meta bs) = Pandoc meta (walk shift bs)
where
diff --git a/src/Text/Pandoc/URI.hs b/src/Text/Pandoc/URI.hs
--- a/src/Text/Pandoc/URI.hs
+++ b/src/Text/Pandoc/URI.hs
@@ -15,13 +15,20 @@
, isURI
, schemes
, uriPathToPath
+ , pBase64DataURI
) where
import qualified Network.HTTP.Types as HTTP
+import Data.ByteString.Base64 (decodeLenient)
+import Text.Pandoc.MIME (MimeType)
+import qualified Data.ByteString as B
import qualified Text.Pandoc.UTF8 as UTF8
import qualified Data.Text as T
import qualified Data.Set as Set
import Data.Char (isSpace, isAscii)
import Network.URI (URI (uriScheme), parseURI, escapeURIString)
+import qualified Data.Attoparsec.Text as A
+import Data.Text.Encoding (encodeUtf8)
+import Control.Applicative (many)
urlEncode :: T.Text -> T.Text
urlEncode = UTF8.toText . HTTP.urlEncode True . UTF8.fromText
@@ -90,12 +97,16 @@
-- | Check if the string is a valid URL with a IANA or frequently used but
-- unofficial scheme (see @schemes@).
isURI :: T.Text -> Bool
-isURI =
- -- we URI-escape non-ASCII characters because otherwise parseURI will choke:
- maybe False hasKnownScheme . parseURI . escapeURIString isAscii . T.unpack
+isURI t =
+ -- If it's a base 64 data: URI, avoid the expensive call to parseURI:
+ case A.parseOnly (pBase64DataURI *> A.endOfInput) t of
+ Right () -> True
+ Left _ ->
+ -- we URI-escape non-ASCII characters because otherwise parseURI will choke:
+ maybe False hasKnownScheme . parseURI . escapeURIString isAscii . T.unpack $ t
where
- hasKnownScheme = (`Set.member` schemes) . T.toLower .
- T.filter (/= ':') . T.pack . uriScheme
+ hasKnownScheme =
+ (`Set.member` schemes) . T.toLower . T.filter (/= ':') . T.pack . uriScheme
-- | Converts the path part of a file: URI to a regular path.
-- On windows, @/c:/foo@ should be @c:/foo@.
@@ -109,3 +120,31 @@
#else
path
#endif
+
+pBase64DataURI :: A.Parser (B.ByteString, MimeType)
+pBase64DataURI = base64uri
+ where
+ base64uri = do
+ A.string "data:"
+ mime <- do
+ n1 <- restrictedName
+ A.char '/'
+ n2 <- restrictedName
+ mps <- many mediaParam
+ pure $ n1 <> "/" <> n2 <> mconcat mps
+ A.string ";base64,"
+ b64 <- A.takeWhile (A.inClass "A-Za-z0-9+/")
+ A.skipWhile (== '=')
+ -- this decode should be lazy:
+ pure (decodeLenient (encodeUtf8 b64), mime)
+ restrictedName = do
+ c <- A.satisfy (A.inClass "A-Za-z0-9")
+ rest <- A.takeWhile (A.inClass "A-Za-z0-9!#$&^_.+-")
+ pure $ T.singleton c <> rest
+ mediaParam = do
+ A.char ';'
+ A.skipWhile isSpace
+ k <- restrictedName
+ A.char '='
+ v <- A.takeWhile (/=';')
+ pure $ ";" <> k <> "=" <> v
diff --git a/src/Text/Pandoc/Writers/ANSI.hs b/src/Text/Pandoc/Writers/ANSI.hs
--- a/src/Text/Pandoc/Writers/ANSI.hs
+++ b/src/Text/Pandoc/Writers/ANSI.hs
@@ -82,7 +82,7 @@
body <- blockListToANSI opts blocks'
notes <- gets $ reverse . stNotes
let notemark x = D.literal (tshow (x :: Int) <> ".") <+> D.space
- let marks = take (length notes) $ map notemark [1..]
+ let marks = map notemark [1..length notes]
let hangWidth = foldr (max . D.offset) 0 marks
let notepretty | not (null notes) = D.cblock width hr $+$ hangMarks hangWidth marks notes
| otherwise = D.empty
@@ -297,12 +297,12 @@
inlineToANSI opts (Superscript lst) = do
case traverse toSuperscriptInline lst of
Just xs -> inlineListToANSI opts xs
- Nothing -> inlineListToANSI opts lst >>= return . D.parens
+ Nothing -> D.parens <$> inlineListToANSI opts lst
inlineToANSI opts (Subscript lst) = do
case traverse toSubscriptInline lst of
Just xs -> inlineListToANSI opts xs
- Nothing -> inlineListToANSI opts lst >>= return . D.parens
+ Nothing -> D.parens <$> inlineListToANSI opts lst
inlineToANSI opts (SmallCaps lst) = inlineListToANSI opts lst
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
--- a/src/Text/Pandoc/Writers/Docx.hs
+++ b/src/Text/Pandoc/Writers/Docx.hs
@@ -346,7 +346,6 @@
let relEntry = toEntry "word/_rels/document.xml.rels" epochtime
$ renderXml reldoc
- -- let sectpr = fromMaybe (mknode "w:sectPr" [] ()) mbsectpr'
let contents' = BL.fromStrict $ UTF8.fromText contents
-- word/document.xml
diff --git a/src/Text/Pandoc/Writers/Docx/OpenXML.hs b/src/Text/Pandoc/Writers/Docx/OpenXML.hs
--- a/src/Text/Pandoc/Writers/Docx/OpenXML.hs
+++ b/src/Text/Pandoc/Writers/Docx/OpenXML.hs
@@ -286,6 +286,8 @@
(fmap (vcat . map (literal . showContent)) . blocksToOpenXML opts)
(fmap (hcat . map (literal . showContent)) . inlinesToOpenXML opts)
meta
+ cStyleMap <- gets (smParaStyle . stStyleMaps)
+ let styleIdOf name = fromStyleId $ getStyleIdFromName name cStyleMap
let context = resetField "body" body
. resetField "toc"
(vcat (map (literal . showElement) toc))
@@ -299,6 +301,12 @@
. resetField "date" date
. resetField "abstract-title" abstractTitle
. resetField "abstract" abstract
+ . resetField "title-style-id" (styleIdOf "Title")
+ . resetField "subtitle-style-id" (styleIdOf "Subtitle")
+ . resetField "author-style-id" (styleIdOf "Author")
+ . resetField "date-style-id" (styleIdOf "Date")
+ . resetField "abstract-title-style-id" (styleIdOf "AbstractTitle")
+ . resetField "abstract-style-id" (styleIdOf "Abstract")
$ metadata
tpl <- maybe (lift $ compileDefaultTemplate "openxml") pure $ writerTemplate opts
let rendered = render Nothing $ renderTemplate tpl context
@@ -367,6 +375,7 @@
wrapBookmark ident $ header <> contents
blockToOpenXML' opts (Header lev (ident,_,kvs) lst) = do
setFirstPara
+ let isChapter = lev == 1 && writerTopLevelDivision opts == TopLevelChapter
paraProps <- withParaPropM (pStyleM (fromString $ "Heading "++show lev)) $
getParaProps False
number <-
@@ -380,14 +389,20 @@
Nothing -> return []
else return []
contents <- (number ++) <$> inlinesToOpenXML opts lst
- if T.null ident
- then return [Elem $ mknode "w:p" [] (map Elem paraProps ++ contents)]
- else do
- let bookmarkName = ident
- modify $ \s -> s{ stSectionIds = Set.insert bookmarkName
- $ stSectionIds s }
- bookmarkedContents <- wrapBookmark bookmarkName contents
- return [Elem $ mknode "w:p" [] (map Elem paraProps ++ bookmarkedContents)]
+ let addSectionBreak
+ | isChapter = (Elem (mknode "w:p" []
+ (mknode "w:pPr" []
+ [mknode "w:sectPr" [] ()])) :)
+ | otherwise = id
+ addSectionBreak <$>
+ if T.null ident
+ then return [Elem $ mknode "w:p" [] (map Elem paraProps ++ contents)]
+ else do
+ let bookmarkName = ident
+ modify $ \s -> s{ stSectionIds = Set.insert bookmarkName
+ $ stSectionIds s }
+ bookmarkedContents <- wrapBookmark bookmarkName contents
+ return [Elem $ mknode "w:p" [] (map Elem paraProps ++ bookmarkedContents)]
blockToOpenXML' opts (Plain lst) = do
isInTable <- gets stInTable
isInList <- gets stInList
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -1578,8 +1578,13 @@
$ toHtml linkTxt
, [A5.controls ""] )
s' = fromMaybe s $ T.stripSuffix ".gz" s
- normSrc = maybe (T.unpack s) uriPath (parseURIReference $ T.unpack s')
- (tag, specAttrs) = case mediaCategory normSrc of
+ category =
+ if "data:" `T.isPrefixOf` s
+ then Just . T.takeWhile (/= '/') . T.drop 5 $ s
+ else case parseURIReference (T.unpack s') of
+ Just u -> mediaCategory $ uriPath u
+ Nothing -> mediaCategory (T.unpack s)
+ (tag, specAttrs) = case category of
Just "image" -> imageTag
Just "video" -> mediaTag H5.video "Video"
Just "audio" -> mediaTag H5.audio "Audio"
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -39,7 +39,7 @@
import Data.Text (Text)
import qualified Data.Text as T
import Network.URI (unEscapeString)
-import Text.DocTemplates (FromContext(lookupContext), renderTemplate)
+import Text.DocTemplates (FromContext(lookupContext), Val(..), renderTemplate)
import Text.Collate.Lang (renderLang, Lang(langLanguage))
import Text.Pandoc.Class.PandocMonad (PandocMonad, report, toLang)
import Text.Pandoc.Definition
@@ -157,11 +157,15 @@
_ -> "article"
when (documentClass `elem` chaptersClasses) $
modify $ \s -> s{ stHasChapters = True }
- case lookupContext "csquotes" (writerVariables options) `mplus`
- (stringify <$> lookupMeta "csquotes" meta) of
- Nothing -> return ()
- Just "false" -> return ()
- Just _ -> modify $ \s -> s{stCsquotes = True}
+ let csquotes =
+ case lookupContext "csquotes" (writerVariables options) of
+ Just (BoolVal v) -> v
+ Just (SimpleVal (Text _ t)) -> t /= ("false" :: Text)
+ _ -> case stringify <$> lookupMeta "csquotes" meta of
+ Nothing -> False
+ Just "false" -> False
+ Just _ -> True
+ when csquotes $ modify $ \s -> s{stCsquotes = True}
let (blocks'', lastHeader) = if writerCiteMethod options == Citeproc then
(blocks', [])
else case reverse blocks' of
@@ -426,6 +430,7 @@
blockToLaTeX $ linesToPara lns
blockToLaTeX (BlockQuote lst) = do
beamer <- gets stBeamer
+ csquotes <- liftM stCsquotes get
case lst of
[b] | beamer && isListBlock b -> do
oldIncremental <- gets stIncremental
@@ -438,7 +443,10 @@
modify (\s -> s{stInQuote = True})
contents <- blockListToLaTeX lst
modify (\s -> s{stInQuote = oldInQuote})
- return $ "\\begin{quote}" $$ contents $$ "\\end{quote}"
+ let envname = if csquotes then "displayquote" else "quote"
+ return $ ("\\begin" <> braces envname) $$
+ contents $$
+ ("\\end" <> braces envname)
blockToLaTeX (CodeBlock (identifier,classes,keyvalAttr) str) = do
opts <- gets stOptions
inNote <- stInNote <$> get
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -470,16 +470,18 @@
let renderEmpty = mempty <$ report (BlockNotRendered b)
case variant of
PlainText
- | f == "plain" -> return $ literal str <> literal "\n"
+ | f == "plain" -> return $ nest 0 (literal str) <> literal "\n"
Commonmark
| f `elem` ["gfm", "commonmark", "commonmark_x", "markdown"]
- -> return $ literal str $$ blankline
+ -> return $ nest 0 (literal str) $$ blankline
| f `elem` ["html", "html5", "html4"]
-> return $ literal (removeBlankLinesInHTML str) $$ blankline
Markdown
| f `elem` ["markdown", "markdown_github", "markdown_phpextra",
"markdown_mmd", "markdown_strict"]
- -> return $ literal str <> literal "\n"
+ -- the 'nest 0' ensures that leading and trailing newlines
+ -- don't get collapsed. See #10477 for context;
+ -> return $ nest 0 (literal str) <> literal "\n"
Markua -> renderEmpty
_ | f `elem` ["html", "html5", "html4"]
, isEnabled Ext_markdown_attribute opts
diff --git a/src/Text/Pandoc/Writers/MediaWiki.hs b/src/Text/Pandoc/Writers/MediaWiki.hs
--- a/src/Text/Pandoc/Writers/MediaWiki.hs
+++ b/src/Text/Pandoc/Writers/MediaWiki.hs
@@ -117,9 +117,12 @@
tags <- asks useTags
lev <- asks listLevel
contents <- inlineListToMediaWiki inlines
+ let initEsc = if startsWithListMarker contents -- #9700
+ then "\\"
+ else ""
return $ if tags
then "" <> contents <> "
"
- else contents <> if null lev then "\n" else ""
+ else initEsc <> contents <> if null lev then "\n" else ""
blockToMediaWiki (LineBlock lns) =
blockToMediaWiki $ linesToPara lns
@@ -1144,3 +1147,9 @@
"yaml",
"yaml+jinja",
"zephir" ]
+
+startsWithListMarker :: Text -> Bool
+startsWithListMarker t =
+ case T.uncons t of
+ Nothing -> False
+ Just (c,_) -> c == '#' || c == ':' || c == ';' || c == '*'
diff --git a/src/Text/Pandoc/Writers/Typst.hs b/src/Text/Pandoc/Writers/Typst.hs
--- a/src/Text/Pandoc/Writers/Typst.hs
+++ b/src/Text/Pandoc/Writers/Typst.hs
@@ -450,7 +450,11 @@
Just v -> ", " <> literal k <> ": " <> literal v
Nothing -> mempty
dimAttrs = mconcat $ map toDimAttr ["height", "width"]
- coreImage = "image" <> parens (doubleQuoted src' <> dimAttrs)
+ isData = "data:" `T.isPrefixOf` src'
+ dataSvg = ""
+ coreImage
+ | isData = "image.decode" <> parens(doubleQuoted dataSvg <> dimAttrs)
+ | otherwise = "image" <> parens (doubleQuoted src' <> dimAttrs)
textstyle :: PandocMonad m => Doc Text -> [Inline] -> TW m (Doc Text)
textstyle s inlines =
diff --git a/test/command/10414.md b/test/command/10414.md
new file mode 100644
--- /dev/null
+++ b/test/command/10414.md
@@ -0,0 +1,6 @@
+```
+% pandoc -f textile -t html
+from 30.-100. text, inside - after dash
+^D
+from 30.–100. text, inside - after dash
+```
diff --git a/test/command/10459.md b/test/command/10459.md
new file mode 100644
--- /dev/null
+++ b/test/command/10459.md
@@ -0,0 +1,11 @@
+```
+% pandoc -s --shift-heading-level-by=-1 -f djot -t native
+# hi
+^D
+Pandoc
+ Meta
+ { unMeta =
+ fromList [ ( "title" , MetaInlines [ Str "hi" ] ) ]
+ }
+ [ Div ( "hi" , [ "section" ] , [] ) [] ]
+```
diff --git a/test/command/10484.md b/test/command/10484.md
new file mode 100644
--- /dev/null
+++ b/test/command/10484.md
@@ -0,0 +1,22 @@
+```
+% pandoc -frst -tmarkdown_strict
+- One issue fixed: `issue 123`_.
+
+- One change merged: `Big change `_.
+
+- Improved the `home page `_.
+
+- One more `small change`__.
+
+.. _issue 123: https://github.com/joe/project/issues/123
+.. _pull 234: https://github.com/joe/project/pull/234
+__ https://github.com/joe/project/issues/999
+
+^D
+- One issue fixed: [issue
+ 123](https://github.com/joe/project/issues/123).
+- One change merged: [Big
+ change](https://github.com/joe/project/pull/234).
+- Improved the [home page](https://example.com/homepage).
+- One more [small change](https://github.com/joe/project/issues/999).
+```
diff --git a/test/command/10490.md b/test/command/10490.md
new file mode 100644
--- /dev/null
+++ b/test/command/10490.md
@@ -0,0 +1,50 @@
+```
+% pandoc -f mediawiki -t html
+{|class="wikitable" style="text-align: center;"
+|-
+!rowspan=3 style=""|Witness program version
+!colspan=4 style=""|Hash size
+|-
+!Mainnet
+!Testnet
+!Mainnet
+!Testnet
+|-
+|0||p2||QW||7Xh||T7n
+|-
+|1||p4||QY||7Xq||T7w
+|}
+^D
+
+
+
+Witness program version |
+Hash size |
+
+
+
+
+Mainnet |
+Testnet |
+Mainnet |
+Testnet |
+ |
+
+
+0 |
+p2 |
+QW |
+7Xh |
+T7n |
+
+
+1 |
+p4 |
+QY |
+7Xq |
+T7w |
+
+
+
+
+```
diff --git a/test/command/10491.md b/test/command/10491.md
new file mode 100644
--- /dev/null
+++ b/test/command/10491.md
@@ -0,0 +1,35 @@
+```
+% pandoc -f mediawiki -t gfm
+{| class="wikitable"
+|-
+!
+!0
+!1
+!2
+!3
+!4
+!5
+!6
+!7
+|-
+!+0
+|q||p||z||r||y||9||x||8
+|-
+!+8
+|g||f||2||t||v||d||w||0
+|-
+!+16
+|s||3||j||n||5||4||k||h
+|-
+!+24
+|c||e||6||m||u||a||7||l
+|}
+^D
+| | 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 |
+|-----|-----|-----|-----|-----|-----|-----|-----|-----|
+| +0 | q | p | z | r | y | 9 | x | 8 |
+| +8 | g | f | 2 | t | v | d | w | 0 |
+| +16 | s | 3 | j | n | 5 | 4 | k | h |
+| +24 | c | e | 6 | m | u | a | 7 | l |
+
+```
diff --git a/test/command/6034.md b/test/command/6034.md
--- a/test/command/6034.md
+++ b/test/command/6034.md
@@ -7,8 +7,13 @@
\end{overpic}
\end{figure*}
^D
-[ RawBlock
- (Format "latex")
- "\\begin{figure*}\n \\centering\n \\begin{overpic}{test_pic}\n \\put (70,80) {Caption}\n \\end{overpic}\n\\end{figure*}"
+[ Figure
+ ( "" , [] , [] )
+ (Caption Nothing [])
+ [ RawBlock (Format "latex") "\\centering"
+ , RawBlock
+ (Format "latex")
+ "\\begin{overpic}{test_pic}\n \\put (70,80) {Caption}\n \\end{overpic}"
+ ]
]
```
diff --git a/test/command/9700.md b/test/command/9700.md
new file mode 100644
--- /dev/null
+++ b/test/command/9700.md
@@ -0,0 +1,14 @@
+```
+% pandoc -t mediawiki
+This is a normal sentence with a manual text footnote\*
+
+\* The footnote explains why it couldn't just be inside parentheses
+
+\#foobar \#foobar
+^D
+This is a normal sentence with a manual text footnote*
+
+\* The footnote explains why it couldn’t just be inside parentheses
+
+\#foobar #foobar
+```
diff --git a/test/command/9878.md b/test/command/9878.md
--- a/test/command/9878.md
+++ b/test/command/9878.md
@@ -4,3 +4,9 @@
^D
[ Para [ Str "15%" , Space , Str "50%" ] ]
```
+```
+% pandoc -f textile -t native
+15%. 70%
+^D
+[ Para [ Str "15%." , Space , Str "70%" ] ]
+```
diff --git a/test/docx/golden/block_quotes.docx b/test/docx/golden/block_quotes.docx
Binary files a/test/docx/golden/block_quotes.docx and b/test/docx/golden/block_quotes.docx differ
diff --git a/test/docx/golden/codeblock.docx b/test/docx/golden/codeblock.docx
Binary files a/test/docx/golden/codeblock.docx and b/test/docx/golden/codeblock.docx differ
diff --git a/test/docx/golden/comments.docx b/test/docx/golden/comments.docx
Binary files a/test/docx/golden/comments.docx and b/test/docx/golden/comments.docx differ
diff --git a/test/docx/golden/custom_style_no_reference.docx b/test/docx/golden/custom_style_no_reference.docx
Binary files a/test/docx/golden/custom_style_no_reference.docx and b/test/docx/golden/custom_style_no_reference.docx differ
diff --git a/test/docx/golden/custom_style_preserve.docx b/test/docx/golden/custom_style_preserve.docx
Binary files a/test/docx/golden/custom_style_preserve.docx and b/test/docx/golden/custom_style_preserve.docx differ
diff --git a/test/docx/golden/custom_style_reference.docx b/test/docx/golden/custom_style_reference.docx
Binary files a/test/docx/golden/custom_style_reference.docx and b/test/docx/golden/custom_style_reference.docx differ
diff --git a/test/docx/golden/definition_list.docx b/test/docx/golden/definition_list.docx
Binary files a/test/docx/golden/definition_list.docx and b/test/docx/golden/definition_list.docx differ
diff --git a/test/docx/golden/document-properties-short-desc.docx b/test/docx/golden/document-properties-short-desc.docx
Binary files a/test/docx/golden/document-properties-short-desc.docx and b/test/docx/golden/document-properties-short-desc.docx differ
diff --git a/test/docx/golden/document-properties.docx b/test/docx/golden/document-properties.docx
Binary files a/test/docx/golden/document-properties.docx and b/test/docx/golden/document-properties.docx differ
diff --git a/test/docx/golden/headers.docx b/test/docx/golden/headers.docx
Binary files a/test/docx/golden/headers.docx and b/test/docx/golden/headers.docx differ
diff --git a/test/docx/golden/image.docx b/test/docx/golden/image.docx
Binary files a/test/docx/golden/image.docx and b/test/docx/golden/image.docx differ
diff --git a/test/docx/golden/inline_code.docx b/test/docx/golden/inline_code.docx
Binary files a/test/docx/golden/inline_code.docx and b/test/docx/golden/inline_code.docx differ
diff --git a/test/docx/golden/inline_formatting.docx b/test/docx/golden/inline_formatting.docx
Binary files a/test/docx/golden/inline_formatting.docx and b/test/docx/golden/inline_formatting.docx differ
diff --git a/test/docx/golden/inline_images.docx b/test/docx/golden/inline_images.docx
Binary files a/test/docx/golden/inline_images.docx and b/test/docx/golden/inline_images.docx differ
diff --git a/test/docx/golden/link_in_notes.docx b/test/docx/golden/link_in_notes.docx
Binary files a/test/docx/golden/link_in_notes.docx and b/test/docx/golden/link_in_notes.docx differ
diff --git a/test/docx/golden/links.docx b/test/docx/golden/links.docx
Binary files a/test/docx/golden/links.docx and b/test/docx/golden/links.docx differ
diff --git a/test/docx/golden/lists.docx b/test/docx/golden/lists.docx
Binary files a/test/docx/golden/lists.docx and b/test/docx/golden/lists.docx differ
diff --git a/test/docx/golden/lists_9994.docx b/test/docx/golden/lists_9994.docx
Binary files a/test/docx/golden/lists_9994.docx and b/test/docx/golden/lists_9994.docx differ
diff --git a/test/docx/golden/lists_continuing.docx b/test/docx/golden/lists_continuing.docx
Binary files a/test/docx/golden/lists_continuing.docx and b/test/docx/golden/lists_continuing.docx differ
diff --git a/test/docx/golden/lists_div_bullets.docx b/test/docx/golden/lists_div_bullets.docx
Binary files a/test/docx/golden/lists_div_bullets.docx and b/test/docx/golden/lists_div_bullets.docx differ
diff --git a/test/docx/golden/lists_multiple_initial.docx b/test/docx/golden/lists_multiple_initial.docx
Binary files a/test/docx/golden/lists_multiple_initial.docx and b/test/docx/golden/lists_multiple_initial.docx differ
diff --git a/test/docx/golden/lists_restarting.docx b/test/docx/golden/lists_restarting.docx
Binary files a/test/docx/golden/lists_restarting.docx and b/test/docx/golden/lists_restarting.docx differ
diff --git a/test/docx/golden/nested_anchors_in_header.docx b/test/docx/golden/nested_anchors_in_header.docx
Binary files a/test/docx/golden/nested_anchors_in_header.docx and b/test/docx/golden/nested_anchors_in_header.docx differ
diff --git a/test/docx/golden/notes.docx b/test/docx/golden/notes.docx
Binary files a/test/docx/golden/notes.docx and b/test/docx/golden/notes.docx differ
diff --git a/test/docx/golden/raw-blocks.docx b/test/docx/golden/raw-blocks.docx
Binary files a/test/docx/golden/raw-blocks.docx and b/test/docx/golden/raw-blocks.docx differ
diff --git a/test/docx/golden/raw-bookmarks.docx b/test/docx/golden/raw-bookmarks.docx
Binary files a/test/docx/golden/raw-bookmarks.docx and b/test/docx/golden/raw-bookmarks.docx differ
diff --git a/test/docx/golden/table_one_row.docx b/test/docx/golden/table_one_row.docx
Binary files a/test/docx/golden/table_one_row.docx and b/test/docx/golden/table_one_row.docx differ
diff --git a/test/docx/golden/table_with_list_cell.docx b/test/docx/golden/table_with_list_cell.docx
Binary files a/test/docx/golden/table_with_list_cell.docx and b/test/docx/golden/table_with_list_cell.docx differ
diff --git a/test/docx/golden/tables-default-widths.docx b/test/docx/golden/tables-default-widths.docx
Binary files a/test/docx/golden/tables-default-widths.docx and b/test/docx/golden/tables-default-widths.docx differ
diff --git a/test/docx/golden/tables.docx b/test/docx/golden/tables.docx
Binary files a/test/docx/golden/tables.docx and b/test/docx/golden/tables.docx differ
diff --git a/test/docx/golden/tables_separated_with_rawblock.docx b/test/docx/golden/tables_separated_with_rawblock.docx
Binary files a/test/docx/golden/tables_separated_with_rawblock.docx and b/test/docx/golden/tables_separated_with_rawblock.docx differ
diff --git a/test/docx/golden/task_list.docx b/test/docx/golden/task_list.docx
Binary files a/test/docx/golden/task_list.docx and b/test/docx/golden/task_list.docx differ
diff --git a/test/docx/golden/track_changes_deletion.docx b/test/docx/golden/track_changes_deletion.docx
Binary files a/test/docx/golden/track_changes_deletion.docx and b/test/docx/golden/track_changes_deletion.docx differ
diff --git a/test/docx/golden/track_changes_insertion.docx b/test/docx/golden/track_changes_insertion.docx
Binary files a/test/docx/golden/track_changes_insertion.docx and b/test/docx/golden/track_changes_insertion.docx differ
diff --git a/test/docx/golden/track_changes_move.docx b/test/docx/golden/track_changes_move.docx
Binary files a/test/docx/golden/track_changes_move.docx and b/test/docx/golden/track_changes_move.docx differ
diff --git a/test/docx/golden/track_changes_scrubbed_metadata.docx b/test/docx/golden/track_changes_scrubbed_metadata.docx
Binary files a/test/docx/golden/track_changes_scrubbed_metadata.docx and b/test/docx/golden/track_changes_scrubbed_metadata.docx differ
diff --git a/test/docx/golden/unicode.docx b/test/docx/golden/unicode.docx
Binary files a/test/docx/golden/unicode.docx and b/test/docx/golden/unicode.docx differ
diff --git a/test/docx/golden/verbatim_subsuper.docx b/test/docx/golden/verbatim_subsuper.docx
Binary files a/test/docx/golden/verbatim_subsuper.docx and b/test/docx/golden/verbatim_subsuper.docx differ