Ocamlformating

Author: balat

src/widgets/ot_calendar.eliom

@@ -185,9 +185,12 @@ let select_action ?(size = 1) selector action =
       dom_select##.size := size;
       Lwt.return_unit))
 
-let rec build_calendar ?prehilight
-    ~button_labels:{b_prev_year; b_prev_month; b_next_month; b_next_year} ~intl
-    ~period day
+let rec build_calendar
+          ?prehilight
+          ~button_labels:{b_prev_year; b_prev_month; b_next_month; b_next_year}
+          ~intl
+          ~period
+          day
   =
   let today = CalendarLib.Date.today () in
   let fst_dow = fst_dow ~intl day
@@ -297,43 +300,54 @@ let get_options selector =
 let update_classes cal zero d =
   let rows = (To_dom.of_table cal)##.rows in
   let f i =
-    rows ## (item (i + 2)) >>! fun r ->
+    rows##(item (i + 2)) >>! fun r ->
     let cells = r##.cells in
     let f j =
-      cells ## (item j) >>! fun c ->
+      cells##(item j) >>! fun c ->
       let d' =
         CalendarLib.Calendar.Date.(j + (7 * i) |> Period.day |> add zero)
       in
       if d = d'
-      then c ##. classList ## (add (Js.string "ot-c-current"))
-      else c ##. classList ## (remove (Js.string "ot-c-current"))
+      then c##.classList##(add (Js.string "ot-c-current"))
+      else c##.classList##(remove (Js.string "ot-c-current"))
     in
     iter_interval 0 6 f
   in
   iter_interval 0 5 f
 
-let in_period ?(begin_p = default_period.begin_p)
-    ?(end_p = default_period.end_p) curr_date
+let in_period
+      ?(begin_p = default_period.begin_p)
+      ?(end_p = default_period.end_p)
+      curr_date
   =
   curr_date >= begin_p && curr_date <= end_p
 
-let in_period_coerced ?(begin_p = default_period.begin_p)
-    ?(end_p = default_period.end_p) curr_date
+let in_period_coerced
+      ?(begin_p = default_period.begin_p)
+      ?(end_p = default_period.end_p)
+      curr_date
   =
   curr_date >= (begin_p :> [`Month | `Year] CalendarLib.Date.date)
   && curr_date <= (end_p :> [`Month | `Year] CalendarLib.Date.date)
 
-let attach_events ?action ?(click_non_highlighted = false) ?update ~intl ~period
-    d cal highlight
+let attach_events
+      ?action
+      ?(click_non_highlighted = false)
+      ?update
+      ~intl
+      ~period
+      d
+      cal
+      highlight
   =
   let rows = (To_dom.of_table cal)##.rows in
   let fst_dow = fst_dow ~intl d and zero = zeroth_displayed_day ~intl d in
   let mnth = CalendarLib.Date.month fst_dow in
   iter_interval 0 5 @@ fun i ->
-  rows ## (item (i + 2)) >>! fun r ->
+  rows##(item (i + 2)) >>! fun r ->
   let cells = r##.cells in
   iter_interval 0 6 @@ fun j ->
-  cells ## (item j) >>! fun c ->
+  cells##(item j) >>! fun c ->
   let d = CalendarLib.Calendar.Date.(j + (7 * i) |> Period.day |> add zero) in
   if mnth = CalendarLib.Date.month d
   then
@@ -358,14 +372,20 @@ let attach_events ?action ?(click_non_highlighted = false) ?update ~intl ~period
     in
     if List.exists (( = ) dom) highlight
     then (
-      c ##. classList ## (add (Js.string "ot-c-highlight"));
+      c##.classList##(add (Js.string "ot-c-highlight"));
       set_onclick ())
     else if click_non_highlighted
     then set_onclick ()
     else ()
 
