added math, courtesy of https://www.jdreaver.com/posts/2014-06-22-math-programming-blog-hakyll.html

css/default.css

@@ -29,13 +29,14 @@ body {
 }
 
 div#header {
+    color: #335555;
     border-bottom: 2px solid #335555;
     margin-bottom: 20px;
     padding: 12px 0px 12px 0px;
 }
 
 div#logo a {
-    color: #222211;
+    color: #335555;
     float: left;
     font-size: 14px;
     font-weight: bold;
@@ -44,6 +45,7 @@ div#logo a {
 
 
 div#navigation {
+    color: #335555;
     float: right;
     background-color: #ddeeff;
     padding: 10px 10px;
@@ -51,7 +53,7 @@ div#navigation {
 }
 
 div#navigation a {
-    color: #222211;
+    color: #335555;
     font-size: 14px;
     font-weight: bold;
     text-decoration: none;
@@ -68,6 +70,7 @@ div#footer {
 }
 
 div#content {
+    color: #222211;
     background-color: #ddeeff;
     padding: 20px;
     width: 80%;

my-site.cabal

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

posts/2016-08-25-different-distances.md

@@ -10,7 +10,19 @@ you're on a flat plane? What if that plane has discrete distances
 
 ### Euclidean Distance
 
-This is the go-to of distance calculations.
+![The shortest distance between two points](/images/post_2016_08_25/euclidean.png){width=150 height=150}
+
+This is the go-to of distance calculations. If you're talking about
+continuous, uniform planar (2d) space^[It holds for 3d and
+higher-dimensional spaces, too.], [Euclidean
+distance](https://en.wikipedia.org/wiki/Euclidean_distance) is the
+shortest distance between two points.
+
+
+
+$$d = \sqrt{ |x_1 - x_2|^2 + |y_1 - y_2|^2 }$$
+
+
 
 ### Manhattan Distance
 
@@ -18,4 +30,7 @@ This is the go-to of distance calculations.
 
 ### D&D Distance
 
-This is a bit more complex.
+This is a bit more complex.
+
+
+

site.hs

@@ -2,6 +2,8 @@
 {-# LANGUAGE OverloadedStrings #-}
 import           Data.Monoid (mappend)
 import           Hakyll
+import qualified Data.Set                   as S
+import           Text.Pandoc
 
 
 --------------------------------------------------------------------------------
@@ -11,6 +13,14 @@ main = hakyll $ do
     route   idRoute
     compile copyFileCompiler
 
+  match "images/*/*" $ do
+    route   idRoute
+    compile copyFileCompiler
+
+  match "scripts/*" $ do
+    route   idRoute
+    compile copyFileCompiler
+
   match "css/*" $ do
     route   idRoute
     compile compressCssCompiler
@@ -22,7 +32,7 @@ main = hakyll $ do
 
   match "*.md" $ do
     route   $ setExtension "html"
-    compile $ pandocCompiler
+    compile $ siteCompiler
       >>= loadAndApplyTemplate "templates/default.html" defaultContext
       >>= relativizeUrls
 
@@ -44,8 +54,9 @@ main = hakyll $ do
 
   match "posts/*.md" $ do
     route $ setExtension "html"
-    compile $ pandocCompiler
+    compile $ siteCompiler
       >>= loadAndApplyTemplate "templates/post.html"    (postCtxWithTags tags)
+      >>= saveSnapshot "post_content"
       >>= loadAndApplyTemplate "templates/default.html" (postCtxWithTags tags)
       >>= relativizeUrls
 
@@ -63,16 +74,14 @@ main = hakyll $ do
         >>= loadAndApplyTemplate "templates/default.html" archiveCtx
         >>= relativizeUrls
 
-
   create ["new_index.html"] $ do
     route idRoute
     compile $ do
-      post <- fmap (head) . recentFirst =<< loadAll "posts/*.md"
-      pandocCompiler
-        >>= loadAndApplyTemplate "templates/post.html"    (postCtxWithTags tags)
-        >>= loadAndApplyTemplate "templates/default.html" (postCtxWithTags tags)
-        >>= relativizeUrls
-
+      post <- fmap head . recentFirst =<< loadAllSnapshots "posts/*.md" "post_content"
+      -- loadAndApplyTemplate "templates/post.html"        (postCtxWithTags tags) post
+      loadAndApplyTemplate "templates/default.html" (postCtxWithTags tags) post
+      >>= relativizeUrls
+      >>= changeIdentifier "new_index.html"
 
   match "index.html" $ do
     route idRoute
@@ -100,3 +109,25 @@ postCtx =
 postCtxWithTags :: Tags -> Context String
 postCtxWithTags tags = tagsField "tags" tags `mappend` postCtx
 
+changeIdentifier :: Identifier -> Item a -> Compiler (Item a)
+changeIdentifier idt item = return (itemSetIdentifier idt item)
+
+itemSetIdentifier :: Identifier -> Item a -> Item a
+itemSetIdentifier x (Item _ i) = Item x i
+
+
+siteCompiler :: Compiler (Item String)
+siteCompiler =
+  let addExtensions = [Ext_tex_math_dollars, Ext_tex_math_double_backslash,
+                        Ext_latex_macros, Ext_footnotes, Ext_inline_notes]
+      wExtensions = foldr S.insert (writerExtensions defaultHakyllWriterOptions) addExtensions
+      rExtensions = foldr S.insert (readerExtensions defaultHakyllReaderOptions) addExtensions
+      siteWriterOptions = defaultHakyllWriterOptions {
+        writerExtensions = wExtensions,
+        writerHTMLMathMethod = MathJax ""
+        }
+      siteReaderOptions = defaultHakyllReaderOptions {
+        readerExtensions = rExtensions
+        }
+  in pandocCompilerWith siteReaderOptions siteWriterOptions
+

templates/default.html

@@ -6,6 +6,9 @@
         <meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
         <title>$title$ :: john's blog</title>
         <link rel="stylesheet" type="text/css" href="/css/default.css" />
+        <script type="text/javascript"
+                src="https://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML">
+        </script>
     </head>
     <body>
         <div id="header">
@@ -33,5 +36,6 @@
         <div id="footer">
           All content copyright 2016, john melesky, unless otherwise noted.
         </div>
+
     </body>
 </html>