From f735c69d6d0d13858588c3c35317ef294f2382d6 Mon Sep 17 00:00:00 2001 From: defanor Date: Wed, 13 Dec 2017 07:46:46 +0300 Subject: Add uncluttering/XSLT support --- Pancake/Configuration.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'Pancake/Configuration.hs') diff --git a/Pancake/Configuration.hs b/Pancake/Configuration.hs index 2748907..ae42f65 100644 --- a/Pancake/Configuration.hs +++ b/Pancake/Configuration.hs @@ -67,6 +67,8 @@ data Config = Config { commands :: M.Map String String , indentDivs :: Bool -- ^ Whether to add indentation for elements -- inside divs. + , unclutter :: M.Map String String + -- ^ XSLT file and URI regex. } deriving (Generic, Show, Eq) -- | For configuration parsing. @@ -107,6 +109,7 @@ instance Default Config where , historyDepth = 100 , referenceDigits = "0123456789" , indentDivs = False + , unclutter = M.empty } where curl = "curl --compressed -4 -L " ++ -- cgit v1.2.3