1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
open! Core
module Js = Js_of_ocaml.Js
type t =
| Main_container
| Log_container
| Log_item
| Text_prompt_label
| Input_container_form
| Input_submit_button
| Input_multiselect_container
| Output_math
| Progress_bar_item
| Progress_bar_label
| Progress_bar_bar_container
| Progress_bar_bar_fill_in_progress
| Progress_bar_bar_fill_completed
| Progress_bar_progress_label
[@@deriving to_string, enumerate]
let to_prefixed_string t =
Printf.sprintf "quickterface__%s" (String.lowercase (to_string t))
let to_js_string t = Js.string (to_prefixed_string t)