From 260eb3194d2fbaea38a5375f6adf8b86a6f327d9 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Thu, 4 Apr 2024 10:47:28 +0300
Subject: [PATCH] wip

---
 .../lib/HBS2/Git/Oracle/Html.hs               | 64 +++++++++++++++----
 hbs2-git/hbs2-git.cabal                       |  1 +
 hbs2-peer/app/Browser/Root.hs                 | 27 ++++++++
 3 files changed, 81 insertions(+), 11 deletions(-)

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 b634ea6d..240e5fd4 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
@@ -13,6 +13,7 @@ import Data.HashMap.Strict (HashMap)
 import Lucid hiding (for_)
 import Lucid.Base
 import Lucid.Html5 hiding (for_)
+import Lucid.Html5 qualified as Html
 
 import Data.Coerce
 import Data.Text (Text)
@@ -51,6 +52,10 @@ renderMarkdown markdown = case markdownToHtml markdown of
 hyper_ :: Text -> Attribute
 hyper_  = makeAttribute "_"
 
+tabClick :: Attribute
+tabClick =
+  hyper_ "on click take .active from .tab for event's target"
+
 -- FIXME: move-to-hbs2-browser-lib
 onClickCopy :: Text -> Attribute
 onClickCopy s =
@@ -115,22 +120,59 @@ renderRepoHtml (Method _ kw) page@(GitRepoPage{..}) = pure $ renderBS $ wrapped
 
   main_ do
 
-    section_ [id_ "repo-data"] do
+    nav_ [ role_ "tab-control", tabClick ] do
+      ul_ do
+        li_ [] $ label_ [Html.for_ "tab1", class_ "tab active"] "manifest"
+        li_ [] $ label_ [Html.for_ "tab2", class_ "tab"] "Tab 2"
+        li_ [] $ label_ [Html.for_ "tab3", class_ "tab"] "Tab 3"
+        li_ [] $ label_ [Html.for_ "tab4", class_ "tab"] "Tab 4"
 
-      for_ name' $ \name -> do
-        h1_ (toHtml name)
-        renderMarkdown brief
+      div_ [ role_  "tabs" ] do
+        pure ()
 
-      table_ do
-        tr_ do
-          th_ "code/hbs2:"
-          td_ mempty
+    -- div_ [ id_ "tabs"
+    --      , term "hx-get" "manifest"
+    --      , term "hx-trigger" "load delay:100ms"
+    --      , term "hx-target" "#tabs"
+    --      , term "hx-swap" "innerHTML"
+    --      ] do
 
-      pure ()
+    --   div_  [class_ "tab-list", role_ "tablist"] do
+    --     button_ [ class_  "selected"
+    --             , role_ "tab"
+    --             , term "hx-get" "manifest"
+    --             , term "aria-selected" "false"
+    --             , term "aria-controls" "tab-content"
+    --             ] "Manifest"
+
+    --     div_  [id_ "tab-content",  role_ "tabpanel",  class_ "tab-content"] do
+    --       [qc|
+    --       Commodo normcore truffaut VHS duis gluten-free keffiyeh iPhone taxidermy godard ramps anim pour-over.
+    --       Pitchfork vegan mollit umami quinoa aute aliquip kinfolk eiusmod live-edge cardigan ipsum locavore.
+    --       Polaroid duis occaecat narwhal small batch food truck.
+    --       PBR&B venmo shaman small batch you probably haven't heard of them hot chicken readymade.
+    --       Enim tousled cliche woke, typewriter single-origin coffee hella culpa.
+    --       Art party readymade 90's, asymmetrical hell of fingerstache ipsum.
+    --      |]
+
+     -- pure ()
+
+    -- section_ [id_ "repo-data"] do
+
+    --   for_ name' $ \name -> do
+    --     h1_ (toHtml name)
+    --     renderMarkdown brief
+
+    --   table_ do
+    --     tr_ do
+    --       th_ "code/hbs2:"
+    --       td_ mempty
+
+    --   pure ()
 
 
-    section_ [id_ "repo-manifest-text"] do
-      renderMarkdown mf
+    -- section_ [id_ "repo-manifest-text"] do
+    --   renderMarkdown mf
 
 
 
diff --git a/hbs2-git/hbs2-git.cabal b/hbs2-git/hbs2-git.cabal
index 8b17833f..fd496055 100644
--- a/hbs2-git/hbs2-git.cabal
+++ b/hbs2-git/hbs2-git.cabal
@@ -187,6 +187,7 @@ library hbs2-git-oracle-oracle-lib
                     , base16-bytestring
                     , binary
                     , lucid
+                    , lucid-htmx
                     , pandoc
                     , unix
             -- FIXME: ASAP-remove
diff --git a/hbs2-peer/app/Browser/Root.hs b/hbs2-peer/app/Browser/Root.hs
index 36c66706..4ee3c8c4 100644
--- a/hbs2-peer/app/Browser/Root.hs
+++ b/hbs2-peer/app/Browser/Root.hs
@@ -288,6 +288,33 @@ form.search button {
   vertical-align: top;
 }
 
+
+[role="tabs"] {
+  display: flex;
+}
+
+[role="tabs"] section {
+  display: flex;
+  flex-wrap: wrap;
+  width: 100%;
+}
+
+[role="tabs"] figure {
+  flex-grow: 1;
+  width: 100%;
+  height: 100%;
+  display: none;
+}
+
+[role="tabs"] [type="radio"]:checked + figure {
+  display: block;
+}
+
+nav[role="tab-control"] label.active {
+  color: red; /*var(--primary);*/
+  cursor: pointer;
+}
+
 |]