;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
;;; $Header: dojo/src/djlink.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 :dojo)

(defclass djaction-link (action-link djwidget) 
  ((update-id :initarg :update-id
	      :reader update-id
	      :documentation "A list of the component id to update"))
  (:metaclass metacomponent)
  (:documentation "Class that extends ACTION-LINK to handle XHR requests.")
  (:default-initargs :dojo-type "dijit.form.Form" :update-id ()))

(defmethod wcomponent-template((o djaction-link))
  (let ((client-id (htcomponent-client-id o)))
    (a> :static-id client-id
	:href "#"
	(wcomponent-informal-parameters o)
	(htcomponent-body o))))


(defmethod htcomponent-instance-initscript((obj djaction-link))
  (let ((id (htcomponent-client-id obj))
	(page-url (page-url (htcomponent-page obj)))
	(update-id-list (update-id obj)))
    (ps* 
     `(dojo.connect (dojo.by-id ,id) 
                    "onclick"
                    (lambda (e) (progn 
                                  (e.prevent-default)
                                  (dojo.xhr-post (create :url ,page-url
                                                        :load (lambda (data) (claw.update-and-eval data))
                                                        :error (lambda (data) (console.error data))
                                                        :timeout 2000
                                                        :handle-as "json"
                                                        :content (create :json (array ,update-id-list)
                                                                         ,*rewind-parameter* ,id)))))))))