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