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

otel: reliable bar tooltips (<title> inside <rect>, label pointer-events:none)

Browse Source
This commit is contained in:
giles
2026-07-02 11:56:34 +00:00
parent 1e2ff38759
commit 1cdfaa5035
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lib/host/otel.sx
View File

@@ -198,7 +198,7 @@
:status (get s :status)
:x (+ otel/-pad (* (/ (- (get s :t0) t0) total) iw))
:y (+ otel/-pad (* d otel/-row-h))
:w (if (> raw-w 1) raw-w 1)})))
:w (if (> raw-w 3) raw-w 3)})))
spans)))))))
;; ns → a compact "Nms" / "Nus" label.
@@ -213,20 +213,21 @@
(fn (status) (if (= status "error") "#e45756" "#4c9a8f")))
;; one <g> (bar + name + duration) per rect. The bar is the only <rect>, so
;; 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).
;; count(rect) == count(span); axis chrome uses <line>/<text>. The <title> lives
;; INSIDE the <rect> (browsers resolve tooltips per hovered element, not up the
;; tree), and the label sets pointer-events:none so hovering the bar — through the
;; label — reliably shows the tooltip with the full span name + duration.
(define otel/-rect->g
(fn (r)
(quasiquote
(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))
: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
(title (unquote (str (get r :name) " · " (otel/-ms (get r :dur))
(if (= (get r :status) "error") " · error" "")))))
(text :x (unquote (+ (get r :x) 3)) :y (unquote (+ (get r :y) 12))
:font-size 10 :fill "#ffffff"
:font-size 10 :fill "#ffffff" :pointer-events "none"
(unquote (str (get r :name) " " (otel/-ms (get r :dur)))))))))
;; max depth across rects (0 when empty) → svg height.