method on_split_active_view o () = Cam_commands.eval_command (Printf.sprintf "split_%s" (match o with `HORIZONTAL -> "horizontally" | `VERTICAL -> "vertically"))