Allow icons in monitor templates

1 files changed, 7 insertions, 1 deletions

diff --git a/src/Plugins/Monitors/Common.hs b/src/Plugins/Monitors/Common.hs
index 7fcab1f..0547311 100644
--- a/src/Plugins/Monitors/Common.hs
+++ b/src/Plugins/Monitors/Common.hs
@@ -265,7 +265,7 @@ templateStringParser =
        }
     where
       nonPlaceHolder = liftM concat . many $
-                       many1 (noneOf "<") <|> colorSpec
+                       many1 (noneOf "<") <|> colorSpec <|> iconSpec
 
 -- | Recognizes color specification and returns it unchanged
 colorSpec :: Parser String
@@ -275,6 +275,12 @@ colorSpec = try (string "</fc>") <|> try (
                char '>'
                return $ "<fc=" ++ s ++ ">")
 
+-- | Recognizes icon specification and returns it unchanged
+iconSpec :: Parser String
+iconSpec = try (do string "<icon="
+                   i <- manyTill (noneOf ">") (try (string "/>"))
+                   return $ "<icon=" ++ i ++ "/>")
+
 -- | Parses the command part of the template string
 templateCommandParser :: Parser String
 templateCommandParser =