package chartjs-annotation

You can search for identifiers within the package.

in-package search v0.2.0

chartjs-annotation
- Library chartjs-annotation
  - Chartjs_annotation
    
    Line_mode
    
    Draw_time
    
    Position
    
    baseAnnotation
    
    label
    
    lineAnnotation
    
    boxAnnotation
    
    annotation
    
    CoerceTo
- Sources
  - chartjs-annotation
    
    chartjs_annotation.ml

Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file `chartjs_annotation.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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
open Js_of_ocaml
open Chartjs

module Line_mode = struct
  type t = Js.js_string

  let vertical = Js.string "vertical"

  let horizontal = Js.string "horizontal"
end

module Draw_time = struct
  type t = Js.js_string

  let afterDraw = Js.string "afterDraw"

  let afterDatasetsDraw = Js.string "afterDatasetsDraw"

  let beforeDatasetsDraw = Js.string "beforeDatasetsDraw"
end

module Position = struct
  include Position

  let center = of_string "center"
end

class type baseAnnotation =
  object
    method _type : Js.js_string Js.t Js.prop

    method drawTime : Draw_time.t Js.t Js.optdef Js.prop

    method id : Js.js_string Js.t Js.prop
  end

class type label =
  object
    method backgroundColor : Color.t Js.t Js.prop

    method fontFamily : Js.js_string Js.t Js.prop

    method fontSize : int Js.prop

    method fontStyle : Js.js_string Js.t Js.prop

    method fontColor : Js.js_string Js.t Js.prop

    method xPadding : int Js.prop

    method yPadding : int Js.prop

    method cornerRadius : int Js.prop

    method position : Position.t Js.t Js.prop

    method xAdjust : int Js.prop

    method yAdjust : int Js.prop

    method enabled : bool Js.t Js.prop

    method content : Js.js_string Js.t Indexable.t Js.t Js.opt Js.prop
  end

class type ['a] lineAnnotation =
  object
    inherit baseAnnotation

    method mode : Line_mode.t Js.t Js.prop

    method scaleID : Js.js_string Js.t Js.prop

    method value : 'a Js.prop

    method endValue : 'a Js.prop

    method borderColor : Color.t Js.t Js.prop

    method borderWidth : int Js.prop

    method borderDash : line_dash Js.prop

    method borderDashOffset : line_dash_offset Js.prop

    method label : label Js.t Js.prop
  end

class type ['a, 'b] boxAnnotation =
  object
    inherit baseAnnotation

    method xScaleID : Js.js_string Js.t Js.prop

    method yScaleID : Js.js_string Js.t Js.prop

    method xMin : 'a Js.optdef Js.prop

    method xMax : 'a Js.optdef Js.prop

    method yMin : 'b Js.optdef Js.prop

    method yMax : 'b Js.optdef Js.prop

    method borderColor : Color.t Js.t Js.prop

    method borderWidth : int Js.prop

    method backgroundColor : Color.t Js.t Js.prop
  end

class type annotation =
  object
    method drawTime : Draw_time.t Js.t Js.prop

    method events : Js.js_string Js.t Js.js_array Js.t Js.prop

    method dblClickSpeed : float Js.prop

    method annotations : #baseAnnotation Js.t Js.js_array Js.t Js.prop
  end

module CoerceTo = struct
  let lineAnnotation (x : #baseAnnotation Js.t) : 'a lineAnnotation Js.t Js.opt =
    if Js.string "line" == x##._type then Js.some (Js.Unsafe.coerce x) else Js.null

  let boxAnnotation (x : #baseAnnotation Js.t) : ('a, 'b) boxAnnotation Js.t Js.opt =
    if Js.string "box" == x##._type then Js.some (Js.Unsafe.coerce x) else Js.null
end

let coerce_annotation a = (a :> baseAnnotation Js.t)

let empty_label () : label Js.t = Js.Unsafe.obj [||]

let empty_box_annotation () =
  let (obj : ('a, 'b) boxAnnotation Js.t) = Js.Unsafe.obj [||] in
  obj##._type := Js.string "box";
  obj

let empty_line_annotation () =
  let (obj : 'a lineAnnotation Js.t) = Js.Unsafe.obj [||] in
  obj##._type := Js.string "line";
  obj

let empty_annotation_config () : annotation Js.t = Js.Unsafe.obj [||]

let of_chart_options options = (Js.Unsafe.coerce options)##.annotation

let set_to_chart_options options plugin =
  (Js.Unsafe.coerce options)##.annotation := plugin

package chartjs-annotation

Source file chartjs_annotation.ml

Source file `chartjs_annotation.ml`