fix: separate parts as complexity increase

Author: Maeevick

site.hs

@@ -9,6 +9,11 @@ import Data.Ord (comparing)
 
 main :: IO ()
 main = hakyll $ do
+
+--------------------------------------------------------------------------------------------------------
+-- STATICS ---------------------------------------------------------------------------------------------
+--------------------------------------------------------------------------------------------------------
+
     match "assets/css/main.css" $ do
         route   idRoute
         compile compressCssCompiler
@@ -17,6 +22,10 @@ main = hakyll $ do
         route idRoute
         compile copyFileCompiler
 
+--------------------------------------------------------------------------------------------------------
+-- HOME ------------------------------------------------------------------------------------------------
+--------------------------------------------------------------------------------------------------------
+
     match "index.html" $ do
         route idRoute
         compile $ do
@@ -26,30 +35,36 @@ main = hakyll $ do
                 >>= loadAndApplyTemplate "templates/boilerplate.html" sponsors
                 >>= relativizeUrls
 
-    match "affiliates/*.markdown" $ compile pandocCompiler
-
     match "donations/sponsors/*.markdown" $ compile pandocCompiler
-
-    match "affiliates/index.html" $ do
+    match "**/index.html" $ do
         route idRoute
         compile $ do
-            affils <- affiliatesCtx . sortOn itemIdentifier <$> loadAll "affiliates/*.markdown"
-            sponsors <- sponsorsCtx affils . sortOn itemIdentifier <$> loadAll "donations/sponsors/*.markdown"
-
+            sponsors <- sponsorsCtx defaultContext . sortOn itemIdentifier <$> loadAll "donations/sponsors/*.markdown"
             getResourceBody
                 >>= applyAsTemplate sponsors
                 >>= loadAndApplyTemplate "templates/boilerplate.html" sponsors
                 >>= relativizeUrls
 
-    match "**/index.html" $ do
+--------------------------------------------------------------------------------------------------------
+-- AFFILIATES ------------------------------------------------------------------------------------------
+--------------------------------------------------------------------------------------------------------
+
+    match "affiliates/*.markdown" $ compile pandocCompiler
+    match "affiliates/index.html" $ do
         route idRoute
         compile $ do
-            sponsors <- sponsorsCtx defaultContext . sortOn itemIdentifier <$> loadAll "donations/sponsors/*.markdown"
+            affils <- affiliatesCtx . sortOn itemIdentifier <$> loadAll "affiliates/*.markdown"
+            sponsors <- sponsorsCtx affils . sortOn itemIdentifier <$> loadAll "donations/sponsors/*.markdown"
+
             getResourceBody
                 >>= applyAsTemplate sponsors
                 >>= loadAndApplyTemplate "templates/boilerplate.html" sponsors
                 >>= relativizeUrls
 
+--------------------------------------------------------------------------------------------------------
+-- PROJECTS --------------------------------------------------------------------------------------------
+--------------------------------------------------------------------------------------------------------
+
     match "projects/*.markdown" $ compile pandocCompiler
 
     create ["projects/index.html"] $ do
@@ -66,6 +81,10 @@ main = hakyll $ do
     match "news/**.markdown" $ compile pandocCompiler
     categories <- buildCategories "news/**.markdown" (fromCapture "news/categories/**.html")
 
+--------------------------------------------------------------------------------------------------------
+-- NEWS ------------------------------------------------------------------------------------------------
+--------------------------------------------------------------------------------------------------------
+
     tagsRules categories $ \category catId ->  compile $ do
         news <- recentFirst =<< loadAll catId
         let ctx =
@@ -91,9 +110,20 @@ main = hakyll $ do
                 >>= loadAndApplyTemplate "templates/boilerplate.html"   sponsors
                 >>= relativizeUrls
 
+--------------------------------------------------------------------------------------------------------
+-- TEMPLATES -------------------------------------------------------------------------------------------
+--------------------------------------------------------------------------------------------------------
+
     match "templates/*" $ compile templateBodyCompiler
     match "templates/**" $ compile templateBodyCompiler
 
+--------------------------------------------------------------------------------------------------------
+--------------------------------------------------------------------------------------------------------
+
+--------------------------------------------------------------------------------------------------------
+-- CONTEXT ---------------------------------------------------------------------------------------------
+--------------------------------------------------------------------------------------------------------
+
 -- | Partition affiliates into affiliates and pending
 affiliatesCtx :: [Item String] -> Context String
 affiliatesCtx tuts =
@@ -152,6 +182,10 @@ newsWithCategoriesCtx categories =
                         newsCtx :: Context String
                         newsCtx = newsWithCategoriesCtx categories
 
+--------------------------------------------------------------------------------------------------------
+-- UTILS -----------------------------------------------------------------------------------------------
+--------------------------------------------------------------------------------------------------------
+
 -- | filter list of item string based on the given value to match on the given metadata field
 ofMetadataField :: String -> String -> [Item String] -> Compiler [Item String]
 ofMetadataField field value = filterM (\item -> do