Source file `Ppx_extra_attributes.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
type t = Htmx | Alpinejs | Custom_file of string

let reference : t option ref = ref None
let set flag = reference := Some flag
let set_htmx () = reference := Some Htmx
let get () = !reference

let reference_to_string = function
  | Htmx -> "Htmx"
  | Alpinejs -> "Alpine"
  | Custom_file _ -> "Custom"

let to_string = function None -> "Html" | Some ref -> reference_to_string ref

let attributes_of_flags = function
  | None -> []
  | Some Htmx -> Ppx_htmx.attributes
  | Some Alpinejs -> Ppx_alpinejs.attributes
  | Some (Custom_file _) -> (* Not implemented *) []

(* A function that loads the attributes lazy, since we need to derive the list of attributes with the ppx flags. *)
let load_attributes () = lazy (attributes_of_flags (get ()))