From c1d93ebabfc03cf68ffabc7c2957c2c8935e4bc4 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Fri, 18 Dec 2009 19:25:28 +0100 Subject: Worked on CompressCSS module. --- src/Text/Hakyll/CompressCSS.hs | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Text/Hakyll/CompressCSS.hs b/src/Text/Hakyll/CompressCSS.hs index b638654..5cb3b16 100644 --- a/src/Text/Hakyll/CompressCSS.hs +++ b/src/Text/Hakyll/CompressCSS.hs @@ -3,10 +3,21 @@ module Text.Hakyll.CompressCSS ) where import Data.List +import Text.Regex -- | Compress CSS to speed up your site. compressCSS :: String -> String -compressCSS = stripComments +compressCSS = compressSeparators + . compressWhitespace + . stripComments + +-- | Compresses certain forms of separators. +compressSeparators :: String -> String +compressSeparators str = subRegex (mkRegex "\\s*([;:])\\s*") str "\\1" + +-- | Compresses all whitespace. +compressWhitespace :: String -> String +compressWhitespace str = subRegex (mkRegex "\\s\\s*") str " " -- | Function that strips CSS comments away. stripComments :: String -> String -- cgit v1.2.3