Permalink
Browse files

Changing operators like '^' and '@' to align rather than indent

  • Loading branch information...
1 parent e0bea4e commit d53f4cb4f50d34014050566d99e2aba24c93b5bf @AltGr AltGr committed Mar 13, 2013
View
@@ -364,7 +364,7 @@ let op_prio_align_indent config =
| "|!" | "|>" -> prio_flatop,T,0
| _ -> 60,L,config.i_base)
| EQUAL | LESS | GREATER -> 60,L,config.i_base
- | INFIXOP1 _ -> 70,L,config.i_base
+ | INFIXOP1 _ -> 70,T,0
| COLONCOLON -> 80,L,config.i_base
| INFIXOP2 _ | PLUSDOT | PLUS | MINUSDOT | MINUS -> 90,L,config.i_base
| INFIXOP3 _ | STAR -> 100,L,config.i_base
@@ -1,67 +0,0 @@
-let () =
- foo.bar <-
- f x
- y z
-
-(* yminsky *)
-let should_check_can_sell_and_marking regulatory_regime =
- match z with
- | `foo
- -> some_function
- argument
-
-(* CR pszilagyi: What would you say about this one: *)
-let f = fun x -> ghi
- x
-
-let x =
- try x with a -> b
- | c -> d
-
-let z =
- some_function
- argument
-
-
-
-(* dwu *)
-let () =
- f a b ~c:c
- d
-
-let () =
- f a b ~c:1.
- d
-
-let () =
- My_module.f a b ~c:c
- d
-
-(* This last case is where Tuareg is inconsistent with the others. *)
-let () =
- My_module.f a b ~c:1.
- d
-
-
-
-let () =
- messages :=
- Message_store.create (Session_id.of_string "")
- (* Tuareg indents these lines too far to the left. *)
- "herd-retransmitter"
- Message_store.Message_size.Byte
-
-
-
-let () =
- raise (Bug ("foo"
- (* In this and similar cases, we want the subsequent lines to
- align with the first expression. *)
- ^ "bar"))
-
-(* Except in specific cases, we want the argument indented relative to the
- function being called. (Exceptions include "fun" arguments where the line
- ends with "->" and subsequent lines beginning with operators, like above.) *)
-let () =
- Some (Message_store.create s
- "herd-retransmitter" ~unlink:true Message_store.Message_size.Byte)
Oops, something went wrong.

0 comments on commit d53f4cb

Please sign in to comment.