From 61e3593c6134b694b5372226cccb54f303b922be Mon Sep 17 00:00:00 2001
From: Jens Nolte <jens@nightmarestudio.de>
Date: Mon, 3 Feb 2020 03:28:55 +0100
Subject: [PATCH] Remove pango parser
---
src/QBar/Pango.hs | 50 -----------------------------------------------
1 file changed, 50 deletions(-)
delete mode 100644 src/QBar/Pango.hs
diff --git a/src/QBar/Pango.hs b/src/QBar/Pango.hs
deleted file mode 100644
index b2a7fa4..0000000
--- a/src/QBar/Pango.hs
+++ /dev/null
@@ -1,50 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module QBar.Pango (Pango, parsePango, removeFormatting) where
-
-import Control.Applicative ((<|>))
-import Control.Monad (void)
-import qualified Data.Text.Lazy as T
-import Data.Attoparsec.Text.Lazy as A
-
-data Pango = PText T.Text
- | PTag T.Text [(T.Text, T.Text)] Pango
- | PList [Pango]
- deriving Show
-
-pList :: [Pango] -> Pango
-pList [one] = one
-pList more = PList more
-
-pangoParser :: Parser Pango
-pangoParser = pList <$> many' (choice [normalTextParser, tagParser])
- where
- normalTextParser :: Parser Pango
- normalTextParser = PText . T.fromStrict <$> A.takeWhile1 (notInClass "<>")
-
- tagParser :: Parser Pango
- tagParser = do
- tagName <- char '<' >> identifier
- attributes <- many' $ do
- space >> skipSpace
- attributeName <- identifier
- void $ char '='
- value <- char '\'' *> many' (notChar '\'') <* char '\''
- <|> char '"' *> many' (notChar '"') <* char '"'
- return (attributeName, T.pack value)
- void $ char '>'
- content <- pangoParser
- -- close tag
- void $ string $ T.toStrict $ "</" <> tagName <> ">"
- return $ PTag tagName attributes content
-
- identifier :: Parser T.Text
- identifier = T.pack <$> many1 (letter <|> digit)
-
-parsePango :: T.Text -> Either String Pango
-parsePango text = parseOnly (pangoParser <* endOfInput) (T.toStrict text)
-
-removeFormatting :: Pango -> T.Text
-removeFormatting (PText text) = text
-removeFormatting (PTag _ _ child) = removeFormatting child
-removeFormatting (PList list) = mconcat $ map removeFormatting list
\ No newline at end of file
--
GitLab