Pagwin/psb
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases Packages Wiki Activity

wrote out the scaffolding for work to do a live server later

Browse source
This commit is contained in:
Pagwin 2025-12-05 13:26:09 -05:00
parent d9e46a1a83
commit 6c81f761d6
No known key found for this signature in database
GPG key ID: 81137023740CA260
2 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
TODO.md
View file

@ -6,4 +6,5 @@
- [ ] dev server setup (with live reloading) - [ ] dev server setup (with live reloading)
- https://hackage-content.haskell.org/package/warp-3.4.10 - https://hackage-content.haskell.org/package/warp-3.4.10
- https://hackage.haskell.org/package/file-embed - https://hackage.haskell.org/package/file-embed
- https://hackage.haskell.org/package/fsnotify
- [ ] see if performance can be improved (it isn't slow atm but it definitely feels like there's a bottleneck) - [ ] see if performance can be improved (it isn't slow atm but it definitely feels like there's a bottleneck)

6
app/Main.hs
View file

@ -28,9 +28,10 @@ import Utilities.FilePath (indexHtmlOutputPath, indexHtmlSourcePaths, isMarkdown
-- Rule = pattern of thing being made + actions to produce the thing -- Rule = pattern of thing being made + actions to produce the thing
-- Action = actions to produce a thing -- Action = actions to produce a thing
-- note: live watch should be done outside of shake with the watcher then running shake which is rather annoying
main :: IO () main :: IO ()
main = do main = do
Shake.shakeArgs Shake.shakeOptions {Shake.shakeProgress = Shake.progressSimple} $ do Shake.shakeArgs Shake.shakeOptions {Shake.shakeProgress = psbProgress} $ do
Shake.withTargetDocs "Build the site" $ Shake.withTargetDocs "Build the site" $
"build" ~> buildSite "build" ~> buildSite
Shake.withTargetDocs "Clean the built site" $ Shake.withTargetDocs "Clean the built site" $
@ -168,3 +169,6 @@ postHandles = [(isMarkdownPost, markdownToPost)]
isDraft :: FilePath -> Action Bool isDraft :: FilePath -> Action Bool
isDraft = isDraft' postHandles isDraft = isDraft' postHandles
psbProgress :: IO Shake.Progress -> IO ()
psbProgress = Shake.progressDisplay 0.01 putStrLn