diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2023-06-06 17:51:17 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2023-06-06 17:51:17 -0700 |
| commit | 8bdb430c74003d925610da48393bf2231d0fb890 (patch) | |
| tree | 6aed71b4325025cd98e0fe76e1ce367b39e618a8 /src | |
| parent | adbf115b2dea447e37436f20413a6efa4fe5699d (diff) | |
Fix whitespace.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/JATS.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/Text/Pandoc/Readers/JATS.hs b/src/Text/Pandoc/Readers/JATS.hs index 356d7692a..a9999d8db 100644 --- a/src/Text/Pandoc/Readers/JATS.hs +++ b/src/Text/Pandoc/Readers/JATS.hs @@ -162,7 +162,7 @@ parseBlock (Text (CData _ s _)) = if T.all isSpace s else return $ plain $ trimInlines $ text s parseBlock (CRef x) = return $ plain $ str $ T.toUpper x parseBlock (Elem e) = do - sectionLevel <- gets jatsSectionLevel + sectionLevel <- gets jatsSectionLevel let parseBlockWithHeader = wrapWithHeader (sectionLevel+1) (getBlocks e) case qName (elName e) of @@ -304,7 +304,7 @@ parseBlock (Elem e) = do let headRowElements = case filterChild (named "thead") e' of Just h -> maybe [] parseElement (filterChild isRow h) Nothing -> [] - -- list of list of body cell elements + -- list of list of body cell elements let bodyRowElements = case filterChild (named "tbody") e' of Just b -> map parseElement $ filterChildren isRow b Nothing -> map parseElement $ filterChildren isRow e' @@ -313,9 +313,9 @@ parseBlock (Elem e) = do Just "right" -> AlignRight Just "center" -> AlignCenter _ -> AlignDefault - let toColSpan element = fromMaybe 1 $ + let toColSpan element = fromMaybe 1 $ findAttr (unqual "colspan") element >>= safeRead - let toRowSpan element = fromMaybe 1 $ + let toRowSpan element = fromMaybe 1 $ findAttr (unqual "rowspan") element >>= safeRead let toWidth c = do w <- findAttr (unqual "colwidth") c @@ -337,7 +337,7 @@ parseBlock (Elem e) = do let elementToCell element = cell (toAlignment element) (RowSpan $ toRowSpan element) - (ColSpan $ toColSpan element) + (ColSpan $ toColSpan element) <$> (parseCell element) let rowElementsToCells elements = mapM elementToCell elements let toRow = fmap (Row nullAttr) . rowElementsToCells @@ -352,7 +352,7 @@ parseBlock (Elem e) = do (TableFoot nullAttr []) isEntry x = named "entry" x || named "td" x || named "th" x parseElement = filterChildren isEntry - wrapWithHeader n mBlocks = do + wrapWithHeader n mBlocks = do isBook <- gets jatsBook let n' = if isBook || n == 0 then n + 1 else n headerText <- case filterChild (named "title") e `mplus` @@ -365,9 +365,9 @@ parseBlock (Elem e) = do blocks <- mBlocks let ident = attrValue "id" e modify $ \st -> st{ jatsSectionLevel = oldN } - return $ (if - headerText == mempty - then mempty + return $ (if + headerText == mempty + then mempty else headerWith (ident,[],[]) n' headerText) <> blocks getInlines :: PandocMonad m => Element -> JATS m Inlines |