diff options
Diffstat (limited to 'plugins/CapitalizeEmphasisPlugin.hs')
| -rw-r--r-- | plugins/CapitalizeEmphasisPlugin.hs | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/plugins/CapitalizeEmphasisPlugin.hs b/plugins/CapitalizeEmphasisPlugin.hs deleted file mode 100644 index 80c667e05..000000000 --- a/plugins/CapitalizeEmphasisPlugin.hs +++ /dev/null @@ -1,14 +0,0 @@ -module CapitalizeEmphasisPlugin (transform) where -import Text.Pandoc -import Data.Char (toUpper) - --- This plugin changes emphasized text into CAPITALIZED TEXT. - -transform :: [Inline] -> [Inline] -transform (Emph x : ys) = processWith capStr x ++ transform ys -transform (x : ys) = x : transform ys -transform [] = [] - -capStr :: Inline -> Inline -capStr (Str x) = Str (map toUpper x) -capStr x = x |