summaryrefslogtreecommitdiffhomepage
path: root/Parsers.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Parsers.hs')
-rw-r--r--Parsers.hs99
1 files changed, 99 insertions, 0 deletions
diff --git a/Parsers.hs b/Parsers.hs
new file mode 100644
index 0000000..6ca318c
--- /dev/null
+++ b/Parsers.hs
@@ -0,0 +1,99 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module : XMobar.Parsers
+-- Copyright : (c) Andrea Rossato
+-- License : BSD-style (see LICENSE)
+--
+-- Maintainer : Andrea Rossato <andrea.rossato@unibz.it>
+-- Stability : unstable
+-- Portability : unportable
+--
+-- Parsers needed for XMobar, a status bar for the Xmonad Window Manager
+--
+-----------------------------------------------------------------------------
+
+module Parsers (
+ -- * Parsing
+ -- $parser
+ parseString
+ , stringParser
+ , defaultColors
+ , colorsAndText
+ , templateStringParser
+ , templateCommandParser
+ , templateParser
+ , parseTemplate
+ ) where
+
+import Config
+import Text.ParserCombinators.Parsec
+
+
+{- $parser
+These are the neede parsers. Don't trust them too much.
+
+There are parsers for the commands output and parsers for the
+formatting template.
+ -}
+
+-- | Runs the actual string parsers
+parseString :: Config -> String -> IO [(String, String)]
+parseString config s =
+ case (parse (stringParser config) "" s) of
+ Left _ -> return [("Could not parse string: " ++ s
+ , (fgColor config))]
+ Right x -> return x
+
+-- | Gets the string and combines the needed parsers
+stringParser :: Config -> Parser [(String, String)]
+stringParser c = manyTill (colorsAndText c <|> defaultColors c) eof
+
+-- | Parses a string with the default color (no color set)
+defaultColors :: Config -> Parser (String, String)
+defaultColors config =
+ do { s <- many $ noneOf "<"
+ ; return (s,(fgColor config))
+ }
+ <|> colorsAndText config
+
+-- | Parses a string with a color set
+colorsAndText :: Config -> Parser (String, String)
+colorsAndText config =
+ do { string "<fc=#"
+ ; n <- count 6 hexDigit
+ ; string ">"
+ ; s <- many $ noneOf "<"
+ ; string "</fc>"
+ ; return (s,"#"++n)
+ }
+ <|> defaultColors config
+
+-- | Parses the output template string
+templateStringParser :: Config -> Parser (String,String,String)
+templateStringParser c =
+ do{ s <- many $ noneOf (sepChar c)
+ ; (_,com,_) <- templateCommandParser c
+ ; ss <- many $ noneOf (sepChar c)
+ ; return (s, com, ss)
+ }
+
+-- | Parses the command part of the template string
+templateCommandParser :: Config -> Parser (String,String,String)
+templateCommandParser c =
+ do { let chr = head $ sepChar c
+ ; char chr
+ ; com <- many $ noneOf (sepChar c)
+ ; char chr
+ ; return $ ("",com,"")
+ }
+-- | Combines the template parsers
+templateParser :: Config -> Parser [(String,String,String)]
+templateParser c = many (templateStringParser c)
+
+-- | Actually runs the template parsers
+parseTemplate :: Config -> String -> IO [(String,String,String)]
+parseTemplate config s =
+ case (parse (templateParser config) "" s) of
+ Left _ -> return [("","","")]
+ Right x -> return x
+