Add decorum data attr to window titlebar

unisonweb · Dec 11, 2024 · ea7a87d · ea7a87d
1 parent cb8dff5
commit ea7a87d
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/Window.elm b/src/Window.elm
@@ -382,6 +382,15 @@ windowDraggability =
     attribute "data-tauri-drag-region" "1"
 
 
+{-| Normally, this would happen automatically, but when the Elm app mounts it
+removes all previous HTML from <body> (where the Decorum plugin would normally
+add a titlebar for Windows)
+-}
+windowControls : Attribute msg
+windowControls =
+    attribute "data-tauri-decorum-tb" "1"
+
+
 
 -- VIEW
 
@@ -418,6 +427,7 @@ viewWindowTitlebar id_ titlebar_ =
     header
         [ id (id_ ++ "_window-titlebar")
         , windowDraggability
+        , windowControls
         , class "window-control-bar window-titlebar"
         , classList
             [ ( "window-titlebar_transparent", transparent )