!7

concept Rule > ConceptWithGlobalID {
  S text;
  S page; // markDown
  
  sS _fieldOrder = "text page globalID";
}

p { dbIndexing(Rule, 'globalID); }

html {
  uri = dropSlashPrefix(uri);
  
  if (eqic(uri, "admin")) {
    try object checkWebAuthed(params);
    ret new HCRUD(rawLink("admin"), new HCRUD_Concepts(Rule)
      .addRenderer(page := new HCRUD_Data.TextArea(80, 10))
    ).renderPage(params);
  }

  
  if (empty(uri))
    ret htitle_h1("Rules") + ul_noEncode(map(list(Rule), r -> ahref(rawLink(r.globalIDStr()), htmlEncode2(or2(r.text, "unnamed")))));
    
  if (possibleGlobalID(uri)) {
    Rule r = conceptWhere(Rule, globalID := GlobalID(uri));
    if (r == null) ret subBot_serve404("Rule not found");
    ret htitle_h1(r.text) + markDownToHTML(r.page);
  }
  
  ret subBot_serve404();
}