let on_par_open token lexbuf =
let cst = match token with
LPAREN -> !cst_indent.ind_parent
| LBRACE -> !cst_indent.ind_brace
| LBRACKET
| LBRACKETLESS
| LBRACKETGREATER -> !cst_indent.ind_bracket
| _ -> !cst_indent.ind_parent
in
if_first_token_on_line !cur_indent;
(* keep the indentation of this block *)
push_nl_info ();
push token !cur_indent cst;
(* then increment current indentation for lines in the parenthesis *)
(*
let pos_on_line =
let loc = lexbuf.Lexing.lex_start_p in
loc.Lexing.pos_cnum - loc.Lexing.pos_bol
in
*)
inc_indent cst