!7

concept Scenario {
  S name;
  LS conditions;
  LS actions;

  toString { ret "Scenario " + quote(name); }
}

cmodule Scenarios > DynCRUD<Scenario> {
  transient Scenario selected;
  new L<UndoableWithAnswer> undoList;

  Scenario findConceptWithName(S name) {
    ret conceptWhereCI Scenario(+name);
  }
  
  S answer(S s) {
    ret dm_q(() -> {
      print("answering: " + s);
      new Matches m;

      // undo actions
      
      if "undo" ret singleUndo();
      if "anything to undo"
        ret empty(undoList) ? "Nothing to undo" : n2(undoList, "undoable action");
      if "clear undos" ret "OK" with clearUndos();

      // scenario actions
      
      if "how many scenarios"
        ret str(countConcepts(Scenario));
      if "delete scenario *" {
        S name = $1;
        setField(selected := null);
        Scenario sc = findConceptWithName(name);
        if (sc == null)
 ret format("Scenario * not found", name);
        unregisterConcept(sc);
        addUndo(new UndoDeleteConcept(sc));
        ret format("Scenario * deleted", name);
      }
      if "new scenario *" {
        S name = $1;
        Scenario sc = conceptWhereCI Scenario(+name);
        if (sc != null)
          ret format("Scenario * exists", name);
        setField(selected := uniqCI Scenario(+name));
        addUndo(new UndoCreateConcept(selected.id));
        ret format("Scenario * created", name);
      }
      if "list scenarios"
        ret or2(joinWithComma(collect name(list(Scenario))), "No scenarios defined");
      if "rename scenario * to *" {
        S name1 = $1, name2 = $2;
        if (!eqic(name1, name2)
          && conceptWhereCI Scenario(name := name2) != null)
          ret format("A scenario named * exists", name2);
        Scenario sc = findConceptWithName(name1);
        if (sc == null)
          ret format("Scenario * not found", name1);
        addUndo(new UndoSetConceptField(sc.id, 'name, name1, name2));
        cset(sc, name := name2);
        ret format("Scenario * renamed to *", name1, name2);
      }

      null;
    });
  }

  void addUndo(UndoableWithAnswer undo) {
    if (undo == null) ret;
    undoList.add(undo);
    change();
    print("Undo added: " + undo);
  }

  afterVisualize {
    addComponent(crud.buttons, jbutton("Talk to me", rThread talkToMe));
  }

  void talkToMe enter { dm_showConversationPopupForModule(); }

  void clearUndos q {
    if (empty(undoList)) ret;
    undoList.clear();
    change;
    print("Undo list cleared");
  }

  S singleUndo() {
    UndoableWithAnswer undo = popLast(undoList);
    if (undo == null) ret "Nothing to undo";
    change();
    ret or2(undo.undo(), "Last action undone");
  }

  // API

  UndoableWithAnswer lastUndo() {
    ret dm_q(() -> last(undoList));
  }
}

Began life as a copy of #1027443