module Os_platform : sig..end
type t = | Android | IPhone | IPad | IPod | IWatch | BlackBerry | Windows | Unknown
val t_of_string : string -> t
val string_of_t : t -> string
val get : unit -> t
Return the platform as a type Os_platform.t. The detection is based on the user agent.
val css_class : t -> string
Return "os-platform" where platform is the device platform.
CSS class for IPhone, IPad, IWatch and IPod is "os-ios".
If the platform is Unknown, it returns "os-unknown-platform".