Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

RST reader: support :widths: attribute for table directive.

Browse source
This commit is contained in:
John MacFarlane 2017-08-08 20:48:30 -07:00
parent 2f0bff0f54
commit 606a8e2af4
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/Text/Pandoc/Readers/RST.hs
View file

@ -765,15 +765,25 @@ directive' = do
tableDirective :: PandocMonad m
=> String -> [(String, String)] -> String -> RSTParser m Blocks
tableDirective top _fields body = do
tableDirective top fields body = do
bs <- parseFromString' parseBlocks body
case B.toList bs of
[Table _ aligns' widths' header' rows'] -> do
title <- parseFromString' (trimInlines . mconcat <$> many inline) top
-- TODO widths
columns <- getOption readerColumns
let numOfCols = length header'
let normWidths ws =
map (/ max 1.0 (fromIntegral (columns - numOfCols))) ws
let widths = case trim <$> lookup "widths" fields of
Just "auto" -> replicate numOfCols 0.0
Just "grid" -> widths'
Just specs -> normWidths
$ map (fromMaybe (0 :: Double) . safeRead)
$ splitBy (`elem` (" ," :: String)) specs
Nothing -> widths'
-- align is not applicable since we can't represent whole table align
return $ B.singleton $ Table (B.toList title)
aligns' widths' header' rows'
aligns' widths header' rows'
_ -> return mempty