!7

cmodule SimpleWikipediaSentences > DynTableWithInput<S> {
  S topic;
  
  afterVisualize {
    tablePopupMenuItem(table(), "Ignore", rThread ignoreLine);
  }
  
  void update(S topic) {
    topic = trim(topic);
    setField(+topic);
    setModuleName(topic + " - Simple Wikipedia");
    setData(simpleWikipedia_sentencesForTopic(topic));
  }
  
  void ignoreLine {
    int i = selectedIndex();
    S line = selected();
    if (line == null) ret;
    LS context = subList(data(), 0, i);
    LS comments = ll(
      "out = action", 
      "from simple wikipedia topic " + optQuote(topic),
      "previous lines = " + quote(lines_rtrim(context)));
    dm_gazelle_addRuleWithComment(line + "\n=> ignore", lines_rtrim(comments));
  }
}