diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-01-04 11:13:08 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-01-04 11:13:08 +0100 |
commit | 0969fe41c7c94c34e5663ed231ecbb9e2c4bc051 (patch) | |
tree | 2f272db6a4057d8d880416e342f88ccf881377fe /src/Hakyll/Web.hs | |
parent | e395b0af9a969b8a1d93ad0d9f0554841beb9298 (diff) | |
download | hakyll-0969fe41c7c94c34e5663ed231ecbb9e2c4bc051.tar.gz |
Add relativize URL's functionality
Diffstat (limited to 'src/Hakyll/Web.hs')
-rw-r--r-- | src/Hakyll/Web.hs | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/src/Hakyll/Web.hs b/src/Hakyll/Web.hs index bc7710f..536abda 100644 --- a/src/Hakyll/Web.hs +++ b/src/Hakyll/Web.hs @@ -3,19 +3,30 @@ module Hakyll.Web ( defaultPageRead , defaultTemplateRead + , defaultRelativizeUrls ) where -import Control.Arrow (arr, (>>>), (>>^)) +import Prelude hiding (id) +import Control.Category (id) +import Control.Arrow (arr, (>>>), (>>^), (&&&)) import Hakyll.Core.Compiler import Hakyll.Web.Page import Hakyll.Web.Pandoc import Hakyll.Web.Template +import Hakyll.Web.RelativizeUrls +import Hakyll.Web.Util.String defaultPageRead :: Compiler () (Page String) defaultPageRead = cached "Hakyll.Web.defaultPageRead" $ pageRead >>> addDefaultFields >>> arr applySelf >>> pageRenderPandoc +defaultRelativizeUrls :: Compiler (Page String) (Page String) +defaultRelativizeUrls = getRoute &&& id >>^ uncurry relativize + where + relativize Nothing = id + relativize (Just r) = fmap (relativizeUrls $ toSiteRoot r) + defaultTemplateRead :: Compiler () Template defaultTemplateRead = cached "Hakyll.Web.defaultTemplateRead" $ getResourceString >>^ readTemplate |