!7

/* style def
<style:style style:name="gr3" style:family="graphic" style:parent-style-name="standard">
  <style:graphic-properties draw:marker-start="Arrow" draw:marker-start-width="0.3cm" draw:marker-end="Arrow" draw:marker-end-width="0.3cm" draw:textarea-vertical-align="middle"/>
</style:style>
*/

// text shape
// <draw:custom-shape draw:style-name="gr1" draw:text-style-name="P2" draw:layer="layout" svg:width="2.794cm" svg:height="2.032cm" svg:x="8.843cm" svg:y="20.685cm"  

p {
  S xml = loadSnippet(#1009178);
  L<S> tok = htmlTok(xml);
  
  // load styles
  for (L<S> tag : findContainerTag(tok, "style:style")) {
    S style = xml_getArg(tag, "style:name");
    S props = findTag(tag, "style:graphic-properties");
    S start = xml_getArg(props, "draw:marker-start");
    S end = xml_getArg(props, "draw:marker-end");
    print("Style " + style + " arrow? " + start + " - " + end);
  }
  
  for (L<S> tag : findContainerTag(tok, "draw:custom-shape")) {
    S style = xml_getArg(tag, "draw:style-name");
    DoubleRect rect = libreOffice_rect(tag);
    print("\nCustom shape, style=" + style + ", rect: " + rect);
    print("  " + join(tag));
    pnl(libreOffice_textP(tag));
  }
  
  for (L<S> tag : findContainerTag(tok, "draw:line")) {
    S style = xml_getArg(tag, "draw:style-name");
    DoublePt pt1 = libreOffice_pt1(tag);
    DoublePt pt2 = libreOffice_pt2(tag);
    print("\nLine, style=" + style + ", pt1: " + pt1 + ", pt2: " + pt2);
    print("  " + join(tag));
    pnl(libreOffice_textP(tag));
  }
}