diff --git a/archive.md b/archive.md index eabb0b5..f6b0d98 100644 --- a/archive.md +++ b/archive.md @@ -10,6 +10,8 @@ you access archives and find: and make me very sad. -> full disclosure, the only reason this page still exists is because of the netrunner joke. im pretty sure the front page shows every post anyway. +> ~full disclosure, the only reason this page still exists is because of the netrunner joke. im pretty sure the front page shows every post anyway.~ + +> turns out im not quite as stupid as i thought and worked out how monads work so i could limit front page to a few posts. this page is back in business baby! you also find all of this junk: diff --git a/default.nix b/default.nix index 5407511..5f69879 100644 --- a/default.nix +++ b/default.nix @@ -8,7 +8,7 @@ mkDerivation { isLibrary = false; isExecutable = true; executableHaskellDepends = [ base binary filepath hakyll hakyll-favicon ]; - librarySystemDepends = [ imagemagick ]; + #executableSystemDepends = [ imagemagick ]; homepage = "regularflolloping.com"; description = "tA's blog"; license = stdenv.lib.licenses.bsd3; diff --git a/index.html b/index.html index ee6fe70..0878d8f 100644 --- a/index.html +++ b/index.html @@ -5,6 +5,7 @@ title: Home

please don't laugh at me i really like swatch internet time

here are some recent (for a very liberal definition of the word) posts:

+

- now only shows a few posts because im not dumb anymore -

"Recent" Posts

$partial("templates/post-list.html")$ diff --git a/site.hs b/site.hs index 2e34fdc..96adbc7 100644 --- a/site.hs +++ b/site.hs @@ -82,7 +82,9 @@ main = do match "index.html" $ do route idRoute compile $ do - posts <- recentFirst =<< loadAll "posts/*" + posts <- (return . (take 5)) + =<< recentFirst + =<< loadAll "posts/*" let indexCtx = listField "posts" postCtx (return posts) <> ctx getResourceBody