849d1f3 · hakyll · git.iko.soy

git.iko.soy/hakyll

Add test for #69, minor edits

commit849d1f3236dff4aa21b80028742b903d29c7701f authorJasper Van der Jeugt <m@jaspervdj.be> dateSun 10 Jun 2012, 16:05 (14 years ago) parent77ebb46

4 files changed+14−10

compare with master

unifiedsplit

hakyll.cabal+1−1 src/Hakyll/Web/Urls.hs+5−4 tests/Hakyll/Web/Urls/Tests.hs+2 web/about.markdown+6−5

hakyll.cabal+1−1

@@ -1,5 +1,5 @@

11Name: hakyll

2−Version: 3.3.0.0

2+Version: 3.3.0.1

44Synopsis: A static website compiler library

55Description:

src/Hakyll/Web/Urls.hs+5−4

@@ -24,12 +24,13 @@ withUrls f = renderTags' . map tag . TS.parseTags

2424 attr (k, v) = (k, if k `S.member` refs then f v else v)

2525 refs = S.fromList ["src", "href"]

2626

27−-- | Customized TagSoup renderer.

28−-- (The default TagSoup renderer escape CSS within style tags.)

27+-- | Customized TagSoup renderer. (The default TagSoup renderer escape CSS

28+-- within style tags.)

29+--

2930renderTags' :: [TS.Tag String] -> String

3031renderTags' = TS.renderTagsOptions TS.renderOptions

31− { TS.optRawTag = (`elem` ["script", "style"]) . map toLower

32− }

32+ { TS.optRawTag = (`elem` ["script", "style"]) . map toLower

33+ }

3334

3435-- | Convert a filepath to an URL starting from the site root

3536--

tests/Hakyll/Web/Urls/Tests.hs+2

@@ -23,6 +23,8 @@ tests = concat

2323 withUrls id "<script>\"sup\"</script>"

2424 , "<code><stdio></code>" @=?

2525 withUrls id "<code><stdio></code>"

26+ , "<style>body > p { line-height: 1.3 }</style>" @=?

27+ withUrls id "<style>body > p { line-height: 1.3 }</style>"

2628 ]

2729 , fromAssertions "toUrl"

2830 [ "/foo/bar.html" @=? toUrl "foo/bar.html"

web/about.markdown+6−5

@@ -30,9 +30,10 @@ who still maintains the package. Contributors:

3030

3131- [Andy Irving](https://github.com/irv)

3232- [Benedict Eastaugh](http://extralogical.net/)

33−- [Florian Hars](http://github.com/fhars)

34−- [JD Marble](http://github.com/jdmarble)

33+- [Florian Hars](https://github.com/fhars)

34+- [JD Marble](https://github.com/jdmarble)

3535- [Nicolas Wu](http://zenzike.com/)

36−- [Paolo Veronelli](http://github.com/paolino)

37−- [sargon](http://github.com/sargon)

38−- [seschwar](http://github.com/seschwar)

36+- [Paolo Veronelli](https://github.com/paolino)

37+- [sargon](https://github.com/sargon)

38+- [seschwar](https://github.com/seschwar)

39+- [favonia](https://github.com/favonia)