cl-rw

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

fix rw.calendar ref

Diffstat:
M
ui.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))))