Browse Source

always use neato

master
eta 3 months ago
parent
commit
50c53d2948
  1. 3
      trackernet.lisp

3
trackernet.lisp

@ -1055,7 +1055,8 @@ Stop if *TRACKERNET-KILL-SWITCH* is set to T."
(defun write-track-links-graphviz (&optional (out *standard-output*))
"Write the track links out in graphviz format."
(princ "digraph {" out)
(format out "node [shape=box margin=\"0.1,0.1\"];")
(format out "node [shape=box margin=\"0.1,0.1\"];
layout = \"neato\";")
(terpri out)
(loop
for key in (get-all "D-track-desc-*")

Loading…
Cancel
Save