Add uncluttering/XSLT support

1 files changed, 3 insertions, 0 deletions

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 " ++