From a408ce5fd70c32ccad869f71ff8e8fd7c2611c36 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Wed, 9 May 2012 11:01:10 -0700
Subject: DocBook reader: Add attribute for "option" code inline.

---
 src/Text/Pandoc/Readers/DocBook.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc')

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
-- 
cgit v1.2.3