remove dep on fmt

This commit is contained in:
Simon Cruanes 2020-04-29 20:55:47 -04:00 committed by Frédéric Bour
parent 729ee623cf
commit 8a3c64ba89
4 changed files with 8 additions and 13 deletions

View File

@ -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)

View File

@ -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))

View File

@ -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 _ -> ()

View File

@ -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}
[ [