1 files changed, 34 insertions, 0 deletions
diff --git a/src/Site/Compilers.hs b/src/Site/Compilers.hs
new file mode 100644
index 0000000..dbb943b
--- /dev/null
+++ b/src/Site/Compilers.hs
@@ -0,0 +1,34 @@
+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