coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

otel: relative 'Ns ago' timestamp on recent traces

Browse Source
This commit is contained in:
giles
2026-07-02 10:53:02 +00:00
parent e49229c20b
commit 4f17a40187
1 changed files with 33 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
lib/host/otel.sx
View File

@@ -370,12 +370,27 @@
(fn (trace-id)
(let ((roots (filter (fn (s) (nil? (get s :parent))) (otel/trace-spans trace-id))))
(if (empty? roots) nil (get (get (first roots) :attrs) :http.target)))))
;; when the trace last did something (latest span end), epoch ns.
(define otel/-trace-end
(fn (trace-id)
(let ((spans (otel/trace-spans trace-id)))
(if (empty? spans) 0 (otel/-max-t1 spans)))))
;; a ns age → a coarse "N<unit> ago" label.
(define otel/-ago
(fn (age-ns)
(let ((s (quotient (if (< age-ns 0) 0 age-ns) 1000000000)))
(cond
((< s 1) "just now")
((< s 60) (str s "s ago"))
((< s 3600) (str (quotient s 60) "m ago"))
(else (str (quotient s 3600) "h ago"))))))
(define otel/trace-summary
(fn (trace-id)
{:trace trace-id
:name (otel/-trace-root-name trace-id)
:target (otel/-trace-target trace-id)
:dur (otel/-trace-dur trace-id)
:t (otel/-trace-end trace-id)
:spans (len (otel/trace-spans trace-id))}))
(define otel/recent-traces
(fn () (reverse (map otel/trace-summary (otel/-trace-ids)))))
@@ -424,19 +439,24 @@
(define otel/-traces-list
(fn (traces)
(quasiquote
(ul :class "otel-traces"
(splice-unquote
(map
(fn (t)
(quasiquote
(li :data-trace (unquote (str (get t :trace)))
;; show the concrete target (/welcome) if known, else the span
;; name, then the wall duration and span count.
(span :style "font-weight:600"
(unquote (or (get t :target) (get t :name))))
(unquote (str " · " (otel/-ms (get t :dur)) " · " (get t :spans) " spans")))))
traces))))))
;; capture "now" ONCE so all ages are relative to the same instant; each 3s
;; re-render recomputes it, so the labels tick upward (2s ago → 5s ago → …).
(let ((now (otel/now-ns)))
(quasiquote
(ul :class "otel-traces"
(splice-unquote
(map
(fn (t)
(quasiquote
(li :data-trace (unquote (str (get t :trace)))
;; concrete target (/welcome) if known, else the span name; then
;; wall duration, span count, and how long ago it happened.
(span :style "font-weight:600"
(unquote (or (get t :target) (get t :name))))
(unquote (str " · " (otel/-ms (get t :dur))
" · " (get t :spans) " spans"
" · " (otel/-ago (- now (get t :t))))))))
traces)))))))
;; a per-route latency bar chart: each row is a nested bar — teal p50 inside amber
;; p95 inside light-red p99 — so the tail (red beyond amber) is visible at a glance.