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-21 09:00:32 +03:00
parent 129641a5f5
commit d31c913028
1 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -205,20 +205,25 @@ repoRefs lww refs = do
let r_ = Text.pack $ show $ pretty r
let co = show $ pretty h
let uri = path [ "repo", show $ pretty lww, "tree", co, co ]
tr_ do
td_ do
if | Text.isPrefixOf "refs/heads" r_ -> do
img_ [src_ "/icon/git-branch.svg"]
| Text.isPrefixOf "refs/tags" r_ -> do
img_ [src_ "/icon/git-tag.svg"]
| otherwise -> mempty
let showRef = Text.isPrefixOf "refs" r_
td_ (toHtml r_)
td_ [class_ "mono"] $ a_ [ href_ "#"
, hxGet_ uri
, hxTarget_ "#repo-tab-data"
] (toHtml $ show $ pretty h)
when showRef do
tr_ do
td_ do
if | Text.isPrefixOf "refs/heads" r_ -> do
img_ [src_ "/icon/git-branch.svg"]
| Text.isPrefixOf "refs/tags" r_ -> do
img_ [src_ "/icon/git-tag.svg"]
| otherwise -> mempty
td_ (toHtml r_)
td_ [class_ "mono"] $ do
a_ [ href_ "#"
, hxGet_ uri
, hxTarget_ "#repo-tab-data"
] (toHtml $ show $ pretty h)
showRefsHtmxAttribs :: String -> [Attribute]