!7

cmodule OntologyWebServer > DynPrintLog {
  start-thread {
    dm_serveHttpFromFunction(8089, func(S uri, SS params) {
      uri = dropPrefix("/", uri);
      if (nempty(uri))
        ret serveEntity(uri, params);
      L l = cast dm_call(dm_ontologyBot(), 'concepts);
      ret h1_title("Ontologyyyy (" + nEntries(l) + ")")
        + renderEntries(l);
    });
  }
  
  S renderEntries(L<virtual Entry> entries) {
    ret nlToBr(lines(map(l, entry ->
      linkEntity(getString a(entry)) + " " +
      htmlEncode2((S) call(entry, 'linkPhrase)) + " " +
      linkEntity(getString b(entry)))));
  }
  
  S serveEntity(S entity, SS params) {
    L l = dm_call(dm_ontologyBot(), 'searchForAny, entity);
    ret h1_title("Entity: " + htmlEncode2(entity))
      + (empty(l) ? "Nothing known about " + b(htmlEncode2(entity))
        : renderEntries(l));
  }
  
  S linkEntity(S name) {
    ret ahref("/" + urlencode(name), htmlEncode2(name));
  }
}