!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(withCenteredButtons(
        jCenteredSection("Current items", super),
        "Clear", rThreadEnter { quickBackup(); clear(); },
        "Add...", rThreadEnter {
          JTextField tfName = jTextField();
          JTextField tfComment = jTextField();
          
          showFormTitled("Add " + itemDesc(),
            itemDesc(), tfName,
            "Comment", tfComment,
            r { addItem(gtt(tfName), gtt(tfComment)) })
        },
        "Copy to clipboard", rThreadEnter { copyTextToClipboard(lines(collect name(list()))) },
        jPopDownButton_noText(
          "Edit...", rThreadEnter {
            Entry e = selected();
            if (e == null) ret;
            JTextField tfName = jTextField(e.name);
            JTextField tfComment = jTextField(e.comment);
            
            showFormTitled("Edit " + itemDesc(),
              itemDesc(), tfName,
              "Comment", tfComment,
              r { e.name = gtt(tfName); e.comment = gtt(tfComment); fireDataChanged(); });
          },
          "Delete", rThreadEnter { remove(selected()) },
          "Copy to clipboard as paragraphs", rThreadEnter { copyTextToClipboard(joinWithEmptyLines(collect name(list()))) },
          "Upload as list...", rThreadEnter uploadAsList)
        ),
      withCenteredButtons(
         jCenteredSection("Possible lists", dm_calculatedTextArea(() ->
            lines(possibleMechLists))),
            "Clear", rThreadEnter { quickBackup(); possibleMechLists.clear(); change(); },
            "Add...", rThreadEnter {
              dm_selectMechList("Mech list of " + description, voidfunc(S name) {
                addPossibleMechList(name, "") // TODO: comment
              });
            }, "Load all lists", rThreadEnter loadAllPossibleLists));

  start {
    dm_useFieldAsTitle description();
    dm_vmBus_answerToMessage unclearListModuleOf(
      func(S type) -> S { eqic(type, description) ? dm_moduleID(module()) : null });
  }

  void uploadAsList {
    inputText("List name to upload to", voidfunc(S listName) {
      if (empty(listName = trim(listName))) ret;
      infoBox(editMechList(listName, lines(collect name(list()))));
    });
  }
  
  // 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))));
  }

  S itemDesc() { ret singular(description); }

}