sig
  type name = string
  val default : Odig_support.Odoc_theme.name
  val config_file : B0_std.Fpath.t
  val get_user_preference :
    unit -> (Odig_support.Odoc_theme.name, string) Stdlib.result
  val set_user_preference :
    Odig_support.Odoc_theme.name -> (unit, string) Stdlib.result
  type t
  val name : Odig_support.Odoc_theme.t -> Odig_support.Odoc_theme.name
  val path : Odig_support.Odoc_theme.t -> B0_std.Fpath.t
  val pp_name : Odig_support.Odoc_theme.t B0_std.Fmt.t
  val pp : Odig_support.Odoc_theme.t B0_std.Fmt.t
  val of_dir : B0_std.Fpath.t -> Odig_support.Odoc_theme.t list
  val find :
    Odig_support.Odoc_theme.name ->
    Odig_support.Odoc_theme.t list ->
    (Odig_support.Odoc_theme.t, string) Stdlib.result
end