use witness sigil as graph node ID in SVG display

diff --git a/analysis/lib/Text/Tradition/Stemma.pm b/analysis/lib/Text/Tradition/Stemma.pm
index 0152455..3427029 100644 (file)
--- a/analysis/lib/Text/Tradition/Stemma.pm
+++ b/analysis/lib/Text/Tradition/Stemma.pm
@@ -266,14 +266,11 @@ sub as_dot {
 
        # Add each of the nodes.
     foreach my $n ( $graph->vertices ) {
+       my %vattr = ( 'id' => $n );  # Set the SVG element ID to the sigil itself
         if( $graph->has_vertex_attribute( $n, 'label' ) ) {
-               my $ltext = $graph->get_vertex_attribute( $n, 'label' );
-               push( @dotlines, _make_dotline( $n, 'label' => $ltext ) );
-        } else {
-               # Use the default display settings.
-               $n = _dotquote( $n );
-            push( @dotlines, "  $n;" );
+               $vattr{'label'} = $graph->get_vertex_attribute( $n, 'label' );
         }
+               push( @dotlines, _make_dotline( $n, %vattr ) );
     }
     # Add each of our edges.
     foreach my $e ( $graph->edges ) {