Link To Show Table In Schema

digitallyinduced · May 18, 2021 · 4eb698a · 4eb698a
1 parent 4a7b9cf
commit 4eb698a
Showing 1 changed file with 12 additions and 2 deletions.
diff --git a/IHP/IDE/Data/View/ShowDatabase.hs b/IHP/IDE/Data/View/ShowDatabase.hs
@@ -34,8 +34,18 @@ renderTableSelector tableNames activeTableName = [hsx|
     where
         renderTable :: Text -> Html
         renderTable name = [hsx|
-            <a href={ShowTableRowsAction name} class={classes [("object object-table w-100 context-table", True), ("active", name == activeTableName)]}>
+            <a
+                href={ShowTableRowsAction name}
+                class={classes [("object object-table w-100 context-table", True), ("active", name == activeTableName)]}
+                oncontextmenu={"showContextMenu('" <> contextMenuId <> "'); event.stopPropagation();"}
+            >
                 <div class="d-flex">
                     {name}
                 </div>
-            </a>|]
+            </a>
+            <div class="custom-menu menu-for-table shadow backdrop-blur" id={contextMenuId}>
+                <a href={pathTo (ShowTableAction name)}>Show Schema</a>
+            </div>
+        |]
+            where
+                contextMenuId = "context-menu-table-" <> name