aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAlbert Krewinkel <[email protected]>2023-04-07 16:03:15 +0200
committerAlbert Krewinkel <[email protected]>2023-04-07 16:05:40 +0200
commit483bfa4b7fad2e9f8f7ae9c8227255bf462a5851 (patch)
treed68eec460483bad5578b9358810d1f65b2c90783 /src
parent826b8912ad8c7915432df548f030a095899e6078 (diff)
DocBook reader: support more emphasis roles.
The role "bf" is taken to indicate "bold face", i.e., "strongly emphasized" text, while "underline" leads to underlined text.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/DocBook.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs
index 56fc0dc4c..35ab33f09 100644
--- a/src/Text/Pandoc/Readers/DocBook.hs
+++ b/src/Text/Pandoc/Readers/DocBook.hs
@@ -1294,9 +1294,11 @@ parseInline (Elem e) =
return $ linkWith attr href "" ils'
"foreignphrase" -> innerInlines emph
"emphasis" -> case attrValue "role" e of
+ "bf" -> innerInlines strong
"bold" -> innerInlines strong
"strong" -> innerInlines strong
"strikethrough" -> innerInlines strikeout
+ "underline" -> innerInlines underline
_ -> innerInlines emph
"footnote" -> note . mconcat <$>
mapM parseBlock (elContent e)