Personal Calendar
Revision as of 18:18, 6 January 2013 by MediaWiki default (talk | contribs) (Created page with "To use, 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))]%...")
To use, 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)])] |
You'll use the command +cal to use it!
Thanks, Azog!