"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "src/Text/Pandoc/Readers/DocBook.hs" between
pandoc-2.14.0.3.tar.gz and pandoc-2.14.1.tar.gz

About: Pandoc converts files from one markup format into another.

DocBook.hs  (pandoc-2.14.0.3):DocBook.hs  (pandoc-2.14.1)
skipping to change at line 100 skipping to change at line 100
[x] bookinfo - Meta-information for a Book [x] bookinfo - Meta-information for a Book
[x] bridgehead - A free-floating heading [x] bridgehead - A free-floating heading
[x] callout - A “called out” description of a marked Area [x] callout - A “called out” description of a marked Area
[x] calloutlist - A list of Callouts [x] calloutlist - A list of Callouts
[x] caption - A caption [x] caption - A caption
[x] caution - A note of caution [x] caution - A note of caution
[x] chapter - A chapter, as of a book [x] chapter - A chapter, as of a book
[x] chapterinfo - Meta-information for a Chapter [x] chapterinfo - Meta-information for a Chapter
[ ] citation - An inline bibliographic reference to another published work [ ] citation - An inline bibliographic reference to another published work
[ ] citebiblioid - A citation of a bibliographic identifier [ ] citebiblioid - A citation of a bibliographic identifier
[ ] citerefentry - A citation to a reference page [x] citerefentry - A citation to a reference page
[ ] citetitle - The title of a cited work [ ] citetitle - The title of a cited work
[ ] city - The name of a city in an address [ ] city - The name of a city in an address
[x] classname - The name of a class, in the object-oriented programming sense [x] classname - The name of a class, in the object-oriented programming sense
[ ] classsynopsis - The syntax summary for a class definition [ ] classsynopsis - The syntax summary for a class definition
[ ] classsynopsisinfo - Information supplementing the contents of [ ] classsynopsisinfo - Information supplementing the contents of
a ClassSynopsis a ClassSynopsis
[ ] cmdsynopsis - A syntax summary for a software command [ ] cmdsynopsis - A syntax summary for a software command
[ ] co - The location of a callout embedded in text [ ] co - The location of a callout embedded in text
[x] code - An inline code fragment [x] code - An inline code fragment
[x] col - Specifications for a column in an HTML table [x] col - Specifications for a column in an HTML table
skipping to change at line 743 skipping to change at line 743
_ -> bs _ -> bs
-- function that is used by both mediaobject (in parseBlock) -- function that is used by both mediaobject (in parseBlock)
-- and inlinemediaobject (in parseInline) -- and inlinemediaobject (in parseInline)
-- A DocBook mediaobject is a wrapper around a set of alternative presentations -- A DocBook mediaobject is a wrapper around a set of alternative presentations
getMediaobject :: PandocMonad m => Element -> DB m Inlines getMediaobject :: PandocMonad m => Element -> DB m Inlines
getMediaobject e = do getMediaobject e = do
figTitle <- gets dbFigureTitle figTitle <- gets dbFigureTitle
ident <- gets dbFigureId ident <- gets dbFigureId
(imageUrl, attr) <- (imageUrl, attr) <-
case filterChild (named "imageobject") e of case filterElements (named "imageobject") e of
Nothing -> return (mempty, nullAttr) [] -> return (mempty, nullAttr)
Just z -> case filterChild (named "imagedata") z of (z:_) -> case filterChild (named "imagedata") z of
Nothing -> return (mempty, nullAttr) Nothing -> return (mempty, nullAttr)
Just i -> let atVal a = attrValue a i Just i -> let atVal a = attrValue a i
w = case atVal "width" of w = case atVal "width" of
"" -> [] "" -> []
d -> [("width", d)] d -> [("width", d)]
h = case atVal "depth" of h = case atVal "depth" of
"" -> [] "" -> []
d -> [("height", d)] d -> [("height", d)]
id' = case atVal "id" of id' = case atVal "id" of
x | T.null x -> ident x | T.null x -> ident
skipping to change at line 1112 skipping to change at line 1112
modify $ \st -> st{ dbQuoteType = qt' } modify $ \st -> st{ dbQuoteType = qt' }
contents <- innerInlines id contents <- innerInlines id
modify $ \st -> st{ dbQuoteType = qt } modify $ \st -> st{ dbQuoteType = qt }
return $ if qt == SingleQuote return $ if qt == SingleQuote
then singleQuoted contents then singleQuoted contents
else doubleQuoted contents else doubleQuoted contents
"simplelist" -> simpleList "simplelist" -> simpleList
"segmentedlist" -> segmentedList "segmentedlist" -> segmentedList
"classname" -> codeWithLang "classname" -> codeWithLang
"code" -> codeWithLang "code" -> codeWithLang
"citerefentry" -> do
let title = maybe mempty strContent $ filterChild (named "refentryt
itle") e
let manvolnum = maybe mempty (\el -> "(" <> strContent el <> ")") $
filterChild (named "manvolnum") e
return $ codeWith ("",["citerefentry"],[]) (title <> manvolnum)
"filename" -> codeWithLang "filename" -> codeWithLang
"envar" -> codeWithLang "envar" -> codeWithLang
"literal" -> codeWithLang "literal" -> codeWithLang
"computeroutput" -> codeWithLang "computeroutput" -> codeWithLang
"prompt" -> codeWithLang "prompt" -> codeWithLang
"parameter" -> codeWithLang "parameter" -> codeWithLang
"option" -> codeWithLang "option" -> codeWithLang
"optional" -> do x <- getInlines e "optional" -> do x <- getInlines e
return $ str "[" <> x <> str "]" return $ str "[" <> x <> str "]"
"replaceable" -> do x <- getInlines e "replaceable" -> do x <- getInlines e
 End of changes. 3 change blocks. 
4 lines changed or deleted 10 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)