Personal Calendar

This is a personal calendar, crafted by Azog. It shows the current and next week! Once installed, you'll use the command +cal to use it!

Step One: Copy and Paste

Copy and paste the following:

&do_calendar me=$+cal:think setq(1,extract(time(),3,1))[setq(2,switch(extract(time(),1,1),Sun,1,Mon,2,Tue,3,Wed,4,Thu,5,Fri,6,Sat,7))]%r[ansi(u,|Sun|Mon|Tue|Wed|Thu|Fri|Sat|)][setq(3,sub(%q1,sub(%q2,1)))]%r[parse(0 1 2 3 4 5 6,|[ifelse(eq(add(%q3,##),%q1),ifelse(lt(add(%q3,##),1),XX,ansi(i,rjust(add(%q3,##),2))),ifelse(lt(add(%q3,##),1),XX,rjust(add(%q3,##),2)))])] |%R[parse(7 8 9 10 11 12 13,|[rjust(add(%q3,##),2)])] |

Step Two: Check Your PC Object

Type b me. You'll want to... (to be finished, Lah)

Thanks, Azog!