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

Added link, code and info elements to DocBook Reader.

Browse source
This commit is contained in:
mb21 2012-04-19 15:45:59 +03:00
parent 8c181b528a
commit 2f559597d5
1 changed files with 12 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/Text/Pandoc/Readers/DocBook.hs
View file

@ -79,7 +79,7 @@ List of all DocBook tags, with [x] indicating implemented:
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
[ ] code - An inline code fragment [x] code - An inline code fragment
[ ] col - Specifications for a column in an HTML table [ ] col - Specifications for a column in an HTML table
[ ] colgroup - A group of columns in an HTML table [ ] colgroup - A group of columns in an HTML table
[ ] collab - Identifies a collaborator [ ] collab - Identifies a collaborator
@ -177,6 +177,7 @@ List of all DocBook tags, with [x] indicating implemented:
[ ] indexentry - An entry in an index [ ] indexentry - An entry in an index
[ ] indexinfo - Meta-information for an Index [ ] indexinfo - Meta-information for an Index
[ ] indexterm - A wrapper for terms to be indexed [ ] indexterm - A wrapper for terms to be indexed
[ ] info - A wrapper for information about a component or other block. (DocBook v5)
[ ] informalequation - A displayed mathematical equation without a title [ ] informalequation - A displayed mathematical equation without a title
[ ] informalexample - A displayed example without a title [ ] informalexample - A displayed example without a title
[ ] informalfigure - A untitled figure [ ] informalfigure - A untitled figure
@ -209,7 +210,7 @@ List of all DocBook tags, with [x] indicating implemented:
[ ] lineage - The portion of a person's name indicating a relationship to [ ] lineage - The portion of a person's name indicating a relationship to
ancestors ancestors
[ ] lineannotation - A comment on a line in a verbatim listing [ ] lineannotation - A comment on a line in a verbatim listing
[ ] link - A hypertext link [x] link - A hypertext link
[ ] listitem - A wrapper for the elements of a list item [ ] listitem - A wrapper for the elements of a list item
[x] literal - Inline text that is some literal value [x] literal - Inline text that is some literal value
[ ] literallayout - A block of text in which line breaks and white space are [ ] literallayout - A block of text in which line breaks and white space are
@ -405,10 +406,10 @@ List of all DocBook tags, with [x] indicating implemented:
[ ] subjectset - A set of terms describing the subject matter of a document [ ] subjectset - A set of terms describing the subject matter of a document
[ ] subjectterm - A term in a group of terms describing the subject matter of [ ] subjectterm - A term in a group of terms describing the subject matter of
a document a document
[ ] subscript - A subscript (as in H2O, the molecular formula for water) [x] subscript - A subscript (as in H2O, the molecular formula for water)
[ ] substeps - A wrapper for steps that occur within steps in a procedure [ ] substeps - A wrapper for steps that occur within steps in a procedure
[ ] subtitle - The subtitle of a document [ ] subtitle - The subtitle of a document
[ ] superscript - A superscript (as in x2, the mathematical notation for x [x] superscript - A superscript (as in x2, the mathematical notation for x
multiplied by itself) multiplied by itself)
[ ] surname - A family name; in western cultures the last name [ ] surname - A family name; in western cultures the last name
[ ] svg:svg - An SVG graphic [ ] svg:svg - An SVG graphic
@ -527,6 +528,7 @@ parseBlock (Elem e) =
"abstract" -> blockQuote <$> getBlocks e "abstract" -> blockQuote <$> getBlocks e
"itemizedlist" -> bulletList <$> listitems "itemizedlist" -> bulletList <$> listitems
"orderedlist" -> orderedList <$> listitems -- TODO list attributes "orderedlist" -> orderedList <$> listitems -- TODO list attributes
"info" -> getTitle >> getAuthors >> getDate >> return mempty
"articleinfo" -> getTitle >> getAuthors >> getDate >> return mempty "articleinfo" -> getTitle >> getAuthors >> getDate >> return mempty
"programlisting" -> return $ codeBlock $ strContent e -- TODO attrs "programlisting" -> return $ codeBlock $ strContent e -- TODO attrs
"?xml" -> return mempty "?xml" -> return mempty
@ -584,6 +586,7 @@ parseInline (Elem e) =
return $ if qt == SingleQuote return $ if qt == SingleQuote
then singleQuoted contents then singleQuoted contents
else doubleQuoted contents else doubleQuoted contents
"code" -> return $ code $ strContent e -- TODO attrs
"literal" -> return $ code $ strContent e -- TODO attrs "literal" -> return $ code $ strContent e -- TODO attrs
"varname" -> return $ codeWith ("",["varname"],[]) $ strContent e "varname" -> return $ codeWith ("",["varname"],[]) $ strContent e
"function" -> return $ codeWith ("",["function"],[]) $ strContent e "function" -> return $ codeWith ("",["function"],[]) $ strContent e
@ -595,6 +598,11 @@ parseInline (Elem e) =
"ulink" -> link "ulink" -> link
(fromMaybe "" (lookupAttrBy (\attr -> qName attr == "url") (fromMaybe "" (lookupAttrBy (\attr -> qName attr == "url")
(elAttribs e))) "" <$> innerInlines (elAttribs e))) "" <$> innerInlines
"link" -> case findAttr (QName "href" Nothing $ Just "xlink") e of
Just href -> link href "" <$> innerInlines
_ -> link ("#"++(fromMaybe "" (lookupAttrBy
(\attr -> qName attr == "linkend")
(elAttribs e)))) "" <$> innerInlines
"emphasis" -> case lookupAttrBy (\attr -> qName attr == "role") "emphasis" -> case lookupAttrBy (\attr -> qName attr == "role")
(elAttribs e) of (elAttribs e) of
Just "strong" -> strong <$> innerInlines Just "strong" -> strong <$> innerInlines
@ -604,4 +612,3 @@ parseInline (Elem e) =
where innerInlines = (trimInlines . mconcat) <$> where innerInlines = (trimInlines . mconcat) <$>
(mapM parseInline $ elContent e) (mapM parseInline $ elContent e)
parseInline (CRef _) = return mempty parseInline (CRef _) = return mempty