cl-rw

Layered streams for Common Lisp
git clone https://logand.com/git/cl-rw.git/
Log | Files | Refs

commit 82dbf5e56e44fde947578af90e38f231a5b5d2e5
parent 420d09bfb581b98415ec60f75cf98f9da2f6ae67
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 15 Sep 2013 17:31:46 +0200

fix rw.calendar ref

Diffstat:
Mui.lisp | 13+++++++------
1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/ui.lisp b/ui.lisp @@ -661,7 +661,7 @@ X | X | X" (defun calendar-widget (year month &key (first-weekday 0) (show-weeks t)) (lambda () - (let ((weeks (when show-weeks (week-generator year month)))) + (let ((weeks (when show-weeks (rw.calendar::week-generator year month)))) `((:table :style "font-family:monospace") (:tr ,@(when weeks '((:td ""))) @@ -672,7 +672,7 @@ X | X | X" (decf y) (setq m 12)) (link "<" (lambda () (setq year y month m)))) - " " ,(pretty-month month) " " + " " ,(rw.calendar::pretty-month month) " " , (let ((y year) (m (1+ month))) (when (< 12 m) @@ -689,13 +689,14 @@ X | X | X" (:tr ,@(when weeks '((:td "  "))) ,@(loop - with g = (weekday-generator first-weekday) + with g = (rw.calendar::weekday-generator first-weekday) for i from 0 below 7 for n = (funcall g) - collect `((:td :style (:style :color ,(when (weekend n) "red"))) - ,(pretty-day n)))) + collect `((:td :style + (:style :color ,(when (rw.calendar::weekend n) "red"))) + ,(rw.calendar::pretty-day n)))) ,@(loop - with g = (day-generator year month first-weekday) + with g = (rw.calendar::day-generator year month first-weekday) for i from 0 below 6 collect `(:tr ,@(when weeks `(((:td :align "right") ,(funcall weeks))))