Source file `syntax.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
type t = Markdown | Cram | Mli | Mld

let pp fs = function
  | Markdown -> Fmt.string fs "markdown"
  | Cram -> Fmt.string fs "cram"
  | Mli -> Fmt.string fs "mli"
  | Mld -> Fmt.string fs "mld"

let equal x y = x = y

let infer ~file =
  match Filename.extension file with
  | ".t" -> Some Cram
  | ".md" -> Some Markdown
  | ".mli" -> Some Mli
  | ".mld" -> Some Mld
  | _ -> None

let of_string = function
  | "markdown" | "normal" -> Some Markdown
  | "cram" -> Some Cram
  | "mli" -> Some Mli
  | "mld" -> Some Mld
  | _ -> None