class PxGraphViz

# File lib/pxgraphviz.rb, line 30
def initialize(obj=nil, style: nil, debug: false, fill: '#778833', 
               stroke: '#999999', text_color: '#ffeecc')

  if obj then

    s = RXFHelper.read(obj).first
    @doc = import_string(s)

    puts 'pxgraphviz: before super'.info if debug

    super(@doc, debug: debug, fill: fill, 
                stroke: stroke, text_color: text_color)
    
  end
  
  @css = "
    .node polygon {stroke: #{stroke}; fill: #{fill}}
    .node text {fill: #{text_color}}
    .edge path {stroke: #{stroke}}
    .edge polygon {stroke: #{stroke}; fill: #{stroke}}
  "
  
end

# File lib/pxgraphviz.rb, line 54
def import(s)
  s2 = RXFHelper.read(s).first
  @doc = import_string s2
  @g = build_from_nodes Domle.new(@doc.root.xml)
  self
end

# File lib/pxgraphviz.rb, line 64
  def default_stylesheet()

<<STYLE
  node { 
    color: #ddaa66; 
    fillcolor: #{@fill};
    fontcolor: #{@text_color}; 
    fontname: 'Trebuchet MS';
    fontsize: 8; 
    margin: 0.0;
    penwidth: 1; 
    style: filled;
    shape: #{@shape}; 
  }
  
  a node {
    color: #0011ee;   
  }

  edge {
    arrowsize: 0.5;
    color: #{@stroke}; 
    fontcolor: #444444; 
    fontname: Verdana; 
    fontsize: 8; 
    #{@type}
    weight: 1;
  }
STYLE

  end

# File lib/pxgraphviz.rb, line 99
  def import_string(s)

    @px = if s =~ /<\?pxgraphviz\b/ then
      
header = "<?polyrex schema='items[type, shape]/item[label, connection]' delimiter =' # '?>
type: digraph
shape: box    
"
      s2 = s.slice!(/<\?pxgraphviz\b[^>]*\?>/)

      if s2 then
        
        attributes = %w(id fill stroke text_color).inject({}) do |r, keyword|
          found = s2[/(?<=#{keyword}=['"])[^'"]+/]
          found ? r.merge(keyword.to_sym => found) : r
        end
        
      fill, stroke, text_color = %i(fill stroke text_color).map do |x|
        attributes[x] ? attributes[x] : method(x).call
      end
      
      @css = "
        .node ellipse {stroke: #{stroke}; fill: #{fill}}
        .node text {fill: #{text_color}}
        .edge path {stroke: #{stroke}}
        .edge polygon {stroke: #{stroke}; fill: #{stroke}}
      "      
        
      end 
      s3 = header + s
      puts 's3: ' + s3.inspect if @debug
      Polyrex.new.import(s3)
      
    else
      
      Polyrex.new(s)
      
    end    

    @type = @px.summary[:type] == 'digraph' ? 'dir: forward;' : 'dir: none;'
    @shape = @px.summary[:shape] || 'ellipse;'
    
    @style ||= default_stylesheet()
    doc = Rexslt.new(xslt_stylesheet(), @px.to_xml)\
        .to_doc.root.element('nodes')
    
    doc.root.elements.first.insert_before Rexle::Element.new('style')\
        .add_text @style
    
    doc
    
  end

# File lib/pxgraphviz.rb, line 152
  def xslt_stylesheet()
    
<<XSLT    
<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<xsl:output method="xml" indent="yes" />

  <xsl:template match='items'>
    <xsl:element name="nodes">
      <xsl:if test="summary/type">
        <xsl:attribute name="type">
          <xsl:value-of select="summary/type"/>
        </xsl:attribute>
      </xsl:if>
      <xsl:if test="summary/direction">
        <xsl:attribute name="direction">
          <xsl:value-of select="summary/direction"/>
        </xsl:attribute>
      </xsl:if>
      <xsl:if test="summary/layout">
        <xsl:attribute name="layout">
          <xsl:value-of select="summary/layout"/>
        </xsl:attribute>
      </xsl:if>
      <xsl:apply-templates select='records'/>
    </xsl:element>
  </xsl:template>

  <xsl:template match='records/item'>

    <xsl:choose>
      <xsl:when test="summary/url and summary/url != ''">

        <xsl:element name="a">
          <xsl:attribute name="href">
            <xsl:value-of select="summary/url"/>
          </xsl:attribute>   
          <xsl:call-template name='node'/>
        </xsl:element>

      </xsl:when>
      <xsl:otherwise> 

        <xsl:call-template name='node'/>

      </xsl:otherwise>

    </xsl:choose>
  </xsl:template>

  <xsl:template match='item/summary'>

      <label><xsl:value-of select='label'/></label>

  </xsl:template>

  <xsl:template name='node'>
     <xsl:element name="node">
    
      <xsl:attribute name="shape">
        <xsl:value-of select="summary/shape"/>
      </xsl:attribute>
      
      <xsl:if test="summary/id">
        <xsl:attribute name="id">
          <xsl:value-of select="summary/id"/>
        </xsl:attribute>
      </xsl:if>
    
      <xsl:if test="summary/class">
        <xsl:attribute name="class">
          <xsl:value-of select="summary/class"/>
        </xsl:attribute>
      </xsl:if>
      
      <xsl:if test="summary/connection">
        <xsl:attribute name="connection">
          <xsl:value-of select="summary/connection"/>
        </xsl:attribute>
      </xsl:if>    
    
      <xsl:apply-templates select='summary'/>
      <xsl:apply-templates select='records'/>

    </xsl:element>  
  </xsl:template>

</xsl:stylesheet>
XSLT
  end