updated todo list and removing infrastructure for links page
This commit is contained in:
parent
189e8e09e6
commit
22f2fd0adc
3 changed files with 9 additions and 33 deletions
18
TODO
18
TODO
|
@ -1,19 +1,13 @@
|
||||||
Fix compile errors from setting up the groundwork for rss and section css shenanigans so I can do the rss feed now
|
|
||||||
|
|
||||||
Clean up the
|
|
||||||
|
|
||||||
make the date format ISO (Markdown seems fine, just need typst)?
|
|
||||||
|
|
||||||
make typst dependant on yaml?
|
|
||||||
|
|
||||||
add template variable(s) for what "section" we're in
|
|
||||||
|
|
||||||
make it so typst citation section has a header and/or is a div elem instead of a section element
|
|
||||||
|
|
||||||
github action for deploy to github pages
|
github action for deploy to github pages
|
||||||
|
|
||||||
minify js and css when copying over instead of just copying
|
minify js and css when copying over instead of just copying
|
||||||
|
|
||||||
|
add in sass preprocessing with the cli
|
||||||
|
|
||||||
|
make typst dependant on yaml?
|
||||||
|
|
||||||
|
make it so typst citation section has a header and/or is a div elem instead of a section element
|
||||||
|
|
||||||
process source code blocks with tree sitter https://hackage.haskell.org/package/tree-sitter
|
process source code blocks with tree sitter https://hackage.haskell.org/package/tree-sitter
|
||||||
|
|
||||||
Check to see if pandoc html output can be changed somehow (for header anchor links)
|
Check to see if pandoc html output can be changed somehow (for header anchor links)
|
||||||
|
|
|
@ -8,7 +8,7 @@ assetGlobs = ["static//*", "robots.txt"]
|
||||||
|
|
||||||
-- CAN ONLY BE TYPST DOCS UNLESS YOU CHANGE THINGS AT THE `pages` RULE in `Main.hs
|
-- CAN ONLY BE TYPST DOCS UNLESS YOU CHANGE THINGS AT THE `pages` RULE in `Main.hs
|
||||||
pagePaths :: [String]
|
pagePaths :: [String]
|
||||||
pagePaths = ["links.typ"]
|
pagePaths = []
|
||||||
|
|
||||||
postGlobs :: [String]
|
postGlobs :: [String]
|
||||||
postGlobs = ["posts/*.typ", "posts/*.md"]
|
postGlobs = ["posts/*.typ", "posts/*.md"]
|
||||||
|
|
22
app/Main.hs
22
app/Main.hs
|
@ -64,7 +64,6 @@ buildRules = do
|
||||||
assets
|
assets
|
||||||
pages
|
pages
|
||||||
postsRule
|
postsRule
|
||||||
postList
|
|
||||||
rss
|
rss
|
||||||
|
|
||||||
-- make a rule of the pattern outputDir/asset_name which copes from outputDir/../pages
|
-- make a rule of the pattern outputDir/asset_name which copes from outputDir/../pages
|
||||||
|
@ -158,7 +157,8 @@ home :: Rules ()
|
||||||
home =
|
home =
|
||||||
outputDir </> "index.html" %> \target -> do
|
outputDir </> "index.html" %> \target -> do
|
||||||
postPaths <- getPublishedPosts
|
postPaths <- getPublishedPosts
|
||||||
posts <- sortOn (Ord.Down . postDate)
|
posts <-
|
||||||
|
sortOn (Ord.Down . postDate)
|
||||||
<$> forM postPaths readPost
|
<$> forM postPaths readPost
|
||||||
let posts' = map fromPost posts
|
let posts' = map fromPost posts
|
||||||
html <- applyTemplate "home.html" $ HM.singleton "posts" posts'
|
html <- applyTemplate "home.html" $ HM.singleton "posts" posts'
|
||||||
|
@ -173,24 +173,6 @@ home =
|
||||||
applyTemplateAndWrite "default.html" page target
|
applyTemplateAndWrite "default.html" page target
|
||||||
Shake.putInfo $ "Built " <> target
|
Shake.putInfo $ "Built " <> target
|
||||||
|
|
||||||
postList :: Rules ()
|
|
||||||
postList =
|
|
||||||
outputDir </> "posts/index.html" %> \target -> do
|
|
||||||
postPaths <- getPublishedPosts
|
|
||||||
posts <- sortOn (Ord.Down . postDate) <$> forM postPaths readPost
|
|
||||||
let posts' = map fromPost posts
|
|
||||||
html <- applyTemplate "posts.html" $ HM.singleton "posts" posts'
|
|
||||||
time <- Utilities.now
|
|
||||||
let page =
|
|
||||||
Page
|
|
||||||
{ pageTitle = T.pack "Blog Posts",
|
|
||||||
pageContent = html,
|
|
||||||
pageNow = time,
|
|
||||||
pageSection = T.pack $ fromJust $ Shake.stripExtension "html" target
|
|
||||||
}
|
|
||||||
applyTemplateAndWrite "default.html" page target
|
|
||||||
Shake.putInfo $ "Built " <> target
|
|
||||||
|
|
||||||
data Rss = Rss
|
data Rss = Rss
|
||||||
{ now :: T.Text,
|
{ now :: T.Text,
|
||||||
posts :: [RenderedPost]
|
posts :: [RenderedPost]
|
||||||
|
|
Loading…
Reference in a new issue