let init_keymaps () = match keymap_doc#get with [] -> List.iter (fun (k,a) -> Cam_rc.add_binding keymap_doc k a) default_doc_keymaps | _ -> ()