diff options
| author |  Pierre Courtieu <Pierre.Courtieu@cnam.fr> | 2015-05-21 18:14:56 +0200 |
|---|---|---|
| committer | Pierre Courtieu <Pierre.Courtieu@cnam.fr> | 2015-05-21 18:27:09 +0200 |
| commit | 2eb7d2e20a2fc58ae91a5110f26e2f9a3699db46 (patch) | |
| tree | 751a26f07477d4a06111d8be59ebb1a7ee66e5ba | |
| parent | 8241460f5a729b577b0d7da544fe8f8fcda18d14 (diff) | |
Changing the heuristic fixing bug #4241.
Fixed #4241 correlates Printing Width and max_indent, this patch
changes the correlation to the following one:
max_indent = max ((wdth*80)/100) (wdth-30)
i.e. the right column defined by max_indent is 20% of the global
width, but capped to 30 characters.
| -rw-r--r-- | lib/pp_control.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/pp_control.ml b/lib/pp_control.ml index 7fe4e0f52..969c1550e 100644 --- a/lib/pp_control.ml +++ b/lib/pp_control.ml @@ -85,7 +85,9 @@ let set_margin v = Format.pp_set_margin Format.str_formatter v; Format.pp_set_margin !std_ft v; Format.pp_set_margin !deep_ft v; - let m = 64 * v / 100 in (* Heuristic, based on usage *) + (* Heuristic, based on usage: the column on the right of max_indent + column is 20% of width, capped to 30 characters *) + let m = max (64 * v / 100) (v-30) in Format.pp_set_max_indent Format.str_formatter m; Format.pp_set_max_indent !std_ft m; Format.pp_set_max_indent !deep_ft m |