diff options
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index 97bb7bdbe..b2340e750 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -838,24 +838,24 @@ parseInline (Elem e) = return $ if qt == SingleQuote then singleQuoted contents else doubleQuoted contents - "code" -> codeWithLang [] - "filename" -> codeWithLang ["filename"] - "literal" -> codeWithLang [] - "computeroutput" -> codeWithLang ["computeroutput"] - "prompt" -> codeWithLang ["prompt"] - "parameter" -> codeWithLang ["parameter"] - "option" -> codeWithLang ["option"] + "code" -> codeWithLang + "filename" -> codeWithLang + "literal" -> codeWithLang + "computeroutput" -> codeWithLang + "prompt" -> codeWithLang + "parameter" -> codeWithLang + "option" -> codeWithLang "optional" -> do x <- getInlines e return $ str "[" <> x <> str "]" - "markup" -> codeWithLang [] + "markup" -> codeWithLang "wordasword" -> emph <$> innerInlines - "command" -> codeWithLang ["command"] - "varname" -> codeWithLang ["varname"] - "function" -> codeWithLang ["function"] - "type" -> codeWithLang ["type"] - "symbol" -> codeWithLang ["symbol"] - "constant" -> codeWithLang ["constant"] - "userinput" -> codeWithLang ["userinput"] + "command" -> codeWithLang + "varname" -> codeWithLang + "function" -> codeWithLang + "type" -> codeWithLang + "symbol" -> codeWithLang + "constant" -> codeWithLang + "userinput" -> codeWithLang "varargs" -> return $ code "(...)" "xref" -> return $ str "?" -- so at least you know something is there "email" -> return $ link ("mailto:" ++ strContent e) "" @@ -879,9 +879,9 @@ parseInline (Elem e) = _ -> innerInlines where innerInlines = (trimInlines . mconcat) <$> (mapM parseInline $ elContent e) - codeWithLang classes = do + codeWithLang = do let classes' = case attrValue "language" e of - "" -> classes - l -> l:classes + "" -> [] + l -> [l] return $ codeWith (attrValue "id" e,classes',[]) $ strContent e |