git.iko.soy/hakyll
on master help sign in
Add "poster" as a URL attribute
commite77564f1b292d6021a29565c1d12c89ff6881e3c authorDuncan <duncan@vtllf.org> dateSun 16 Aug 2015, 15:49 (11 years ago) parent72f2b6c
2 files changed+4−1
compare with master
unifiedsplit
src/Hakyll/Web/Html.hs+1−1 tests/Hakyll/Web/Html/RelativizeUrls/Tests.hs+3
src/Hakyll/Web/Html.hs+1−1
@@ -55,7 +55,7 @@ demoteHeaders = withTags $ \tag -> case tag of
5555
5656--------------------------------------------------------------------------------
5757isUrlAttribute :: String -> Bool
58−isUrlAttribute = (`elem` ["src", "href", "data"])
58+isUrlAttribute = (`elem` ["src", "href", "data", "poster"])
5959
6060
6161--------------------------------------------------------------------------------
tests/Hakyll/Web/Html/RelativizeUrls/Tests.hs+3
@@ -22,6 +22,9 @@ tests = testGroup "Hakyll.Web.Html.RelativizeUrls.Tests" $
2222 relativizeUrlsWith ".." "<a href=\"/foo\">bar</a>"
2323 , "<img src=\"../../images/lolcat.png\" />" @=?
2424 relativizeUrlsWith "../.." "<img src=\"/images/lolcat.png\" />"
25+ , "<video poster=\"../../images/lolcat.png\"></video>" @=?
26+ relativizeUrlsWith "../.."
27+ "<video poster=\"/images/lolcat.png\"></video>"
2528 , "<a href=\"http://haskell.org\">Haskell</a>" @=?
2629 relativizeUrlsWith "../.."
2730 "<a href=\"http://haskell.org\">Haskell</a>"