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);
}
.root:hover {
transform-origin: center;
.root:hover ~ .node {
transform: scale(2);
stroke-width: 0.009 !important;
}
|}
(* disabled CSS
transform-origin: center;
stroke-width: 0.009 !important;
*)
(*< Note the '.layer2_deps.bg' selector...
@ -321,7 +320,11 @@ line {
let make_node ~pos ~radius ~text ~classes =
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)
let make_line ~pos0 ~pos1 =
@ -352,6 +355,7 @@ line {
deps_w_positions |> List.map (fun ((dep, pos), layer2_deps) ->
let pos1 = pos in
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 pos1 = V2.v pos1.x pos1.y in
let pos1_rel = V2.(pos1 - center) in