feat: show "Report an issue" button even if the compilation fails mak…

…ing it possible to report errors in any state of the web tool [web]
glutinum-org · May 8, 2024 · e28372f · e28372f
1 parent dcd5968
commit e28372f
Show file tree

Hide file tree

Showing 3 changed files with 23 additions and 3 deletions.
diff --git a/src/Glutinum.Web/Components/RightPanelContent.fs b/src/Glutinum.Web/Components/RightPanelContent.fs
@@ -48,14 +48,27 @@ type RightPanelContent =
             |> prop.children
         ]
 
-    static member Error(error: string) =
+    static member Error(error: string, ?actions: ReactElement) =
         Html.div [
             prop.className [
                 classes.container
                 classes.``container--is-error``
             ]
 
-            prop.text error
+            prop.children [
+                Html.div [
+                    prop.className classes.container__content
+                    prop.children [
+                        Html.text error
+
+                        if actions.IsSome then
+                            Html.div [
+                                prop.className classes.container__actions
+                                prop.children [ actions.Value ]
+                            ]
+                    ]
+                ]
+            ]
         ]
 
     static member Loading() =

diff --git a/src/Glutinum.Web/Components/RightPanelContent.module.scss b/src/Glutinum.Web/Components/RightPanelContent.module.scss
@@ -36,6 +36,12 @@ $max-compilation-output-height: 25vh;
         color: $danger-dark;
         padding: 1rem;
         white-space: break-spaces;
+
+        // Compensate for the padding
+        #{$self}__actions {
+            bottom: 0;
+            right: 1rem;
+        }
     }
 
     // If we have warnings, we need now have 2 rows

diff --git a/src/Glutinum.Web/Pages/Editors.FSharpCode.fs b/src/Glutinum.Web/Pages/Editors.FSharpCode.fs
@@ -283,4 +283,5 @@ let view model dispatch =
             actions dispatch
         )
 
-    | Errored message -> RightPanelContent.Error message
+    | Errored message ->
+        RightPanelContent.Error(message, actions = actions dispatch)