!7

// manage an "unclear" list (one that varies by context),
// e.g. the list of known first names

srecord Entry(S name, S comment) {}

cmodule UnclearList > DynObjectTable<Entry> {
  switchable S description = "First names"; // plural of what we are storing

  // mech list that may contain useful items for us
  L<WithComment<S>> possibleMechLists = syncList();

  visual
    jhsplit(jCenteredSection("Current items", super),
      withCenteredButtons(
         jCenteredSection("Possible lists", dm_calculatedTextArea(() ->
            lines(possibleMechLists))),
            "Add...", rThreadEnter {
              dm_selectMechList("Mech list of " + description, voidfunc(S name) {
                addPossibleMechList(name, "") // TODO: comment
              });
            }, "Load all lists", rThreadEnter loadAllPossibleLists));

  start {
    dm_useFieldAsTitle description();
  }

  // API

  void addItem(S name, S comment) {
    add(new Entry(name, comment));
  }

  void removeItem(S name) {
    remove(objectWhere(list(), +name));
  }

  void addPossibleMechList(S name, S comment) {
    possibleMechLists.add(WithComment(comment, name));
    change();
  }

  Set<S> itemsSet() {
    ret collectAsCISet name(list());
  }

  void loadAllPossibleLists {
    Set<S> known = itemsSet();
    for (S listName : getAllVars(possibleMechLists))
      addAll(mapNonNulls(mL(listName), x -> known.contains(x) ? null
        : new Entry(x, "from " + quote(listName))));
  }
}