yogsototh/hakyll
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Some more CSS compression.

Browse source
This commit is contained in:
Jasper Van der Jeugt 2009-12-20 10:02:20 +01:00
parent 5985951bed
commit 137bf68805
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/Text/Hakyll/CompressCSS.hs
View file

@ -5,6 +5,10 @@ module Text.Hakyll.CompressCSS
import Data.List import Data.List
import Text.Regex import Text.Regex
-- | subRegex with arguments flipped for easy function composition.
subRegex' :: String -> String -> String -> String
subRegex' pattern replacement str = subRegex (mkRegex pattern) str replacement
-- | Compress CSS to speed up your site. -- | Compress CSS to speed up your site.
compressCSS :: String -> String compressCSS :: String -> String
compressCSS = compressSeparators compressCSS = compressSeparators
@ -13,11 +17,12 @@ compressCSS = compressSeparators
-- | Compresses certain forms of separators. -- | Compresses certain forms of separators.
compressSeparators :: String -> String compressSeparators :: String -> String
compressSeparators str = subRegex (mkRegex "\\s*([;:])\\s*") str "\\1" compressSeparators = subRegex' ";\\s*}" "}"
. subRegex' "\\s*([{};:])\\s*" "\\1"
-- | Compresses all whitespace. -- | Compresses all whitespace.
compressWhitespace :: String -> String compressWhitespace :: String -> String
compressWhitespace str = subRegex (mkRegex "\\s\\s*") str " " compressWhitespace = subRegex' "\\s\\s*" " "
-- | Function that strips CSS comments away. -- | Function that strips CSS comments away.
stripComments :: String -> String stripComments :: String -> String