uniworx/uniworx.de
3
0
Fork 0
Code Issues 7 Pull Requests 3 Actions Packages Projects Releases Wiki Activity

Draft: Initial content #11

Open
savau wants to merge 28 commits from content into restructure
pull from: content
merge into: uniworx:restructure
Conversation 22 Commits 28 Files Changed 30 +10 -1
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 2be63d85a8 - Show all commits

6
src/Main.hs
View File

@ -192,8 +192,12 @@ main =
, constField "route" navRoute
, listField "posts" (constField "tag" tag' <> constField "route" navRoute <> postContext) (metadataSort =<< mapM load ids)
]
tagNavTemplate
| length ids > 1 = "templates/tag-nav.html"
| otherwise = "templates/tag-nav-singleton.html"
tagItem'
>>= loadAndApplyTemplate "templates/tag-nav.html" tagNavCtx
>>= loadAndApplyTemplate tagNavTemplate tagNavCtx
>>= normalizeUrls
postContext =
mconcat

5
templates/tag-nav-singleton.html Normal file
View File

@ -0,0 +1,5 @@
<li class="nav-link">
<a class="nav-link" href="$route$">
$title$
</a>
</li>