Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

#47: Change the default value of fill-tail in Block.of-inline to true #77

Merged
merged 2 commits into from
Apr 5, 2020
+3 −3
Merged

#47: Change the default value of fill-tail in Block.of-inline to true #77

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
d27b5c3
#47: Change the default value of `fill-tail` in `Block.of-inline` to …
Feb 16, 2020
b4f7170
Merge branch 'dev-2.0.0' into GH-47
zeptometer Apr 5, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 3 additions & 3 deletions src/block.satyh
View file
Original file line number Diff line number Diff line change
@@ -9,7 +9,7 @@ module Block : sig
%% [Block.read bt ctx] converts block-text [bt] into a block-boxes using context [ctx].
val read : block-text -> context -> block-boxes

%% [Block.of-inline ?:fill-tail may-break-before may-break-after ibf ctx] transforms
%% [Block.of-inline ?:(fill-tail = true) may-break-before may-break-after ibf ctx] transforms
%% the inline-boxes returned by [ibf ctx] into a block-boxes by inserting
%% line breaks at positions determined by context [ctx] and line break oppotunities
%% included in the given inline-boxes.
@@ -46,8 +46,8 @@ end = struct
let of-inline ?:fill-tail b1 b2 ibf ctx =
let tail =
match fill-tail with
| Some(true) -> Inline.fil
| _ -> Inline.nil
| Some(false) -> Inline.nil
| _ -> Inline.fil
in line-break b1 b2 ctx ((ibf ctx) ++ tail)

let skip = block-skip