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-10-01 13:46:32 +03:00
parent 2cc8fb5c68
commit d90b937796
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
hbs2-git-dashboard/hbs2-git-dashboard-core/HBS2/Git/Web/Html/Parts/Issues/Sidebar.hs
View File

@ -28,6 +28,7 @@ issuesSidebar lww topInfoBlock p' = do
fmw <- lift $ countFixmeByAttribute (RepoLww lww) "workflow" fmw <- lift $ countFixmeByAttribute (RepoLww lww) "workflow"
fmt <- lift $ countFixmeByAttribute (RepoLww lww) "fixme-tag" fmt <- lift $ countFixmeByAttribute (RepoLww lww) "fixme-tag"
ass <- lift $ countFixmeByAttribute (RepoLww lww) "assigned" ass <- lift $ countFixmeByAttribute (RepoLww lww) "assigned"
cla <- lift $ countFixmeByAttribute (RepoLww lww) "class"
repoTopInfoBlock lww topInfoBlock repoTopInfoBlock lww topInfoBlock
@ -88,6 +89,18 @@ issuesSidebar lww topInfoBlock p' = do
span_ [] $ toHtml $ show $ pretty s span_ [] $ toHtml $ show $ pretty s
summary_ [class_ "sidebar-title"] $ small_ $ strong_ "Class"
for_ cla $ \(s,n) -> do
li_ [] $ small_ [] do
a_ [ class_ "secondary"
, hxGet_ (toURL (Paged 0 (RepoFixmeHtmx (Map.insert "class" (coerce s) p) (RepoLww lww))))
, hxTarget_ "#fixme-tab-data"
] do
span_ [style_ "display: inline-block; width: 4ch; text-align: right; padding-right: 0.5em;"] $
toHtml $ show $ pretty n
span_ [] $ toHtml $ show $ pretty s
pure () pure ()