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:07:07 +01:00
parent dce8e5ddfb
commit 2ccfc73710
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/mte.ml
View file

@ -34,7 +34,7 @@ let reporter : Logs.reporter =
let pp = styled (`Fg color) Logs.pp_header in let pp = styled (`Fg color) Logs.pp_header in
pf ppf "%a" pp v pf ppf "%a" pp v
in in
let pp_src ppf v = let pp_src_name ppf v =
let pp = using Logs.Src.name (styled `Cyan string) in let pp = using Logs.Src.name (styled `Cyan string) in
if not @@ Logs.Src.equal Logs.default v then pp ppf v if not @@ Logs.Src.equal Logs.default v then pp ppf v
in in
@ -46,12 +46,13 @@ let reporter : Logs.reporter =
let detail = Option.bind tags (Logs.Tag.find detail_tag) in let detail = Option.bind tags (Logs.Tag.find detail_tag) in
let timestamp = let timestamp =
Ptime.sub_span (Ptime_clock.now ()) time_anchor Ptime.sub_span (Ptime_clock.now ()) time_anchor
|> Option.get |> Option.map Ptime.to_float_s
|> Ptime.to_float_s |> Option.value ~default:0.
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" pp_timestamp timestamp pp_header (lvl, h) pp_src src kpf k ppf "%a %a %a" pp_timestamp timestamp pp_header (lvl, h) pp_src_name
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