let all_action_bindings () =
  Actions.fold (fun k v l -> (k,v) :: l) []