diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-05-09 11:01:10 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-05-09 11:01:10 -0700 |
| commit | a408ce5fd70c32ccad869f71ff8e8fd7c2611c36 (patch) | |
| tree | fc77b0f2fbb1305f2967f04736179f7e0ba79e0b /src/Text/Pandoc | |
| parent | 83d0e7e4bde416969306ef5bc3560d911fd8c5af (diff) | |
| download | pandoc-a408ce5fd70c32ccad869f71ff8e8fd7c2611c36.tar.gz | |
DocBook reader: Add attribute for "option" code inline.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index bcef38d74..9a655205c 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -773,9 +773,9 @@ parseInline (Elem e) = then singleQuoted contents else doubleQuoted contents "code" -> return $ code $ strContent e -- TODO attrs - "filename" -> return $ code $ strContent e -- TODO attrs + "filename" -> return $ codeWith ("",["filename"],[]) $ strContent e -- TODO attrs "literal" -> return $ code $ strContent e -- TODO attrs - "option" -> return $ code $ strContent e -- TODO attrs + "option" -> return $ codeWith ("",["option"],[]) $ strContent e -- TODO attrs "markup" -> return $ code $ strContent e -- TODO attrs "wordasword" -> emph <$> innerInlines "varname" -> return $ codeWith ("",["varname"],[]) $ strContent e |