aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ccwl/graphviz.scm18
1 files changed, 12 insertions, 6 deletions
diff --git a/ccwl/graphviz.scm b/ccwl/graphviz.scm
index 3aa3f2a..fec3908 100644
--- a/ccwl/graphviz.scm
+++ b/ccwl/graphviz.scm
@@ -149,6 +149,16 @@ symbol, a string, a <graph-port> object, or a <html-string> object."
(format "\"~a\"" (string-replace-substring object "\"" "\\\"")))
(else (error "Unknown object type to serialize to graphviz dot:" object))))
+(define (serialize-properties properties)
+ (string-append
+ "["
+ (string-join (map (match-lambda
+ ((key . value)
+ (format "~a=~a" key (serialize value))))
+ properties)
+ ", ")
+ "]"))
+
(define* (graph->dot graph #:optional (port (current-output-port)) (level 0))
"Render GRAPH, a <graph> object, in the graphviz dot syntax to
PORT."
@@ -166,12 +176,8 @@ PORT."
(indent-level port (1+ level))
(display (serialize (graph-node-name node)) port)
(unless (null? (graph-node-properties node))
- (display (format " [~a]"
- (string-join (map (match-lambda
- ((key . value)
- (format "~a=~a" key (serialize value))))
- (graph-node-properties node))
- ", "))
+ (display " " port)
+ (display (serialize-properties (graph-node-properties node))
port))
(display (format ";~%") port))
(graph-nodes graph))