How could I make both vertices and edges moveable like this.
(source: https://csacademy.com/app/graph_editor/)
(In the image only nodes are movable but I would like to do this for edges as well)
Graph[{1, 2, 3, 4, 5, 6}, {1 \[UndirectedEdge] 3,
1 \[UndirectedEdge] 5, 1 \[UndirectedEdge] 6, 2 \[UndirectedEdge] 5,
2 \[UndirectedEdge] 6, 1 \[UndirectedEdge] 6,
3 \[UndirectedEdge] 4, 3 \[UndirectedEdge] 5, 3 \[UndirectedEdge] 6,
5 \[UndirectedEdge] 6}, VertexLabels -> "Name"]