module Site.Compilers
        ( gsocPosts
        , posts
        , articles
        , recentPosts
        , recentArticles
        )
where

import           Hakyll                         ( Compiler
                                                , Item
                                                , loadAll
                                                , recentFirst
                                                , Pattern
                                                , fromGlob
                                                )

loadAllRecentFirst :: String -> Compiler [Item String]
loadAllRecentFirst glob = recentFirst =<< loadAll (fromGlob glob)

gsocPosts :: Compiler [Item String]
gsocPosts = loadAllRecentFirst "gsoc/*.org"

posts :: Compiler [Item String]
posts = loadAllRecentFirst "log/*.org"

articles :: Compiler [Item String]
articles = loadAll (fromGlob "article/**")

recentPosts :: Compiler [Item String]
recentPosts = take 4 <$> posts

recentArticles :: Compiler [Item String]
recentArticles = take 4 <$> articles