From 8b50080c5b3eabab40c3021f5102bd9ea6214194 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Sat, 20 Apr 2024 12:09:36 +0300 Subject: [PATCH] wip --- hbs2-git/hbs2-git-dashboard/src/HBS2/Git/Web/Html/Root.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/hbs2-git/hbs2-git-dashboard/src/HBS2/Git/Web/Html/Root.hs b/hbs2-git/hbs2-git-dashboard/src/HBS2/Git/Web/Html/Root.hs index 227febf2..4614fa34 100644 --- a/hbs2-git/hbs2-git-dashboard/src/HBS2/Git/Web/Html/Root.hs +++ b/hbs2-git/hbs2-git-dashboard/src/HBS2/Git/Web/Html/Root.hs @@ -258,6 +258,7 @@ repoTree lww root tree back' = do a_ [ href_ "#" , hxGet_ (link <> backPart) , hxTarget_ "#repo-tab-data" + , hxPushUrl_ "true" ] (toHtml $ show $ pretty h) _ -> mempty @@ -316,9 +317,12 @@ repoPage it@RepoListItem{..} = rootPage do , hxTarget_ "#repo-tab-data" ] "manifest" + repoMenuItem [ + ] "commits" + repoMenuItem [ hxGet_ (path ["repo", repo, "refs"]) , hxTarget_ "#repo-tab-data" - ] "browse" + ] "tree" section_ [id_ "repo-data"] do h1_ (toHtml $ rlRepoName)