wip

hbs2-git/hbs2-git-dashboard-assets/HBS2/Git/Web/Assets.hs

@@ -35,6 +35,7 @@ data IconType
   | IconArrowUturnLeft
   | IconLicense
   | IconPinned
+  | IconFixme
 
 svgIcon :: Monad m => IconType -> HtmlT m ()
 svgIcon = toHtmlRaw . svgIconText
@@ -177,3 +178,24 @@ svgIconText IconPinned = [qc|<svg xmlns="http://www.w3.org/2000/svg" class="icon
   <path d="M12 16l0 5" />
   <path d="M8 4l8 0" />
 </svg>|]
+
+
+svgIconText IconFixme = [qc|
+<svg  xmlns="http://www.w3.org/2000/svg"
+      width="24"
+      height="24"
+      viewBox="0 0 24 24"
+      fill="none"
+      stroke="currentColor"
+      stroke-width="2"
+      stroke-linecap="round"
+      stroke-linejoin="round"
+      class="icon icon-tabler icons-tabler-outline icon-tabler-stack-3">
+      <path stroke="none" d="M0 0h24v24H0z" fill="none"/>
+      <path d="M12 2l-8 4l8 4l8 -4l-8 -4" />
+      <path d="M4 10l8 4l8 -4" />
+      <path d="M4 18l8 4l8 -4" />
+      <path d="M4 14l8 4l8 -4" />
+</svg>|]
+
+

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

@@ -952,7 +952,9 @@ repoPage tab lww params = rootPage do
       aside_ [class_ "sidebar"] do
 
         div_ [class_ "info-block" ] do
-          toHtml (ShortRef lww)
+          let url = toURL (RepoPage (CommitsTab Nothing) lww)
+          let txt = toHtml (ShortRef lww)
+          a_ [href_ url, class_ "secondary"] txt
 
         -- div_ [class_ "info-block" ] do
         --   a_ [ href_ "/"] do
@@ -982,7 +984,7 @@ repoPage tab lww params = rootPage do
             for_ fixme $ \_ -> do
               li_ $ small_ do
                 a_ [class_ "secondary"] do
-                  span_ [class_ "inline-icon-wrapper"] $ svgIcon IconLicense
+                  span_ [class_ "inline-icon-wrapper"] $ svgIcon IconFixme
                   "Issues"
 
             when (rlRepoForks > 0) do