-let attach_events_lwt ?action ?click_non_highlighted ~intl ~period d cal
-    highlight
+let attach_events_lwt
+      ?action
+      ?click_non_highlighted
+      ~intl
+      ~period
+      d
+      cal
+      highlight
   =
   let f () =
     let m = CalendarLib.Date.(month d |> int_of_month)
@@ -376,9 +396,13 @@ let attach_events_lwt ?action ?click_non_highlighted ~intl ~period d cal
   in
   Lwt.async f
 
-let make_span_handler selector
-    ((get_sig, set_sig) : int React.signal * (?step:React.step -> int -> unit))
-    apply condi fun_handler
+let make_span_handler
+      selector
+      ((get_sig, set_sig) :
+        int React.signal * (?step:React.step -> int -> unit))
+      apply
+      condi
+      fun_handler
   =
   Dom_html.handler (fun _ ->
     if condi ()
@@ -389,9 +413,13 @@ let make_span_handler selector
       Js._false)
     else Js._false)
 
-let set_selected_index selector selector_value options
-    ((get_sig, set_sig) : int React.signal * (?step:React.step -> int -> unit))
-    ()
+let set_selected_index
+      selector
+      selector_value
+      options
+      ((get_sig, set_sig) :
+        int React.signal * (?step:React.step -> int -> unit))
+      ()
   =
   let value = selector_value () in
   try
@@ -404,8 +432,15 @@ let make_selector_handler change_index condi fun_handler =
   Dom_html.handler (fun _ ->
     if condi () then (fun_handler (); change_index (); Js._false) else Js._false)
 
