@@ -8,6 +8,7 @@ module Hakyll.Web.Urls
88 ) where
99
1010import Data.List (isPrefixOf)
11+import Data.Char (toLower)
1112import System.FilePath (splitPath, takeDirectory, joinPath)
1213import qualified Data.Set as S
1314
@@ -16,13 +17,20 @@ import qualified Text.HTML.TagSoup as TS
1617-- | Apply a function to each URL on a webpage
1718--
1819withUrls :: (String -> String) -> String -> String
19−withUrls f = TS.renderTags . map tag . TS.parseTags
20+withUrls f = renderTags' . map tag . TS.parseTags
2021 where
2122 tag (TS.TagOpen s a) = TS.TagOpen s $ map attr a
2223 tag x = x
2324 attr (k, v) = (k, if k `S.member` refs then f v else v)
2425 refs = S.fromList ["src", "href"]
2526
27+-- | Customized TagSoup renderer.
28+-- (The default TagSoup renderer escape CSS within style tags.)
29+renderTags' :: [TS.Tag String] -> String
30+renderTags' = TS.renderTagsOptions TS.renderOptions
31+ { TS.optRawTag = (`elem` ["script", "style"]) . map toLower
32+ }
33+
2634-- | Convert a filepath to an URL starting from the site root
2735--
2836-- Example: