let add_binding map binding action =
  map#set ((Configwin.string_to_key binding, action) :: map#get)