# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1629854158 14400
# Node ID 63712529f020071f133f66f32380d7933e8d9169
# Parent  4518e61a96c6c49ca63cb112c1f45c306bdd1e47
Add digraph.dot:*vertex-shape*

diff -r 4518e61a96c6 -r 63712529f020 package.dot.lisp
--- a/package.dot.lisp	Mon Apr 05 22:03:42 2021 -0400
+++ b/package.dot.lisp	Tue Aug 24 21:15:58 2021 -0400
@@ -1,3 +1,3 @@
 (defpackage :digraph.dot
   (:use :cl :digraph :digraph.quickutils)
-  (:export :draw))
+  (:export :draw :*vertex-shape*))
diff -r 4518e61a96c6 -r 63712529f020 src/dot.lisp
--- a/src/dot.lisp	Mon Apr 05 22:03:42 2021 -0400
+++ b/src/dot.lisp	Tue Aug 24 21:15:58 2021 -0400
@@ -19,11 +19,13 @@
 
 
 (defparameter *current-digraph* nil)
+(defparameter *vertex-shape* :circle
+  "The shape to use for vertex nodes.  Must be a valid cl-dot :shape node attribute.")
 
 
 (defmethod cl-dot:graph-object-node ((graph (eql 'digraph)) (vertex t))
   (make-instance 'cl-dot:node
-    :attributes `(:label ,(format nil "~A" vertex) :shape :circle)))
+    :attributes `(:label ,(format nil "~A" vertex) :shape ,*vertex-shape*)))
 
 (defmethod cl-dot:graph-object-points-to ((graph (eql 'digraph)) (vertex t))
   (successors *current-digraph* vertex))