remove dep on fmt
This commit is contained in:
parent
729ee623cf
commit
8a3c64ba89
|
@ -19,7 +19,7 @@
|
||||||
(name nottui)
|
(name nottui)
|
||||||
(synopsis "UI toolkit for the terminal built on top of Notty")
|
(synopsis "UI toolkit for the terminal built on top of Notty")
|
||||||
(description "TODO")
|
(description "TODO")
|
||||||
(depends dune lwd notty fmt))
|
(depends dune lwd notty))
|
||||||
|
|
||||||
(package
|
(package
|
||||||
(name nottui-lwt)
|
(name nottui-lwt)
|
||||||
|
|
|
@ -1,3 +1,3 @@
|
||||||
(library (name nottui)
|
(library (name nottui)
|
||||||
(public_name nottui)
|
(public_name nottui)
|
||||||
(libraries lwd notty notty.unix fmt))
|
(libraries lwd notty notty.unix))
|
||||||
|
|
|
@ -322,16 +322,11 @@ struct
|
||||||
| Y (a, b) -> Format.fprintf ppf "Y (@[%a,@ %a@])" pp a pp b
|
| Y (a, b) -> Format.fprintf ppf "Y (@[%a,@ %a@])" pp a pp b
|
||||||
| Z (a, b) -> Format.fprintf ppf "Z (@[%a,@ %a@])" pp a pp b
|
| Z (a, b) -> Format.fprintf ppf "Z (@[%a,@ %a@])" pp a pp b
|
||||||
|
|
||||||
and pp_overlay ppf =
|
and pp_overlay ppf r =
|
||||||
Fmt.(record [
|
Format.fprintf ppf
|
||||||
field "o_n" (fun r -> r.o_n) pp;
|
"{@[o_n=%a;@ o_h=%s;@ o_h=%d;@ o_x=%d;@ o_y=%d;@ \
|
||||||
field "o_h" (fun r -> r.o_h) (const string "_");
|
o_origin=%a;@ o_direction=%a@]}" pp r.o_n "_" r.o_x r.o_y r.o_z
|
||||||
field "o_x" (fun r -> r.o_x) int;
|
Gravity.pp r.o_origin Gravity.pp r.o_direction
|
||||||
field "o_y" (fun r -> r.o_y) int;
|
|
||||||
field "o_z" (fun r -> r.o_z) int;
|
|
||||||
field "o_origin" (fun r -> r.o_origin) Gravity.pp;
|
|
||||||
field "o_direction" (fun r -> r.o_direction) Gravity.pp;
|
|
||||||
]) ppf
|
|
||||||
|
|
||||||
let iter f ui = match ui.desc with
|
let iter f ui = match ui.desc with
|
||||||
| Atom _ -> ()
|
| Atom _ -> ()
|
||||||
|
|
|
@ -7,7 +7,7 @@ authors: ["Frédéric Bour"]
|
||||||
license: "MIT"
|
license: "MIT"
|
||||||
homepage: "https://github.com/let-def/lwd"
|
homepage: "https://github.com/let-def/lwd"
|
||||||
bug-reports: "https://github.com/let-def/lwd/issues"
|
bug-reports: "https://github.com/let-def/lwd/issues"
|
||||||
depends: ["dune" "lwd" "notty" "fmt"]
|
depends: ["dune" "lwd" "notty"]
|
||||||
build: [
|
build: [
|
||||||
["dune" "subst"] {pinned}
|
["dune" "subst"] {pinned}
|
||||||
[
|
[
|
||||||
|
|
Loading…
Reference in New Issue