-let attach_behavior ?highlight ?click_non_highlighted ?action ~intl ~period d
-    (cal, prev, next, select_month, select_year, prev_year, next_year) f_d
+let attach_behavior
+      ?highlight
+      ?click_non_highlighted
+      ?action
+      ~intl
+      ~period
+      d
+      (cal, prev, next, select_month, select_year, prev_year, next_year)
+      f_d
   =
   (match highlight with
   | Some highlight ->
@@ -467,18 +502,18 @@ let attach_behavior ?highlight ?click_non_highlighted ?action ~intl ~period d
        (fun () -> f_d (CalendarLib.Date.next d `Year))
 
 let make :
-     ?init:int * int * int
-    -> ?highlight:(int -> int -> int list Lwt.t)
-    -> ?click_non_highlighted:bool
-    -> ?update:(int * int * int) React.E.t
-    -> ?action:(int -> int -> int -> unit Lwt.t)
-    -> ?period:
-         CalendarLib.Date.field CalendarLib.Date.date
-         * CalendarLib.Date.field CalendarLib.Date.date
-    -> ?button_labels:button_labels
-    -> ?intl:intl
-    -> unit
-    -> [> `Div] elt
+   ?init:int * int * int
+  -> ?highlight:(int -> int -> int list Lwt.t)
+  -> ?click_non_highlighted:bool
+  -> ?update:(int * int * int) React.E.t
+  -> ?action:(int -> int -> int -> unit Lwt.t)
+  -> ?period:
+       CalendarLib.Date.field CalendarLib.Date.date
+       * CalendarLib.Date.field CalendarLib.Date.date
+  -> ?button_labels:button_labels
+  -> ?intl:intl
+  -> unit
+  -> [> `Div] elt
   =
  fun ?init
    ?highlight
@@ -525,18 +560,18 @@ let make :
   elt
 
 let%server make :
-     ?init:int * int * int
-    -> ?highlight:(int -> int -> int list Lwt.t) Eliom_client_value.t
-    -> ?click_non_highlighted:bool
-    -> ?update:(int * int * int) React.E.t Eliom_client_value.t
-    -> ?action:(int -> int -> int -> unit Lwt.t) Eliom_client_value.t
-    -> ?period:
-         CalendarLib.Date.field CalendarLib.Date.date
-         * CalendarLib.Date.field CalendarLib.Date.date
-    -> ?button_labels:button_labels
-    -> ?intl:intl
-    -> unit
-    -> [> `Div] elt
+   ?init:int * int * int
+  -> ?highlight:(int -> int -> int list Lwt.t) Eliom_client_value.t
+  -> ?click_non_highlighted:bool
+  -> ?update:(int * int * int) React.E.t Eliom_client_value.t
+  -> ?action:(int -> int -> int -> unit Lwt.t) Eliom_client_value.t
+  -> ?period:
+       CalendarLib.Date.field CalendarLib.Date.date
+       * CalendarLib.Date.field CalendarLib.Date.date
+  -> ?button_labels:button_labels
+  -> ?intl:intl
+  -> unit
+  -> [> `Div] elt
   =
  fun ?init
    ?highlight

src/widgets/ot_calendar.eliomi

@@ -26,18 +26,18 @@ type intl =
   { i_days : string list
   ; i_months : string list
   ; i_start : [`Sun | `Mon | `Tue | `Wed | `Thu | `Fri | `Sat] }
-(** [intl] is the type of internationalization specifiers. [i_days]
-    contains the names of the weekdays, starting with
-    Sunday. [i_months] contains the names of the months, starting with
-    January. [i_start] specifies the first day of the week. *)
+(** [intl] is the type of internationalization specifiers. [i_days] contains the
+    names of the weekdays, starting with Sunday. [i_months] contains the names
+    of the months, starting with January. [i_start] specifies the first day of
+    the week. *)
 
 type button_labels =
   { b_prev_year : string
   ; b_prev_month : string
   ; b_next_month : string
   ; b_next_year : string }
-(** An instance of [button_labels] is used to customize the button
-    labels. The defaults are "<<", "<", ">", and ">>". *)
+(** An instance of [button_labels] is used to customize the button labels. The
+    defaults are "<<", "<", ">", and ">>". *)
 
 val make :
    ?init:int * int * int
@@ -54,20 +54,19 @@ val make :
   -> [> `Div] Eliom_content.Html.elt
 (** [make ?highlight ?click_any ?action] produces a calendar.
 
-    If a client-side function [highlight] is provided, [highlight y m]
-    needs to produce the list of days for the month [m] of the year
-    [y] that need to be visually denoted.
+    If a client-side function [highlight] is provided, [highlight y m] needs to
+    produce the list of days for the month [m] of the year [y] that need to be
+    visually denoted.
 
-    If [click_non_highlighted] is [true], every date is clickable;
-    otherwise, only the dates that [highlight] returns (if [highlight]
-    is provided) are clickable.
+    If [click_non_highlighted] is [true], every date is clickable; otherwise,
+    only the dates that [highlight] returns (if [highlight] is provided) are
+    clickable.
 
-    If a client-side function [action] is provided, when the user
-    clicks on the date [d]:[m]:[y], [action y m d] is called. 
-    
-    If [period] is provided, the calendar will have a period restriction
-    between the two dates given contained in [update].
-    *)
+    If a client-side function [action] is provided, when the user clicks on the
+    date [d]:[m]:[y], [action y m d] is called.
+
+    If [period] is provided, the calendar will have a period restriction between
+    the two dates given contained in [update]. *)
 
 val make_date_picker :
    ?init:int * int * int
@@ -80,9 +79,7 @@ val make_date_picker :
   -> unit
   -> [> `Div] Eliom_content.Html.elt * (int * int * int) Eliom_shared.React.S.t
 (** [make_date_picker ?init ()] returns a client-side reactive signal
-    [(y, m, d)] corresponding to the date [d]:[m]:[y] that the user
-    clicks on. The optional parameter [init] provides an initial value
-    for the signal.
+    [(y, m, d)] corresponding to the date [d]:[m]:[y] that the user clicks on.
+    The optional parameter [init] provides an initial value for the signal.
     [?intl] is used to internationalize the calendar (see {!intl}). The default
-    behavior is for English.
-*)
+    behavior is for English. *)