Added stripTags to Text.Pandoc.XML.

This is used in the HTML writer.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1647 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 12 insertions, 1 deletions

diff --git a/src/Text/Pandoc/XML.hs b/src/Text/Pandoc/XML.hs
index 14e2eebbb..a5d0202e5 100644
--- a/src/Text/Pandoc/XML.hs
+++ b/src/Text/Pandoc/XML.hs
@@ -27,7 +27,8 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 Functions for escaping and formatting XML.
 -}
-module Text.Pandoc.XML ( escapeCharForXML,
+module Text.Pandoc.XML ( stripTags,
+                         escapeCharForXML,
                          escapeStringForXML,
                          inTags,
                          selfClosingTag,
@@ -35,6 +36,16 @@ module Text.Pandoc.XML ( escapeCharForXML,
                          inTagsIndented  ) where
 import Text.PrettyPrint.HughesPJ
 
+-- | Remove everything between <...>
+stripTags :: String -> String
+stripTags ('<':xs) =
+  let (_,rest) = break (=='>') xs
+  in  if null rest
+         then ""
+         else stripTags (tail rest) -- leave off >
+stripTags (x:xs) = x : stripTags xs
+stripTags [] = []
+
 -- | Escape one character as needed for XML.
 escapeCharForXML :: Char -> String
 escapeCharForXML x = case x of