diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-05-20 14:47:24 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-05-20 22:48:06 +0200 |
commit | 8241460f5a729b577b0d7da544fe8f8fcda18d14 (patch) | |
tree | 1f366937bf868551b49bb2d0a711c071c612ac01 | |
parent | 69941d4e195650bf59285b897c14d6287defea0f (diff) |
Answering report #4241 (formatting of boxes not behaving regularly
when printing width extend).
-rw-r--r-- | lib/pp_control.ml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/pp_control.ml b/lib/pp_control.ml index 0d224c035..7fe4e0f52 100644 --- a/lib/pp_control.ml +++ b/lib/pp_control.ml @@ -20,7 +20,7 @@ let dflt_gp = { margin = 78; max_indent = 50; max_depth = 50; - ellipsis = ".." } + ellipsis = "..." } (* A deeper pretty-printer to print proof scripts *) @@ -84,5 +84,8 @@ let set_margin v = let v = match v with None -> default_margin | Some v -> v in Format.pp_set_margin Format.str_formatter v; Format.pp_set_margin !std_ft v; - Format.pp_set_margin !deep_ft v - + Format.pp_set_margin !deep_ft v; + let m = 64 * v / 100 in (* Heuristic, based on usage *) + 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 |