swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-30 03:05:31 +01:00
parent 1dfb906b73
commit 771231cee0
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/mte.ml
View file

@ -28,6 +28,7 @@ let log_level_color = function
let reporter : Logs.reporter = let reporter : Logs.reporter =
let open Fmt in let open Fmt in
let pp_timestamp = styled `Faint (styled (`Fg `White) (fmt "%04.02f")) in
let pp_header ppf v = let pp_header ppf v =
let color = fst v |> log_level_color in let color = fst v |> log_level_color in
let pp = styled (`Fg color) Logs.pp_header in let pp = styled (`Fg color) Logs.pp_header in
@ -43,16 +44,14 @@ let reporter : Logs.reporter =
let k _ppf = over (); k () in let k _ppf = over (); k () in
let with_detail h tags k user_fmt = let with_detail h tags k user_fmt =
let detail = Option.bind tags (Logs.Tag.find detail_tag) in let detail = Option.bind tags (Logs.Tag.find detail_tag) in
let dt = let timestamp =
Ptime.sub_span (Ptime_clock.now ()) time_anchor Ptime.sub_span (Ptime_clock.now ()) time_anchor
|> Option.get |> Option.get
|> Ptime.to_float_s |> Ptime.to_float_s
in in
let k ppf = kpf k ppf "%a@." pp_detail detail in let k ppf = kpf k ppf "%a@." pp_detail detail in
let k ppf = kpf k ppf user_fmt in let k ppf = kpf k ppf user_fmt in
kpf k ppf "%a %a %a" kpf k ppf "%a %a %a" pp_timestamp timestamp pp_header (lvl, h) pp_src src
(styled `Faint (styled (`Fg `White) (fmt "%04.02f")))
dt pp_header (lvl, h) pp_src src
in in
msgf @@ fun ?header ?tags fmt -> with_detail header tags k fmt msgf @@ fun ?header ?tags fmt -> with_detail header tags k fmt
in in