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
+--
+
+--
+
+
browserRootPage :: Monad m => [Syntax c] -> HtmlT m ()
browserRootPage syn = rootPage do