mirror of https://github.com/voidlizard/hbs2
33 lines
879 B
Haskell
33 lines
879 B
Haskell
module HBS2.Git.Oracle.Html where
|
|
|
|
import HBS2.Git.Oracle.Prelude
|
|
import HBS2.Git.Oracle.State
|
|
|
|
import Data.HashMap.Strict (HashMap)
|
|
|
|
import Lucid (Html,HtmlT,toHtml,renderBS)
|
|
import Lucid.Html5 hiding (for_)
|
|
|
|
import Data.Text (Text)
|
|
import Data.Text qualified as Text
|
|
import Data.ByteString.Lazy
|
|
import Control.Monad.Identity
|
|
|
|
renderEntries :: Monad m => HashMap Text Text -> [(HashVal, Text, Text)] -> m ByteString
|
|
renderEntries _ items = pure $ renderBS do
|
|
doctypehtml_ do
|
|
head_ mempty do
|
|
meta_ [charset_ "utf-8"]
|
|
|
|
body_ mempty do
|
|
for_ items $ \(h,n,b) -> do
|
|
div_ do
|
|
|
|
when ( Text.length n > 2) do
|
|
h3_ [class_ "repo-name"] (toHtml (show $ pretty n))
|
|
span_ [class_ "repo-reference"] (toHtml (show $ pretty h))
|
|
|
|
-- td_ (toHtml (show $ pretty n))
|
|
-- td_ (toHtml (show $ pretty b))
|
|
|