diff options
Diffstat (limited to 'src/Hakyll/Web')
| -rw-r--r-- | src/Hakyll/Web/Html.hs | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/src/Hakyll/Web/Html.hs b/src/Hakyll/Web/Html.hs index 48482e6..4053003 100644 --- a/src/Hakyll/Web/Html.hs +++ b/src/Hakyll/Web/Html.hs @@ -24,6 +24,7 @@ module Hakyll.Web.Html import Data.Char (digitToInt, intToDigit, isDigit, toLower) import Data.List (isPrefixOf) +import qualified Data.Set as S import System.FilePath (joinPath, splitPath, takeDirectory) import Text.Blaze.Html (toHtml) @@ -71,13 +72,20 @@ withUrls f = withTags tag attr (k, v) = (k, if isUrlAttribute k then f v else v) --- | Customized TagSoup renderer. (The default TagSoup renderer escape CSS --- within style tags.) +-------------------------------------------------------------------------------- +-- | Customized TagSoup renderer. The default TagSoup renderer escape CSS +-- within style tags, and doesn't properly minimize. renderTags' :: [TS.Tag String] -> String renderTags' = TS.renderTagsOptions TS.renderOptions { TS.optRawTag = (`elem` ["script", "style"]) . map toLower - , TS.optMinimize = (`elem` ["br", "img"]) + , TS.optMinimize = (`S.member` minimize) . map toLower } + where + -- A list of elements which must be minimized + minimize = S.fromList + [ "area", "br", "col", "embed", "hr", "img", "input", "meta", "link" + , "param" + ] -------------------------------------------------------------------------------- |