From 4a165a9ec90aea6f9a036b06ce563c6e3cad4467 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Thu, 26 Sep 2024 13:19:45 +0300
Subject: [PATCH] wip

---
 .../HBS2/Git/Web/Assets.hs                    | 22 +++++++++++++++++++
 .../src/HBS2/Git/Web/Html/Root.hs             |  6 +++--
 2 files changed, 26 insertions(+), 2 deletions(-)

diff --git a/hbs2-git/hbs2-git-dashboard-assets/HBS2/Git/Web/Assets.hs b/hbs2-git/hbs2-git-dashboard-assets/HBS2/Git/Web/Assets.hs
index d1b51804..b2cd4339 100644
--- a/hbs2-git/hbs2-git-dashboard-assets/HBS2/Git/Web/Assets.hs
+++ b/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>|]
+
+
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 d758a984..bfb3e8d7 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
@@ -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