package quickterface

  1. Overview
  2. Docs

Source file class.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
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)