!7

sclass FollowUp > DynModule {
  start {
    dm_useLocalMechListCopies();
  }
  
  visualize {
    final Set<S> followUps = asHashSet(map dropLeadingHash(extractSingleStarMatches("* is a follow-up message",
      concatLists(mL("Facts about Telegram messages"), lines((S) call(dm_get_newFacts(), 'text))))));
      
    new L<L> data;
    for (TelegramMsg msg : serverTelegramLog())
      if (nempty(msg.globalID))
        data.add(ll(msg.globalID, escapeNewLines(msg.text), followUps.contains(msg.globalID)));
        
    final L<S> cols = ll("Global ID", "Text", "Is Follow-Up");
    
    final JTable table = sexyTable();
    Pair<Object[][], O[]> p = fillTableWithData_makeData(data, cols);
    setTableModel(table, new DefaultTableModel(p.a, p.b) {
      public Class getColumnClass(int column) {
        return or(_getClass(getValueAt(0, column)), S.class);
      }
      
      public bool isCellEditable(int rowIndex, int columnIndex) {
        ret columnIndex == l(cols)-1;
      }
    });
    onTableChanged(table, voidfunc(final TableModelEvent e) {
      thread {
        O facts = dm_require_newFacts();
        int i = e.getFirstRow(), j = e.getLastRow();
        print(i + "/" + j);
        for (; i <= j; i++) {
          bool b = isTrue(print(rawCellData(table, i, l(cols)-1)));
          S id = (S) rawCellData(table, i, 0);
          call(facts, 'add, "#" + id + " is " + (b ? "a" : "not a") + " follow-up message");
          call(facts, 'remove, "#" + id + " is " + (!b ? "a" : "not a") + " follow-up message");
        }
      }
    });
    ret table;
  }
}