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-31 15:06:53 +03:00
parent 03665de537
commit b4a0e21b70
5 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-browser/assets/icon/xclip.svg
View File

@ -1,4 +1,4 @@
<svg xmlns="http://www.w3.org/2000/svg" class="icon icon-tabler icon-tabler-copy" width="16" height="16" viewBox="0 0 24 24" stroke-width="1.5" stroke="#2c3e50" fill="none" stroke-linecap="round" stroke-linejoin="round"> <svg xmlns="http://www.w3.org/2000/svg" class="icon icon-tabler icon-tabler-copy" width="24" height="24" 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 stroke="none" d="M0 0h24v24H0z" fill="none"/>
<path d="M7 7m0 2.667a2.667 2.667 0 0 1 2.667 -2.667h8.666a2.667 2.667 0 0 1 2.667 2.667v8.666a2.667 2.667 0 0 1 -2.667 2.667h-8.666a2.667 2.667 0 0 1 -2.667 -2.667z" /> <path d="M7 7m0 2.667a2.667 2.667 0 0 1 2.667 -2.667h8.666a2.667 2.667 0 0 1 2.667 2.667v8.666a2.667 2.667 0 0 1 -2.667 2.667h-8.666a2.667 2.667 0 0 1 -2.667 -2.667z" />
<path d="M4.012 16.737a2.005 2.005 0 0 1 -1.012 -1.737v-10c0 -1.1 .9 -2 2 -2h10c.75 0 1.158 .385 1.5 1" /> <path d="M4.012 16.737a2.005 2.005 0 0 1 -1.012 -1.737v-10c0 -1.1 .9 -2 2 -2h10c.75 0 1.158 .385 1.5 1" />

Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 564 B

After

Width:  |  Height:  |  Size: 564 B

6
hbs2-browser/assets/icon/xclipdone.svg Normal file
View File

@ -0,0 +1,6 @@
<svg xmlns="http://www.w3.org/2000/svg" class="icon icon-tabler icon-tabler-copy-check" width="24" height="24" 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="M7 7m0 2.667a2.667 2.667 0 0 1 2.667 -2.667h8.666a2.667 2.667 0 0 1 2.667 2.667v8.666a2.667 2.667 0 0 1 -2.667 2.667h-8.666a2.667 2.667 0 0 1 -2.667 -2.667z" />
<path d="M4.012 16.737a2.005 2.005 0 0 1 -1.012 -1.737v-10c0 -1.1 .9 -2 2 -2h10c.75 0 1.158 .385 1.5 1" />
<path d="M11 14l2 2l4 -4" />
</svg>
Side by Side

After

Width:  |  Height:  |  Size: 600 B

2
hbs2-browser/lib/HBS2/Peer/Browser/Assets.hs
View File

@ -6,7 +6,7 @@ import Data.FileEmbed
import Data.ByteString import Data.ByteString
version :: Int version :: Int
version = 3 version = 6
cssDir :: [(FilePath, ByteString)] cssDir :: [(FilePath, ByteString)]
cssDir = $(embedDir "assets") cssDir = $(embedDir "assets")

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

@ -43,7 +43,8 @@ hyper_ = makeAttribute "_"
-- FIXME: move-to-hbs2-browser-lib -- FIXME: move-to-hbs2-browser-lib
onClickCopy :: Text -> Attribute onClickCopy :: Text -> Attribute
onClickCopy s = hyper_ [qc|on click writeText('{s}') into the navigator's clipboard|] onClickCopy s =
hyper_ [qc|on click writeText('{s}') into the navigator's clipboard add .clicked to me wait 2s remove .clicked from me|]
renderEntries :: Monad m => HashMap Text Text -> [(HashVal, Text, Text, Word64)] -> m ByteString renderEntries :: Monad m => HashMap Text Text -> [(HashVal, Text, Text, Word64)] -> m ByteString
renderEntries args items = pure $ renderBS do renderEntries args items = pure $ renderBS do

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

@ -246,8 +246,8 @@ form.search button {
.xclip:hover::after { .xclip:hover::after {
content: url('/icon/xclip.svg'); content: url('/icon/xclip.svg');
margin-left: 1rem; margin-left: 1rem;
height: 16px; height: 24x;
width: 16x; width: 24x;
vertical-align: top; vertical-align: top;
} }
@ -255,6 +255,15 @@ form.search button {
text-decoration: underline dotted; text-decoration: underline dotted;
} }
.clicked:hover::after {
content: url('/icon/xclipdone.svg');
margin-left: 1rem;
height: 24px;
width: 24x;
vertical-align: top;
}
|] |]