nasty bug in scroll update i couldn't wrap my head around

oplevel.ml

@@ -109,9 +109,9 @@ let () =
                  (TextBuffer.of_repo
                     ~path:[ ".config"; "init.ml" ]
                     ~repo:rootrepo));
-            textedit
+            (*textedit
               (TextEdit.multiline ui
-                 (TextBuffer.of_repo ~path:[ "README" ] ~repo:rootrepo));
+                 (TextBuffer.of_repo ~path:[ "README" ] ~repo:rootrepo)); *)
           ])
   in
 
@@ -153,7 +153,11 @@ let () =
          Gl.enable Gl.cull_face_enum;
          Gl.disable Gl.depth_test;
 
-         let width, height = (float win_w, float win_h) in
+         let width, height =
+           ( float win_w,
+             float (win_h - 50)
+             (* TKTK might be an artifact of exwm or something *) )
+         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.;