site.cabal

@@ -7,6 +7,5 @@ executable site
   main-is:          site.hs
   build-depends:    base == 4.*
                   , hakyll == 4.10.*
-                  , time
   ghc-options:      -threaded
   default-language: Haskell2010

site.hs

@@ -2,8 +2,6 @@
 {-# LANGUAGE OverloadedStrings #-}
 import           Data.Monoid (mappend)
 import           Hakyll
-import           Data.List (sortBy, sortOn)
-import           Data.Time (formatTime, defaultTimeLocale)
 
 
 --------------------------------------------------------------------------------
@@ -27,38 +25,34 @@ main = hakyll $ do
             >>= loadAndApplyTemplate "templates/default.html" defaultContext
             >>= relativizeUrls
 
-    match "posts/guides/*" $ do
+    -- match "posts/*" $ do
-      route $ setExtension "html"
+    --     route $ setExtension "html"
-      compile $ pandocCompiler
+    --     compile $ pandocCompiler
-        >>= loadAndApplyTemplate "templates/post.html"    postCtx
+    --         >>= loadAndApplyTemplate "templates/post.html"    postCtx
-        >>= loadAndApplyTemplate "templates/default.html" postCtx
+    --         >>= loadAndApplyTemplate "templates/default.html" postCtx
-        >>= relativizeUrls
+    --         >>= relativizeUrls
 
-    match "posts/brainstorming/*" $ do
+    -- create ["archive.html"] $ do
-      route $ setExtension "html"
+    --     route idRoute
-      compile $ pandocCompiler
+    --     compile $ do
-        >>= loadAndApplyTemplate "templates/post.html"    postCtx
+    --         posts <- recentFirst =<< loadAll "posts/*"
-        >>= loadAndApplyTemplate "templates/default.html" postCtx
+    --         let archiveCtx =
-        >>= relativizeUrls
+    --                 listField "posts" postCtx (return posts) `mappend`
+    --                 constField "title" "Archives"            `mappend`
+    --                 defaultContext
+    --
+    --         makeItem ""
+    --             >>= loadAndApplyTemplate "templates/archive.html" archiveCtx
+    --             >>= loadAndApplyTemplate "templates/default.html" archiveCtx
+    --             >>= relativizeUrls
 
-    create ["guides.html"] $ do
-        route idRoute
-        compile $ do
-            posts <- modFirst =<< loadAll "posts/guides/*"
-            let archiveCtx =
-                    listField "posts" postCtx (return posts) `mappend`
-                    constField "title" "Guides"            `mappend`
-                    defaultContext
-
-            makeItem ""
-                >>= loadAndApplyTemplate "templates/guides.html" archiveCtx
-                >>= loadAndApplyTemplate "templates/default.html" archiveCtx
-                >>= relativizeUrls
 
     match "index.html" $ do
         route idRoute
         compile $ do
+            posts <- recentFirst =<< loadAll "posts/*"
             let indexCtx =
+                    listField "posts" postCtx (return posts) `mappend`
                     constField "title" "Home"                `mappend`
                     defaultContext
 
@@ -69,19 +63,9 @@ main = hakyll $ do
 
     match "templates/*" $ compile templateBodyCompiler
 
-modFirst :: [Item a] -> Compiler [Item a]
-modFirst = fmap reverse . modified
-  where
-    modified = sortByM (getItemModificationTime . itemIdentifier)
-    sortByM f xs = map fst . sortOn snd <$> mapM (\x -> (,) x <$> f x) xs
 
 --------------------------------------------------------------------------------
 postCtx :: Context String
 postCtx =
     dateField "date" "%B %e, %Y" `mappend`
-    modifiedField "modified" "%B %e, %Y" `mappend`
     defaultContext
-  where
-    modifiedField key format = field key $ \i -> do
-      time <- getItemModificationTime $ itemIdentifier i
-      return $ formatTime defaultTimeLocale format time

templates/archive.html

@@ -0,0 +1,2 @@
+Here you can find all my previous posts:
+$partial("templates/post-list.html")$

templates/default.html

@@ -14,7 +14,6 @@
             </div>
             <nav>
                 <a href="/">Home</a>
-                <a href="/guides.html">Guides</a>
                 <a href="/about.html">About</a>
                 <a href="/contact.html">Contact</a>
             </nav>

templates/guides.html

@@ -1,3 +0,0 @@
-A list of small and big guides.
-
-$partial("templates/post-list.html")$

templates/post.html

@@ -1,6 +1,6 @@
 <article>
     <section class="header">
-        Posted on $date$, modified on $modified$
+        Posted on $date$
         $if(author)$
             by $author$
         $endif$