// design by Kriti Shankar Senapati
sclass HtitledSection {
  S titleHTML;
  S backgroundColor = "#fff";
  S labelStyle = "width: auto; float: top; position: relative; top: -.6em; left:15px; background-color: " + backgroundColor;
  S innerDivID;
  S innerDivStyle;
  S innerDivClass;
  S outerDivClass;
  new MapSO outerDivParams;
  new MapSO innerDivParams;
  O contents;
  
  *() {}
  *(S *titleHTML) {}
  *(S *titleHTML, O *contents) {}
  
  S html() {
    outerDivParams.put("data-section", htmlDecode_dropTags(titleHTML));
    
    ret div(
      tag label(b(" " + titleHTML + " "), style := labelStyle)
    + div(contents,
      paramsPlus(params_plusHTMLClass(
        params_stylePlus(innerDivParams,
          joinNemptiesWithSemicolon(innerDivStyle, "padding-left: 15px")),
        joinNemptiesWithSpace("sectionContents", innerDivClass)),
        id := innerDivID)),
      params_stylePlus("border: 2px solid",
        params_plusHTMLClass(outerDivParams, outerDivClass)));
  }
}

Began life as a copy of #1030189