From 55d2ce751a8fefc3e07aa5d703ca77dd2df2c8c7 Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
Date: Sat, 21 Feb 2015 08:41:09 -0500
Subject: Docx reader: allow sub/superscript verbatims.

Verbatim usually shuts off all other run styles, but we don't want it to
shut off sub/superscript.
---
 src/Text/Pandoc/Readers/Docx.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs
index d4680cb7e..1a95b753d 100644
--- a/src/Text/Pandoc/Readers/Docx.hs
+++ b/src/Text/Pandoc/Readers/Docx.hs
@@ -277,7 +277,12 @@ runToInlines :: Run -> DocxContext Inlines
 runToInlines (Run rs runElems)
   | Just (s, _) <- rStyle rs
   , s `elem` codeStyles =
-    return $ code $ concatMap runElemToString runElems
+    let rPr = resolveDependentRunStyle rs
+    in
+     return $ case rVertAlign rPr of
+     Just SupScrpt -> superscript $ code $ concatMap runElemToString runElems
+     Just SubScrpt -> subscript $ code $ concatMap runElemToString runElems
+     _             -> code $ concatMap runElemToString runElems
   | otherwise = do
     let ils = concatReduce (map runElemToInlines runElems)
     return $ (runStyleToTransform $ resolveDependentRunStyle rs) ils
-- 
cgit v1.2.3