(in-package :com.tee-it-up-golf.web)

;; Show Viewer

(defcomponent item-viewer ()
  ((item :initarg :item :accessor viewer-item)))

(defgeneric render-item (item-viewer item)
  (:documentation "Render item contained within item-viewer"))

(defmethod render ((self item-viewer))
  (render-item self (viewer-item self)))

(defmethod render-item ((viewer item-viewer) (item null))
  (declare (ignore viewer item))
  (<:as-html "No Item"))

;; Show Selector

(defcomponent item-selector (item-viewer)
  ((full-viewer-class :initarg :viewer-class :initform 'item-viewer
		      :accessor viewer-class)))

(defgeneric render-item-for-select (item-selector item)
  (:documentation "Render item for being selected. This should wrap
  the object in a link, add controls, etc. to invoke the viewer-class
  of the item-selector."))
(defgeneric render-item-in-select (selector)
  (:documentation "Calls the primary method of render-item when it
  must be used within render-item-for-select."))

(defmethod render-item-in-select ((selector item-selector))
  (declare (special *selector-item* *render-item*))
  (funcall *render-item* selector *selector-item*))

;; after updating swank kill render (item-selector)

(defmethod render-item :around ((selector item-selector) item)
  (let ((*selector-item* item)
	(*render-item* #'call-next-method))
    (declare (special *selector-item* *render-item*))
    (render-item-for-select selector item)))

(defmethod render-item-for-select ((selector item-selector) item)
  (<ucw:a :action (call (viewer-class selector) :item item)
	  (render-item-in-select selector)))

;; Show Lister

(defcomponent query-list (query-view elephant-query-view-mixin)
  ())

;; Show Chooser

(defcomponent query-chooser (query-list item-selector)
  ())

;; Ranged Show Viewer/Chooser

(defcomponent ranged-show-list (cached-query-paged-view-mixin
				query-ranged-view-mixin
				show-list)
  ())

(defcomponent standard-ranged-show-list (ranged-show-list)
  ())

(defcomponent ranged-show-chooser (ranged-show-list show-chooser)
  ())

(defcomponent standard-ranged-show-chooser (ranged-show-chooser
					    standard-ranged-show-list)
  ())


(defmethod render :around ((self show-list))
  (<:ul :class "-list"
	(call-next-method)))

(defmethod render ((self show-list))
  (mapc (lambda (show)
	  (setf (viewer-show self) show)
	  (<:li :class "golf-show-list-item"
		(call-next-method)))
	(shows self)))


(defmethod shows ((range ranged-show-list))
  (current-items range))

;; respecialize on standard-ranged-show-list
(defmethod render :after ((self standard-ranged-show-list))
  ;; mark with css classes
  (<:p :class "ranged-show-list-pager"
       (<:format "Page ~D of ~D"
		 (1+ (page-offset self))
		 (1+ (page-count self)))
       (<:as-html " ")
       (if (have-previous-page-p self)
	   (<ucw:a :action (scroll-backward self)
		   (<:as-html "Previous"))
	   (<:as-html "Previous"))
       (<:as-html " ")
       (if (have-next-page-p self)
	   (<ucw:a :action (scroll-forward self)
		   (<:as-html "Next"))
	   (<:as-html "Next"))
       (<:as-html " ")
       (<ucw:a :action (scroll-start self)
	       (<:as-html "First"))
       (<:as-html " ")      
       (<ucw:a :action (scroll-end self)
	       (<:as-html "Last"))))