From 92bcd8d298a0c66e1a984e3184765e503a0bbc4d Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 13 Jul 2014 15:21:50 -0700
Subject: Markdown writer:  Use span with style for SmallCaps.  (#1360)

---
 src/Text/Pandoc/Writers/Markdown.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc/Writers/Markdown.hs')

diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
index 0acfe870d..2028bf593 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -696,7 +696,14 @@ inlineToMarkdown opts (Subscript lst) = do
   return $ if isEnabled Ext_subscript opts
               then "~" <> contents <> "~"
               else "<sub>" <> contents <> "</sub>"
-inlineToMarkdown opts (SmallCaps lst) = inlineListToMarkdown opts lst
+inlineToMarkdown opts (SmallCaps lst) = do
+  contents <- inlineListToMarkdown opts lst
+  st <- get
+  return $ if stPlain st
+              then contents
+              else tagWithAttrs "span"
+                     ("",[],[("style","font-variant:small-caps;")])
+                     <> contents <> text "</span>"
 inlineToMarkdown opts (Quoted SingleQuote lst) = do
   contents <- inlineListToMarkdown opts lst
   return $ "‘" <> contents <> "’"
-- 
cgit v1.2.3