63712529f020

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

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