let add_textdomain t map_translate textdomain =
      List.fold_left (
        fun m category -> 
          add_textdomain_category t m textdomain category
      ) map_translate GettextCategory.categories