(let ((directed-edge-connector (if (contains-undirected-edge-p g) "--" "->"))
(directed-edge-tag (when (and (contains-undirected-edge-p g)
(let ((directed-edge-connector (if (contains-undirected-edge-p g) "--" "->"))
(directed-edge-tag (when (and (contains-undirected-edge-p g)