voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
Dmitry Zuikov 2024-04-22 07:35:47 +03:00
parent f9fbd49ea7
commit 2db84a6020
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
hbs2-git/hbs2-git-dashboard/src/HBS2/Git/Web/Html/Root.hs
View File

@ -505,7 +505,8 @@ repoBlob lww co tree BlobInfo{..} = do
repoPage :: (DashBoardPerks m, MonadReader DashBoardEnv m) => RepoListItem -> HtmlT m ()
repoPage it@RepoListItem{..} = rootPage do
let repo = show $ pretty rlRepoLww
let lww = rlRepoLww & coerce
let repo = show $ pretty lww
sto <- asks _sto
mhead <- lift $ readRepoHeadFromTx sto (coerce rlRepoTx)
@ -551,19 +552,20 @@ repoPage it@RepoListItem{..} = rootPage do
repoMenu do
repoMenuItem mempty $ a_ [href_ "/"] "root"
repoMenuItem0 [ hxGet_ (path ["repo", repo, "manifest"])
, hxTarget_ "#repo-tab-data"
] "manifest"
repoMenuItem [ hxGet_ (path ["repo", repo, "commits"])
repoMenuItem0 [ hxGet_ (path ["repo", repo, "commits"])
, hxTarget_ "#repo-tab-data"
] "commits"
repoMenuItem [ hxGet_ (path ["repo", repo, "manifest"])
, hxTarget_ "#repo-tab-data"
] "manifest"
repoMenuItem (showRefsHtmxAttribs repo) "tree"
section_ [id_ "repo-data"] do
h1_ (toHtml $ rlRepoName)
div_ [id_ "repo-tab-data"] do
toHtmlRaw (renderMarkdown' manifest)
let predicate = Right mempty
repoCommits lww predicate