Revamp:

- Switch from `cabal2nix` and haskell overlay to `developPackage`
- Restructure directories to have more descriptive names
- Fix `nix run`

static-site-generator/Util/Hakyll/Context.hs

@@ -0,0 +1,43 @@
+module Util.Hakyll.Context (
+  updateFieldWith,
+  defaultConstField,
+  ifField,
+) where
+
+import Hakyll
+import Data.Maybe (fromMaybe)
+import Control.Applicative (empty)
+
+
+{- |
+  Shortcut function for getting an Items Metadata
+  This is used as a helper function in a lot of places.
+-}
+getItemMetadata :: Item a -> Compiler Metadata
+getItemMetadata = getMetadata . itemIdentifier
+
+{- |
+-}
+updateFieldWith :: String -> String -> (String -> String) -> Item a -> Compiler String
+updateFieldWith field defaultPreviousValue f = 
+  fmap updateField . getMetadata . itemIdentifier
+    where
+      updateField :: Metadata -> String
+      updateField = f . fromMaybe defaultPreviousValue . lookupString field
+
+{- |
+  This function takes a field name, and a default String value.
+  If the field is found, it will leave it be, else inject the default value.
+  Similar to the behaviour of (fromMaybe)
+-}
+defaultConstField :: String -> String -> Context String
+defaultConstField fieldString defaultValue =
+  field fieldString (fmap f . getItemMetadata)
+    where
+      f :: Metadata -> String
+      f = fromMaybe defaultValue . lookupString fieldString
+
+{-
+-}
+ifField :: String -> (Item a -> Compiler ContextField) -> Context a
+ifField key value = Context $ \k _ i -> if k == key then value i else empty

static-site-generator/Util/Hakyll/Routes.hs

@@ -0,0 +1,47 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Util.Hakyll.Routes where
+
+import Hakyll
+import Data.Maybe (fromMaybe)
+import Data.Map as Map
+import qualified Data.Text as T
+import qualified Data.Text.Slugger as Slugger
+import Debug.Trace
+
+import Util.Hash (FileHashes)
+
+prefixRoute :: FilePath -> Routes
+prefixRoute p = customRoute $ \id' -> p ++ toFilePath id'
+
+titleRouteWithDefault :: String -> Metadata -> Routes
+titleRouteWithDefault defaultValue = constRoute . fileNameFromTitle
+    where
+      getTitleFromMeta :: Metadata -> String
+      getTitleFromMeta =
+        fromMaybe defaultValue . lookupString "title"
+      
+      fileNameFromTitle :: Metadata -> FilePath
+      fileNameFromTitle =
+        T.unpack . (`T.append` ".html") . Slugger.toSlug . T.pack . getTitleFromMeta
+
+titleRoute :: Metadata -> Maybe Routes
+titleRoute metadata = constRoute <$> fileNameFromTitle metadata
+    where
+      slug :: String -> String
+      slug = T.unpack . (`T.append` ".html") . Slugger.toSlug . T.pack
+
+      ignore :: Eq a => a -> a -> Maybe a
+      ignore shouldBeIgnored value
+        | shouldBeIgnored == value = Nothing
+        | otherwise = Just value
+
+      fileNameFromTitle :: Metadata -> Maybe FilePath
+      fileNameFromTitle metadata = slug <$> (ignore "" =<< lookupString "title" metadata)
+
+
+hashRoute :: FileHashes -> Routes
+hashRoute hashes = customRoute hash 
+  where
+    hash :: Identifier -> String
+    hash = flip (++) ".html" . fromMaybe "error" . flip Map.lookup hashes 

static-site-generator/Util/Hash.hs

@@ -0,0 +1,34 @@
+{-# LANGUAGE BangPatterns #-}
+
+module Util.Hash(
+  FileHashes,
+  mkFileHashes
+) where
+
+-- https://groups.google.com/g/hakyll/c/zdkQlDsj9lQ
+
+import Control.Monad (forM)
+import qualified Crypto.Hash.SHA256 as SHA256
+import qualified Data.ByteString.Base16 as Base16
+import qualified Data.ByteString.Char8 as BS8
+import qualified Data.ByteString.Lazy as BSL
+import Data.Map (Map)
+import qualified Data.Map as Map
+import Hakyll
+import System.FilePath ((</>))
+import Debug.Trace
+
+type FileHashes = Map Identifier String
+
+mkFileHashes :: FilePath -> IO FileHashes
+mkFileHashes dir = do
+  allFiles <- getRecursiveContents (\_ -> return False) dir
+  fmap (Map.fromList . trace "MAPLISTS: " . traceShowId) $ forM allFiles $ \path0 -> do
+    let path1 = dir </> path0
+    !h <- hash $ trace ("HASHING: " ++ show path1) path1
+    return (fromFilePath path1, h)
+      where
+        hash :: FilePath -> IO String
+        hash fp = do
+          !h <- SHA256.hashlazy <$> BSL.readFile fp
+          return $! BS8.unpack $! Base16.encode h