Warning: Reason support is experimental. We are looking for beta-tester and contributors.

Module Os_platform

module Os_platform : sig..end

Platform type.

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".