;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
;;; $Header: dojo/tests/djcalendar-tests.lisp $

;;; Copyright (c) 2008, Andrea Chiumenti.  All rights reserved.

;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
;;; are met:

;;;   * Redistributions of source code must retain the above copyright
;;;     notice, this list of conditions and the following disclaimer.

;;;   * Redistributions in binary form must reproduce the above
;;;     copyright notice, this list of conditions and the following
;;;     disclaimer in the documentation and/or other materials
;;;     provided with the distribution.

;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
;;; ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

(in-package :claw-dojo-tests)

(defgeneric djcalendar-page-null-action (page))

(defclass djcalendar-page (page)
  ((cal1 :initarg :cal1
         :accessor djcalendar-page-cal1)
   (cal2 :initarg :cal2
         :accessor djcalendar-page-cal2)
   (cal3 :initarg :cal3
         :accessor djcalendar-page-cal3)
   (cal4 :initarg :cal4
         :accessor djcalendar-page-cal4)
   (cal-local :initarg :cal-local
              :accessor djcalendar-page-cal-local))
  (:default-initargs :cal1 (local-time:now) :cal2 (local-time:now)
                     :cal3 (local-time:now)
                     :cal4 (local-time:now)
                     :cal-local (local-time:now)))

(defmethod djcalendar-page-null-action ((o djcalendar-page)))

(defmethod page-content ((o djcalendar-page))
  (let ((lang (djuser-locale))
        (dates-container-id (generate-id "datesContainer")))
    (site-template> :title "dojo calendar test page"
                    :djconfig (format nil "extraLocale:['en-us','es-es', 'ar-sy', 'zh-cn', '~a']" lang)
                    (djform> :id "theForm" :update-id (list dates-container-id)
                             (div> :static-id dates-container-id
                                 (p>
                                  (h1> "en-en" " encoding")
                                  (djdate-text-box> :id "cal" :lang "en-us"
                                               :accessor 'djcalendar-page-cal1)
                                  (span> (translator-value-type-to-string *date-translator-ymd* (djcalendar-page-cal1 o))))
                                 (p>
                                  (h1> "es-es" " encoding")
                                  (djdate-text-box> :id "cal" :lang "es-es"
                                               :accessor 'djcalendar-page-cal2)
                                  (span> (translator-value-type-to-string *date-translator-ymd* (djcalendar-page-cal2 o))))
                                 (p>
                                  (h1> "zh-cn" " encoding")
                                  (djdate-text-box> :id "cal" :lang "zh-cn"
                                               :accessor 'djcalendar-page-cal3)
                                  (span> (translator-value-type-to-string *date-translator-ymd* (djcalendar-page-cal3 o))))
                                 (p>
                                  (h1> "ar-sy" " encoding")
                                  (djdate-text-box> :id "cal" :lang "ar-sy"
                                               :accessor 'djcalendar-page-cal4)
                                  (span> (translator-value-type-to-string *date-translator-ymd* (djcalendar-page-cal4 o))))
                                 (p>
                                  (h1> "Local encoding")
                                  (djdate-text-box> :id "cal" :lang lang
                                               :accessor 'djcalendar-page-cal-local)
                                  (span> (translator-value-type-to-string *date-translator-ymd* (djcalendar-page-cal-local o)))))
                             (p>
                              (djsubmit-button> :id "submitDates" :value "Submit dates"))))))

(lisplet-register-page-location *dojo-test-lisplet* 'djcalendar-page "djcalendar.html")