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

otel: hover tooltips on waterfall bars (SVG <title>)

Browse Source
This commit is contained in:
giles
2026-07-02 11:00:40 +00:00
parent 4f17a40187
commit ca80df9ade
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/host/otel.sx
View File

@@ -213,11 +213,15 @@
(fn (status) (if (= status "error") "#e45756" "#4c9a8f"))) (fn (status) (if (= status "error") "#e45756" "#4c9a8f")))
;; one <g> (bar + name + duration) per rect. The bar is the only <rect>, so ;; one <g> (bar + name + duration) per rect. The bar is the only <rect>, so
;; count(rect) == count(span); axis chrome uses <line>/<text>. ;; count(rect) == count(span); axis chrome uses <line>/<text>. A leading <title>
;; gives a native hover tooltip with the full span name (the inline label clips on
;; narrow bars).
(define otel/-rect->g (define otel/-rect->g
(fn (r) (fn (r)
(quasiquote (quasiquote
(g (g
(title (unquote (str (get r :name) " · " (otel/-ms (get r :dur))
(if (= (get r :status) "error") " · error" ""))))
(rect :x (unquote (get r :x)) :y (unquote (get r :y)) (rect :x (unquote (get r :x)) :y (unquote (get r :y))
:width (unquote (get r :w)) :height (unquote (- otel/-row-h 2)) :width (unquote (get r :w)) :height (unquote (- otel/-row-h 2))
:fill (unquote (otel/-bar-fill (get r :status))) :rx 2) :fill (unquote (otel/-bar-fill (get r :status))) :rx 2)