(bind-func cef_init_app
(lambda (obj:cef_app_t*)
(let ((base (tref-ptr obj 0)))
(tset! base 0 CEF_APP_SIZE)
(cef_init_base base)
(tset! obj 1 (convert on_before_command_line_processing))
(tset! obj 2 (convert on_register_custom_schemes))
(tset! obj 3 (convert get_resource_bundle_handler))
(tset! obj 4 (convert get_browser_process_handler))
(tset! obj 5 (convert get_render_process_handler))
(println "initialized app")
obj)))