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
open! Oxbow_core
module Tiling = struct
type t =
{ mutable scheme : Scheme.t
; mutable mfact : float
; mutable nmaster : int
; mutable dir : Direction.Spatial.t
}
end
module Scrolling = struct
type t =
{ mutable align : Align.t
; mutable default_width : Width_fac.t
; mutable offset : int
; mutable dir : Direction.Spatial.t
}
end
module Floating = struct
type t = { mutable seed : Oxbow_core.Extent.t }
end
module Gaps = struct
type t =
{ mutable inner : int
; mutable outer : int
}
end