CompileTagFeeds.hs

CompileTagFeeds.hs

    let compileTagFeeds feedType feedExt feedCompiler =
            tagsRules tags $ \tag pat -> version feedType $ do
                route (setExtension feedExt)
                compile $ do
                    (allPosts, ctx) <- loadPattern pat
                    posts <- recentFirst allPosts
                    let feedCtx = ctx `mappend` postCtx
                    tagDescription <- readTagDescriptionFile'
                    let feedConfiguration = myFeedConfiguration 
                            { feedTitle = feedTitle myFeedConfiguration <> " :: Only " <> tag <> " Posts"
                            , feedDescription = tagDescription tag
                            }
                    feedCompiler feedConfiguration feedCtx  posts
    compileTagFeeds "atom" "atom.xml" renderAtom
    compileTagFeeds "rss" "rss" renderRss