!7

concept Page {
  S url;
}

concept Entry {
  new Ref<Page> page;
}

p {
  dbIndexingCI(Page, 'url);
}

html {
  S url = domain() + dropTrailingSlash(uri);
  Pair<Page, Bool> pageAndNew = uniqCI2_sync(Page, +url);
  
  if (eqicOneOf(url, "agi.blue", "www.agi.blue"))
    ret hhtml(hhead_title("agi.blue Overview")
      + hbody(h1("agi.blue Overview")
        + ul_htmlencode(collect url(list(Page)))
      ));
      
  ret hhtml(
    hhead_title(url)
    + hbody_fullcenter(
      h1(htmlEncode2(url))
      + p(pageAndNew.b ? "NEW!" : "seen before.")));
}