Abstract out serialization of graphviz properties.

* ccwl/graphviz.scm (serialize-properties): New function.
(graph->dot): Use serialize-properties.

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))