!7

concept GModule {
  S moduleID, moduleLibID;
  S userID; // e. g. discord user id
  S userName;
  S shorthand;
}

cmodule GModulesManager > DynCRUD<GModule> {
  // API
  
  S startModuleForUser(S moduleLibID, S userID, S userName, S shorthand, O... _) {
    Pair<GModule, Bool> p = uniqConcept2(+userID, +shorthand);
    if (!p.b) ret "Module already running";
    cset(p.a, +userName, +moduleLibID);
    print("Starting module: " + moduleLibID);
    cset(p.a, moduleID := dm_makeNewModule(moduleLibID));
    S answer = cast dm_callOpt(p.a.moduleID, 'initialAnswer, (O) _);
    if (nempty(answer)) ret answer;
    ret print("Module " + moduleLibID + " started for " + userName + " as " + quote(shorthand));
  }
  
  S deleteAllModulesForUser(S userID) {
    L<GModule> l = conceptsWhere GModule(+userID);
    if (empty(l)) ret "No modules loaded";
    deleteConcepts(mod);
    ret n2(l, "Module") + " deleted";
  }
  
  S deleteModuleForUser(S userID, S shorthand) {
    GModule mod = conceptWhere GModule(+userID, +shorthand);
    if (mod == null) ret "Module not found";
    deleteConcept(mod);
    ret "Module deleted";
  }
  
  void removeModule(O mod) {
    deleteConcept(conceptWhere GModule(moduleID := dm_moduleID(mod)));
  }
  
  LS modulesForUser(S userID) {
    ret collect moduleID(conceptsWhere GModule(+userID));
  }
}