!7

cmodule GListMaker > DynObjectTable<S> {
  bool active = true;
  S globalID = aGlobalID();
  
  start {
    onChange(r { saveStructFile(javaxDataDir("User Lists/" + aGlobalID() + ".txt"), clonedList()); });
  }
  
  S answer(S s) {
    if (!active) null;
    if "list done|done" {
      dm_call(dm_gazelle_modulesManager(), 'removeModule, this);
      ret "Okidoki! Here's the final list with " + n_entries(count()) + ", saved as " + globalID + "):\n" + joinWithComma(list());
    }
    new Matches m;
    if "add ..." {
      if (contains($1)) ret $1 + " is already on the list!";
      add($1);
      ret $1 + " added to list. Now " + n_entries(count()) + ".";
    }
    if "remove ..." {
      LS list = list();
      int i = indexOfIC(list, $1);
      if (i < 0) ret $1 + " is not on the list anyway.";
      S item = list.get(i);
      remove(item);
      ret $1 + " removed from list!. Now " + n2(list(), "entry", "entries") + ".";
    }
    if "what's the list|list"
      ret empty(list()) ? "Your list is empty." : joinWithComma(list());
    null;
  }

  // API

  bool contains(S s) { ret cic(list(), s); }
}