REBOL [ Title: "HTML calendar" Date: 3-Dec-2003 Author: "Bohdan Lechnowsky" File: %html-calendar.r Purpose: { Creates an HTML file containing the current calendar month and displays it in the browser } Library: [ level: 'intermediate platform: 'all type: [] domain: [html web] tested-under: none support: none license: none see-also: none ] ] date: now/date colwidth: 100 dayrowcol: "806080" daytextcol: "FFFFFF" wkendcol: "FFCCCC" wkdaycol: "FFFFFF" notthismonthcol: "808080" outfilename: %month.html html: copy rejoin [{}] days: head remove back tail insert head copy system/locale/days last system/locale/days foreach day days [ append html rejoin [{}] ] append html {} sdate: date sdate/day: 0 loop sdate/weekday // 7 + 1 [append html {}] while [sdate/day: sdate/day + 1 sdate/month = date/month][ append html rejoin [ {} ] if sdate/weekday = 6 [append html {}] ] loop 7 - sdate/weekday [append html rejoin [{}]] append html {
} pick system/locale/months date/month { } date/year {
} copy/part day 3 {
} sdate/day {
} write outfilename html browse outfilename