Initial tags implementation

blog/2016-03-31-finding-a-programming-job.markdown

@@ -3,9 +3,7 @@ layout: post
 title: "Finding a programming job"
 date: 2016-03-31 17:01
 comments: true
-categories: 
- - progamming
- - job
+tags: progamming, job
 ---
 
 **TL;DR** My learning from job hunting as a programmer.

site.hs

@@ -11,6 +11,8 @@ import           Text.Regex (splitRegex, mkRegex)
 --------------------------------------------------------------------------------
 main :: IO ()
 main = hakyll $ do
+    tags <- extractTags
+
     match "images/*" $ do
         route   idRoute
         compile copyFileCompiler
@@ -56,6 +58,7 @@ main = hakyll $ do
             let indexCtx =
                     listField "posts" postCtx (return $ take 5 posts) `mappend`
                     constField "title" "Home"                `mappend`
+                    tagsField  "tags" tags                   `mappend`
                     defaultContext
 
             getResourceBody
@@ -67,6 +70,11 @@ main = hakyll $ do
 
 
 --------------------------------------------------------------------------------
+extractTags :: Rules Tags
+extractTags = do
+  tags <- buildTags ("blogs/**" .&&. hasNoVersion) $ fromCapture "tags/*.html"
+  return $ sortTagsBy caseInsensitiveTags tags
+
 postCtx :: Context String
 postCtx =
     dateField "date" "%B %e, %Y" `mappend`

templates/post.html

@@ -3,5 +3,10 @@
     <p class="subtitle">$date$</p>
     <section>
         $body$
-        </section>
+    </section>
+    <section>
+        $if(tags)$
+        <br>Posted in <i>$tags$</i>
+        $endif$
+    </section>
 </article>