module IHP.IDE.Data.View.ShowDatabase where
import IHP.ViewPrelude
import IHP.IDE.ToolServer.Types
import IHP.IDE.Data.View.Layout
data ShowDatabaseView = ShowDatabaseView {
tableNames :: [Text]
}
instance View ShowDatabaseView where
html ShowDatabaseView { .. } = [hsx|
{headerNav}
{renderTableSelector tableNames ""}
|]
renderTableSelector :: [Text] -> Text -> Html
renderTableSelector tableNames activeTableName = [hsx|
Tables
{forEach tableNames renderTable}
|]
where
renderTable :: Text -> Html
renderTable name = [hsx|
contextMenuId <> "'); event.stopPropagation();"}
>
{name}
|]
where
contextMenuId = "context-menu-table-" <> name