!7

static Web web;
static Canvas canvas;
static IVar<Int> thinkAheadDays = new Var(7);
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);
    double desiredLength = 0.3;
  calAddAutoLayoutSwitch(cal, canvas, voidfunc(CALSpringLayout layout) {
    layout.desiredLength = 0.08;
  }, true);
  calcOnConceptChanges(1000, r {
    CirclesAndLines oldCAL = cal!;
    cal.set(webToCAL(web));
    canvas = showCAL_2(oldCAL, cal!, canvas);
  }, false);
  botWithCommandList("Current Day.");
}

answer {
  if "make days" { 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) { if (node.hasLabel("Day")) processDay(node); }
svoid processDay(WebNode day) {
  web_copyForwardRelations(web, "Every day", day, "I should");
}