!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);
  ret hhtml(
    hhead_title(url)
    + hbody_fullcenter(
      h1(htmlEncode2(url))
      + p(pageAndNew.b ? "NEW!" : "seen before.")));
}