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-20 12:09:36 +03:00
parent 201e196fa2
commit 8b50080c5b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -258,6 +258,7 @@ repoTree lww root tree back' = do
a_ [ href_ "#" a_ [ href_ "#"
, hxGet_ (link <> backPart) , hxGet_ (link <> backPart)
, hxTarget_ "#repo-tab-data" , hxTarget_ "#repo-tab-data"
, hxPushUrl_ "true"
] (toHtml $ show $ pretty h) ] (toHtml $ show $ pretty h)
_ -> mempty _ -> mempty
@ -316,9 +317,12 @@ repoPage it@RepoListItem{..} = rootPage do
, hxTarget_ "#repo-tab-data" , hxTarget_ "#repo-tab-data"
] "manifest" ] "manifest"
repoMenuItem [
] "commits"
repoMenuItem [ hxGet_ (path ["repo", repo, "refs"]) repoMenuItem [ hxGet_ (path ["repo", repo, "refs"])
, hxTarget_ "#repo-tab-data" , hxTarget_ "#repo-tab-data"
] "browse" ] "tree"
section_ [id_ "repo-data"] do section_ [id_ "repo-data"] do
h1_ (toHtml $ rlRepoName) h1_ (toHtml $ rlRepoName)