From 426c931d5b0ebc6d53396c34ec38eb342be501c3 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 25 Nov 2018 07:35:54 +0000
Subject: Refactoring: Xmobar.Run

---
 src/lib/Xmobar/Template.hs | 65 ----------------------------------------------
 1 file changed, 65 deletions(-)
 delete mode 100644 src/lib/Xmobar/Template.hs

(limited to 'src/lib/Xmobar/Template.hs')

diff --git a/src/lib/Xmobar/Template.hs b/src/lib/Xmobar/Template.hs
deleted file mode 100644
index bd4852a..0000000
--- a/src/lib/Xmobar/Template.hs
+++ /dev/null
@@ -1,65 +0,0 @@
-------------------------------------------------------------------------------
--- |
--- Module: Xmobar.Template
--- Copyright: (c) 2018 Jose Antonio Ortega Ruiz
--- License: BSD3-style (see LICENSE)
---
--- Maintainer: jao@gnu.org
--- Stability: unstable
--- Portability: portable
--- Created: Sun Nov 25, 2018 05:49
---
---
--- Handling the top-level output template
---
-------------------------------------------------------------------------------
-
-
-module Xmobar.Template(parseCommands) where
-
-import qualified Data.Map as Map
-import Text.ParserCombinators.Parsec
-
-import Xmobar.Commands
-import Xmobar.Config
-import Xmobar.Runnable
-
--- | Parses the output template string
-templateStringParser :: Config -> Parser (String,String,String)
-templateStringParser c = do
-  s   <- allTillSep c
-  com <- templateCommandParser c
-  ss  <- allTillSep c
-  return (com, s, ss)
-
--- | Parses the command part of the template string
-templateCommandParser :: Config -> Parser String
-templateCommandParser c =
-  let chr = char . head . sepChar
-  in  between (chr c) (chr c) (allTillSep c)
-
--- | Combines the template parsers
-templateParser :: Config -> Parser [(String,String,String)]
-templateParser = many . templateStringParser
-
--- | Actually runs the template parsers
-parseCommands :: Config -> String -> IO [(Runnable,String,String)]
-parseCommands c s =
-    do str <- case parse (templateParser c) "" s of
-                Left _  -> return [("", s, "")]
-                Right x -> return x
-       let cl = map alias (commands c)
-           m  = Map.fromList $ zip cl (commands c)
-       return $ combine c m str
-
--- | Given a finite "Map" and a parsed template produce the resulting
--- output string.
-combine :: Config -> Map.Map String Runnable
-           -> [(String, String, String)] -> [(Runnable,String,String)]
-combine _ _ [] = []
-combine c m ((ts,s,ss):xs) = (com, s, ss) : combine c m xs
-    where com  = Map.findWithDefault dflt ts m
-          dflt = Run $ Com ts [] [] 10
-
-allTillSep :: Config -> Parser String
-allTillSep = many . noneOf . sepChar
-- 
cgit v1.2.3