!7

delegate AbstractParser, ParseResult, DefaultParseResult,
  DefaultParserNotice
  to org.fife.ui.rsyntaxtextarea.parser.
  
import org.fife.ui.rsyntaxtextarea.RSyntaxDocument;

sclass MyParser extends AbstractParser {
  @Override
  public ParseResult parse(RSyntaxDocument doc, String style) ctex {
    print("Parsing");
    var result = new DefaultParseResult(this);
    S text = doc.getText(0, doc.getLength());
    print(+text);
    S firstLine = firstLine(text);
    if (l(firstLine) > 1)
      result.addNotice(new DefaultParserNotice(this, "What?", 0, 0, l(firstLine)-1));
    ret result;
  }
}

p-exp {
  RSyntaxTextAreaWithSearch ta = rSyntaxTextAreaWithSearch();
  ta.menuLessOperation();
  new MyParser parser;
  ta.textArea().addParser(parser);
  
  // You can also call ta.textArea().forceReparsing(parser);
  
  showFrame(ta);
}