[Add new query-list-chooser and item-viewer code
clinton@unknownlamer.org**20080327143551] {
addfile ./src/query-list-chooser.lisp
hunk ./src/query-list-chooser.lisp 1
+(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-body (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-body (scroll-backward self)
+		   (<:as-html "Previous"))
+	   (<:as-html "Previous"))
+       (<:as-html " ")
+       (if (have-next-page-p self)
+	   (<ucw:a :action-body (scroll-forward self)
+		   (<:as-html "Next"))
+	   (<:as-html "Next"))
+       (<:as-html " ")
+       (<ucw:a :action-body (scroll-start self)
+	       (<:as-html "First"))
+       (<:as-html " ")      
+       (<ucw:a :action-body (scroll-end self)
+	       (<:as-html "Last"))))
hunk ./tee-it-up.asd 20
+     (:file "query-list-chooser" :depends-on ("packages"))
hunk ./tee-it-up.asd 22
-      :depends-on ("config" "ucw-compat" "database" "util" "packages"))
+      :depends-on ("config" "ucw-compat" "database"
+		   "util" "query-list-chooser" "packages"))
}