module Web.View.Hubs.Index where
import Web.Types
import Generated.Types
import IHP.Prelude
import IHP.ViewPrelude
data IndexView = IndexView { hubs :: ![Hub] }
instance View IndexView where
html IndexView { .. } = [hsx|
| Name |
Slug |
Domain |
Kind |
|
{forEach hubs renderHub}
|]
kindBadge :: Text -> Html
kindBadge "framework" = [hsx|framework|]
kindBadge "shared" = [hsx|shared|]
kindBadge _ = [hsx|domain|]
renderHub :: Hub -> Html
renderHub hub = [hsx|
|
{hub.name}
|
{hub.slug} |
{hub.domain} |
{kindBadge hub.hubKind} |
Edit
Delete
|
|]