module IHP.IDE.SchemaDesigner.View.Tables.Edit where

import IHP.ViewPrelude
import IHP.IDE.SchemaDesigner.Types
import IHP.IDE.ToolServer.Types
import IHP.IDE.ToolServer.Routes ()
import IHP.IDE.SchemaDesigner.View.Layout

data EditTableView = EditTableView
    { EditTableView -> [Statement]
statements :: [Statement]
    , EditTableView -> Text
tableName :: Text
    , EditTableView -> Int
tableId :: Int
    }

instance View EditTableView where
    html :: (?context::ControllerContext, ?view::EditTableView) =>
EditTableView -> Html
html EditTableView { Int
[Statement]
Text
$sel:statements:EditTableView :: EditTableView -> [Statement]
$sel:tableName:EditTableView :: EditTableView -> Text
$sel:tableId:EditTableView :: EditTableView -> Int
statements :: [Statement]
tableName :: Text
tableId :: Int
.. } = [hsx|
        <div class="row no-gutters bg-white" id="schema-designer-viewer">
            {renderObjectSelector (zip [0..] statements) Nothing}
        </div>
        {renderModal modal}
    |]
        where
            modalContent :: Html
modalContent = [hsx|
                <form method="POST" action={UpdateTableAction}>
                    <input type="hidden" name="tableId" value={tshow tableId}/>
                    <div class="form-group row">
                        <label class="col-sm-2 col-form-label">Name:</label>
                        <div class="col-sm-10">
                            <input id="nameInput" name="tableName" type="text" class="form-control" autofocus="autofocus" value={tableName}/>
                        </div>
                    </div>

                    <div class="text-right">
                        <button type="submit" class="btn btn-primary">Edit Table</button>
                    </div>
                </form>
            |]
            modalFooter :: Maybe Html
modalFooter = Maybe Html
forall a. Monoid a => a
mempty 
            modalCloseUrl :: Text
modalCloseUrl = TablesController -> Text
forall controller. HasPath controller => controller -> Text
pathTo TablesController
TablesAction
            modalTitle :: Text
modalTitle = Text
"Edit Table"
            modal :: Modal
modal = Modal { Html
modalContent :: Html
$sel:modalContent:Modal :: Html
modalContent, Maybe Html
modalFooter :: Maybe Html
$sel:modalFooter:Modal :: Maybe Html
modalFooter, Text
modalCloseUrl :: Text
$sel:modalCloseUrl:Modal :: Text
modalCloseUrl, Text
modalTitle :: Text
$sel:modalTitle:Modal :: Text
modalTitle }