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-03-30 18:59:30 +03:00
parent 8137e3dd11
commit 5858d5ed30
2 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-git/hbs2-git-oracle/lib/HBS2/Git/Oracle/Html.hs
View File

@ -38,7 +38,7 @@ renderEntries args items = pure $ renderBS do
h1_ "Git repositories" h1_ "Git repositories"
form_ [class_ "search"] do form_ [class_ "search"] do
input_ [type_ "search", id_ "search"] input_ [type_ "search", id_ "search"]
button_ "apply" button_ [class_ "search"] mempty
section_ [id_ "repo-search-results"] do section_ [id_ "repo-search-results"] do

23
hbs2-peer/app/Browser/Root.hs
View File

@ -53,6 +53,13 @@ input[type="search"] {
border: 1px solid #ccc; 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 { body, html {
margin: 0; margin: 0;
@ -60,6 +67,7 @@ body, html {
font-size: 16px; font-size: 16px;
} }
header { header {
width: 100%; width: 100%;
@ -243,6 +251,21 @@ rootPage content = do
content 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 :: Monad m => [Syntax c] -> HtmlT m ()
browserRootPage syn = rootPage do browserRootPage syn = rootPage do