!7

sclass Entry {
  long msgID;
  S originalLine;
  S groupedText;

  sS _fieldOrder = "msgID originalLine groupedText";
}

set flag DynModule.

cmodule GroupedChatLines > DynObjectTable<Entry> {
  start {
    addCountToName();
    thread { scan(); }
  }
  
  visualize {
    ret withCenteredButtons(super.visualize(), "Scan", rThread scan);
  }
  
  void scan enter {
    new L<Entry> list;
    new Flag interrupted;
    temp AutoCloseable action = dm_currentAction("Scanning chat", rRaiseFlag(interrupted));
    L<GazelleLine> lines = dm_discord_allLines();
    int i = 0;
    for (GazelleLine line : reversed(lines)) {
      ++i;
      if (!licensed() || interrupted!) break;
      S groupedText = join(phraseCache_group(gazelle_phraseCache_cached(), line.text));
      if (neq(groupedText, line.text))
        list.add(nu Entry(
          originalLine := line.text,
          msgID := line.msgID,
          +groupedText));
      call(action, 'setText, "Found " + n2(list, "grouping") + ", scanned " + i + "/" + n2(lines, "line"));
    }
    setList(list);
  }
}