.

oplevel.ml

@@ -103,6 +103,8 @@ let () =
     ref
       Layout.(
         vbox
+          ~style:
+            Style.{ default with margin = Margin.symmetric 10.0 10.0 }
           [
             textedit
               (TextEdit.multiline ui
@@ -153,12 +155,10 @@ let () =
          Gl.enable Gl.cull_face_enum;
          Gl.disable Gl.depth_test;
 
-         let width, height =
-           ( float win_w,
-             float (win_h - 50)
-             (* TKTK might be an artifact of exwm or something *) )
+         let width, height = (float win_w, float win_h) in
+         let box =
+           Gg.(Box2.v V2.zero Size2.(v width (height -. 20.)))
          in
-         let box = Gg.(Box2.v V2.zero Size2.(v width height)) in
          Gv.begin_frame ctx ~width ~height ~device_ratio:1.;
          Perfgraph.render graph ctx (width -. 205.) 5.;
          (* F.epr "box=%a@." Gg.Box2.pp box;