From 5858d5ed30d366ac1e4cfc349467e37e6f56dd62 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Sat, 30 Mar 2024 18:59:30 +0300
Subject: [PATCH] wip

---
 .../lib/HBS2/Git/Oracle/Html.hs               |  2 +-
 hbs2-peer/app/Browser/Root.hs                 | 23 +++++++++++++++++++
 2 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Html.hs b/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Html.hs
index 57997eb6..efcad790 100644
--- a/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Html.hs
+++ b/hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Html.hs
@@ -38,7 +38,7 @@ renderEntries args items = pure $ renderBS do
             h1_ "Git repositories"
             form_ [class_ "search"] do
                 input_ [type_ "search", id_ "search"]
-                button_ "apply"
+                button_ [class_ "search"] mempty
 
 
           section_ [id_ "repo-search-results"] do
diff --git a/hbs2-peer/app/Browser/Root.hs b/hbs2-peer/app/Browser/Root.hs
index 1235c5d4..27759d7a 100644
--- a/hbs2-peer/app/Browser/Root.hs
+++ b/hbs2-peer/app/Browser/Root.hs
@@ -53,6 +53,13 @@ input[type="search"] {
   border: 1px solid #ccc;
 }
 
+button.search {
+  background: url('/icon/refresh.svg') no-repeat center center;
+  background-size: 24px 24px;
+  fill: white;
+  min-width:  32px;
+  height: 2.5rem;
+}
 
 body, html {
   margin: 0;
@@ -60,6 +67,7 @@ body, html {
   font-size: 16px;
 }
 
+
 header {
   width: 100%;
 
@@ -243,6 +251,21 @@ rootPage content  = do
       content
 
 
+-- <svg xmlns="http://www.w3.org/2000/svg"
+-- class="icon icon-tabler icon-tabler-refresh-dot" width="44" height="44" viewBox="0 0 24 24" stroke-width="1.5" stroke="#2c3e50" fill="none" stroke-linecap="round" stroke-linejoin="round">
+--   <path stroke="none" d="M0 0h24v24H0z" fill="none"/>
+--   <path d="M20 11a8.1 8.1 0 0 0 -15.5 -2m-.5 -4v4h4" />
+--   <path d="M4 13a8.1 8.1 0 0 0 15.5 2m.5 4v-4h-4" />
+--   <path d="M12 12m-1 0a1 1 0 1 0 2 0a1 1 0 1 0 -2 0" />
+-- </svg>
+
+-- <svg xmlns="http://www.w3.org/2000/svg" width="24" height="24" viewBox="0 0 24 24" stroke-width="2" stroke="currentColor" fill="none" stroke-linecap="round" stroke-linejoin="round">
+--   <path stroke="none" d="M0 0h24v24H0z" fill="none"/>
+--   <path d="M20 11a8.1 8.1 0 0 0 -15.5 -2m-.5 -4v4h4" />
+--   <path d="M4 13a8.1 8.1 0 0 0 15.5 2m.5 4v-4h-4" />
+-- </svg>
+
+
 browserRootPage :: Monad m => [Syntax c] -> HtmlT m ()
 browserRootPage syn = rootPage do