!7

set flag alwaysSetGlobalIDs.

concept Script > ConceptWithGlobalID {
  S keywords; // comma-separated
  S text;
  S comments;
  //S meta;
  //L uses;
  double score;

  LS keywords() { ret tok_splitAtComma(keywords); }
  
  sS _fieldOrder = "keywords text comments";
}

cmodule ScriptFinder > DynCRUD<Script> {
  SimpleCRUD<Script> makeCRUD() {
    ret setAll(super.makeCRUD(), multiLineFields := litset('text),
      excludeFieldsFromEditing := litset('globalID));
  }

  start {
    dm_registerAs_direct philosophyBot_scriptFinder();
  }

  afterVisualize {
    addComponent_inFront(crud.buttons, jbutton("Extract keywords", rThread {
      extractKeywords(selected());
    }));
  }

  void extractKeywords(Script s) {
    if (s == null) ret;
    cset(s, keywords := joinWithComma(wordsWithoutWeakWords(s.text)));
  }
  
  // API

  L<Script> getScriptsForKeywords(Cl<S> keywords) {
    Set<S> keywordSet = asCISet(keywords);
    ret sortedByScoreFunction_withoutZero(list(),
      s -> l(setIntersection(keywordSet, asCISet(s.keywords()))));
  }
}