!7

cmodule OntologyWebServer > DynPrintLog {
  start-thread {
    dm_serveHttpFromFunction(8089, func(S uri, SS params) {
      L l = cast dm_call(dm_ontologyBot(), 'concepts);
      ret h1_title("Ontologyyyy (" + nEntries(l) + ")")
        + nlToBr(lines(map(l, entry ->
            linkEntity(getString a(entry)) + " " +
            htmlEncode2((S) call(l, 'linkPhrase)) + " " +
            linkEntity(getString b(entry)))));
    });
  }
  
  S linkEntity(S name) {
    ret ahref("/" + urlencode(name), htmlEncode2(name));
  }
}