robur/opam-graph
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Opam_graph: UI: Hack to set transform-origins on svg-elements

Browse source
This commit is contained in:
rand00 2022-01-13 17:30:51 +01:00
parent f9d76de12d
commit 2c81dd1319
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/opam_graph.ml
View file

@ -271,16 +271,15 @@ line {
transform: scale(2); transform: scale(2);
} }
.root:hover { .root:hover ~ .node {
transform-origin: center;
transform: scale(2); transform: scale(2);
stroke-width: 0.009 !important;
} }
|} |}
(* disabled CSS (* disabled CSS
transform-origin: center;
stroke-width: 0.009 !important;
*) *)
(*< Note the '.layer2_deps.bg' selector... (*< Note the '.layer2_deps.bg' selector...
@ -321,7 +320,11 @@ line {
let make_node ~pos ~radius ~text ~classes = let make_node ~pos ~radius ~text ~classes =
let title = make_title ~text in let title = make_title ~text in
let a = [ Svg.a_class ("node" :: classes) ] in let a_transform_origin = Svg.Unsafe.string_attrib "transform-origin" in
let a = Svg.[
a_class ("node" :: classes);
a_transform_origin @@ sprintf "%f %f" pos.x pos.y;
] in
Svg.g ~a (title :: make_circle ~pos ~radius) Svg.g ~a (title :: make_circle ~pos ~radius)
let make_line ~pos0 ~pos1 = let make_line ~pos0 ~pos1 =
@ -352,6 +355,7 @@ line {
deps_w_positions |> List.map (fun ((dep, pos), layer2_deps) -> deps_w_positions |> List.map (fun ((dep, pos), layer2_deps) ->
let pos1 = pos in let pos1 = pos in
let pos0 = let pos0 =
(*> Note: Need this because of mix of CSS selectors and SVG paint order*)
let center = V2.v center.x center.y in let center = V2.v center.x center.y in
let pos1 = V2.v pos1.x pos1.y in let pos1 = V2.v pos1.x pos1.y in
let pos1_rel = V2.(pos1 - center) in let pos1_rel = V2.(pos1 - center) in