Module Bs4_navs

type kind =
| Tab
| Pill
| Empty
type state =
| Active
| Disabled
| Inactive
| Hidden
type 'a tnav = {
id : string;
title : 'a option -> Html_types.flow5_without_interactive Ocp_js.elt;
classes : string list;
kind : kind;
onshow : unit -> unit;
mutable state : state;
mutable first : bool;
}
val make : ?⁠kind:kind -> ?⁠state:state -> ?⁠onshow:(unit -> unit) -> ?⁠classes:string list -> string -> ('a option -> Html_types.flow5_without_interactive Ocp_js.elt) -> 'a tnav
val make_state_class : state -> string list
val make_state_content_class : state -> string list
val kind_str : kind -> string
val disable : 'a tnav -> unit
val enable : 'a tnav -> unit
val show : 'a tnav -> unit
val hide : 'a tnav -> unit
val activate_nav : 'a tnav -> unit
val deactivate_nav : 'a tnav -> unit
val change_arg : ?⁠set_args:((string * string) list -> unit) -> 'a tnav -> unit
val make_tab_content : 'a tnav -> [< Html_types.div_content_fun ] Ocp_js.Html.elt -> [> Html_types.div ] Ocp_js.Html.elt
val update_nav_title : 'a tnav -> 'a -> unit
module Make : functor (S : sig ... end) -> sig ... end