sig

  type t

  type status = bool option

  type validator = string -> Bogue.Ti_validate.status * string option

  val get_status : Bogue.Ti_validate.t -> Bogue.Ti_validate.status

  val get_layout : Bogue.Ti_validate.t -> Bogue.Layout.t

  val get_text_input : Bogue.Ti_validate.t -> Bogue.Widget.t

  val get_text : Bogue.Ti_validate.t -> string

  val regexp_validator :

    ?strict:bool -> string -> Bogue.Ti_validate.validator

  val make :

    Bogue.Ti_validate.validator ->

    ?bg:Bogue.Draw.rgb ->

    ?prompt:string -> ?size:int -> string -> Bogue.Ti_validate.t

  val of_regexp :

    ?strict:bool ->

    string ->

    ?bg:Bogue.Draw.rgb ->

    ?prompt:string -> ?size:int -> string -> Bogue.Ti_validate.t

  module Email :

    sig

      val validator : Bogue.Ti_validate.validator

      val is_valid : string -> bool

      val hint : string -> string

    end

end