!7

p { useLocalMechListCopies(); }

html {
  uri = dropPrefix("/", uri);
  Pair<L<IfThen>, LS> p = ai_activeRulesAndFacts();
  L<IfThen> rules = p.a;
  LS facts = p.b;
  S ruleID = urldecode(uri);
  
  if (empty(uri)) {
    // Rule list
    
    ret h2_title(n2(rules, "rule") + " (showing first trigger)")
    + ul(map_pcall(reversed(rules), func(IfThen rule) {
      S s = ahref("/rules/" + urlencode(rule.globalID), htmlencode(rule.globalID));
      Exp e = nlLogic_firstCondition(rule);
      if (e != null)
        s += " - " + htmlencode(e);
      ret tt(s);
    }));
  }
    
  L<IfThen> found = filterByField(rules, globalID := ruleID);
  if (empty(found)) ret "Rule " + htmlencode(ruleID) + " not found";
  
  new StringBuilder buf;
  
  if (l(found) > 1)
    buf.append(p("Bad: Multiple rules for ID " + htmlencode(ruleID) + "."));
    
  for (IfThen rule : found) {
    buf.append(h2_title("Rule " + htmlencode(rule.globalID)));
    buf.append(hsourcecode(/*str(rule)*/ rule.originalText));
    if (ai_ruleDifferentFromOriginalText(rule)) {
      buf.append(h3("Loaded as"));
      buf.append(hsourcecode(str(rule)));
    }
    LS ruleFacts = stringsContaining(facts, ruleID);
    if (nempty(ruleFacts)) {
      buf.append(h3("Facts about this rule"));
      buf.append(hsourcecode(ruleFacts));
    }
  }
  
  ret buf;
}