!7

static Web web;
static Canvas canvas;
static IVar<Int> thinkAheadDays = new Var(7); // now including today
static new Var<CirclesAndLines> cal;

svoid initWeb { web.node("Today"); }

p-subst {
  thinkAheadDays = persistentVar("Think ahead this many days", thinkAheadDays!);
  web = persistentObject("Web", Web);
  web.useCLParse = false;
  web.onNewLabel.add(voidfunc(WebNode node, O label) {
    processNode(node);
    change();
  });
  initWeb();
  
  cal.set(webToCAL(web));
  canvas = showCAL(cal!, 650, 450);
  calAddAutoLayoutSwitch(cal, canvas, voidfunc(CALSpringLayout layout) {
    layout.desiredLength = 0.25;
  }, true);
  calcOnConceptChanges(1000, r { webToCAL(web, cal!, canvas) }, false);
  botWithCommandList("Current Day.");
}

answer {
  if "clear" { web.clear(); initWeb(); ret "OK"; }
  if "make days" { makeDays(); ret "OK"; }
  if "make * days" { thinkAheadDays.set(parseInt($1)); makeDays(); ret "OK"; }
}

sS dayName(int n) { ret n == 1 ? "Tomorrow" : "In " + n + " days"; }

svoid makeDays {
  WebNode day = web.node("Today");
  Calendar now = Calendar.getInstance();
  addDate(day, now);
  
  for (int n = 1; n < thinkAheadDays!; n++) {
    day = web_followOrMakeForwardRelation(day, "Next day", dayName(n));
    now.add(Calendar.DATE, 1);
    addDate(day, now);
  }
}

svoid addDate(WebNode day, Calendar now) {
  S date = englishMonthName(now.get(Calendar.MONTH)+1) + " " + now.get(Calendar.DAY_OF_MONTH);
  S origDate = web_stringLabel(day, 1);
  if (notNullAndDifferent(origDate, date)) fail();
  day.addLabel(date);
}

svoid processNode(WebNode node) {}