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