diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-01-20 15:51:23 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-01-20 15:51:23 +0100 |
commit | 87735f9778d759da7059a0e8d00c91e888a06673 (patch) | |
tree | b2487715eed99beae0ad6be77a6af2d59267359c /src | |
parent | 064128305e5e1a99d20afa62331c7a3bdf566c8a (diff) | |
download | hakyll-87735f9778d759da7059a0e8d00c91e888a06673.tar.gz |
Fix issue with tagsoup renderTags
Diffstat (limited to 'src')
-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" + ] -------------------------------------------------------------------------------- |