package ocamlformat-mlx-lib
OCaml .mlx Code Formatter
Install
Dune Dependency
Authors
Maintainers
Sources
ocamlformat-mlx-0.27.0.1.tbz
sha256=4557bcca3d2bd2b6d37b046a84a82a1bed83e46e45e363c0b209d30d70c0ec77
sha512=2802651c733bf3535ce9d2e4e533729da75b17e9507d911f4d79d1a68f35ddfb82db1daf8815a46d57a9937dea5b5466d523739c217ace0e446738208037ec2d
doc/src/ocamlformat-mlx-lib.odoc_parser/loc.ml.html
Source file loc.ml
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
type point = { line : int; column : int } type span = { file : string; start : point; end_ : point } type +'a with_location = { location : span; value : 'a } let at location value = { location; value } let location { location; _ } = location let value { value; _ } = value let map f annotated = { annotated with value = f annotated.value } let same annotated value = { annotated with value } let span spans = match spans with | [] -> { file = "_none_"; start = { line = 1; column = 0 }; end_ = { line = 1; column = 0 }; } | first :: spans -> let last = List.fold_left (fun _ span -> span) first spans in { file = first.file; start = first.start; end_ = last.end_ } let nudge_start offset span = { span with start = { span.start with column = span.start.column + offset } } let nudge_end offset span = { span with end_ = { span.end_ with column = span.end_.column - offset } } let spans_multiple_lines = function | { location = { start = { line = start_line; _ }; end_ = { line = end_line; _ }; _ }; _; } -> end_line > start_line
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>