From 2db84a60208369169bb626b4cacca7393943b3b3 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Mon, 22 Apr 2024 07:35:47 +0300 Subject: [PATCH] wip --- .../src/HBS2/Git/Web/Html/Root.hs | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) 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 7abe2aba..7d5aa37b 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 @@ -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