let name_to_keysym =
  ("Button1"Configwin_keys.xk_Pointer_Button1) ::
  ("Button2"Configwin_keys.xk_Pointer_Button2) ::
  ("Button3"Configwin_keys.xk_Pointer_Button3) ::
  ("Button4"Configwin_keys.xk_Pointer_Button4) ::
  ("Button5"Configwin_keys.xk_Pointer_Button5) ::
  Configwin_keys.name_to_keysym