let trees_for_window additional =
  Okey.trees_of_list
    (List.map (fun (x,s) -> (x, fun () -> Cam_commands.eval_command s))
       (window_key_bindings#get @ additional))