[Refactor show-viewer/selector classes to use new item-viewer/selector
clinton@unknownlamer.org**20080327143344] {
hunk ./src/web-common.lisp 73
-(defcomponent show-viewer (golf-widget-component)
-  ((show :initarg :show :accessor viewer-show)))
+(defcomponent show-viewer (golf-widget-component item-viewer)
+  ())
hunk ./src/web-common.lisp 76
-(defgeneric render-show (show-viewer show))
hunk ./src/web-common.lisp 78
-(defmethod render ((self show-viewer))
-  (render-show self (viewer-show self))
+(defmethod render :after ((self show-viewer))
hunk ./src/web-common.lisp 81
-(defmethod render-show :around ((self show-viewer) show)
+(defmethod render-item :around ((self show-viewer) show)
hunk ./src/web-common.lisp 89
-(defmethod render-show ((viewer show-viewer) (show null))
+(defmethod render-item ((viewer show-viewer) (show null))
hunk ./src/web-common.lisp 96
-(defmethod render-show ((self standard-show-viewer) (show radio-show))
+(defmethod render-item ((self standard-show-viewer) (show radio-show))
hunk ./src/web-common.lisp 115
-(defmethod render-show ((self compact-show-viewer) (show radio-show))
+(defmethod render-item ((self compact-show-viewer) (show radio-show))
hunk ./src/web-common.lisp 122
-(defcomponent show-selector (show-viewer)
-  ((full-viewer-class :initarg :viewer :initform 'standard-show-viewer)))
+(defcomponent show-selector (show-viewer item-selector)
+  ())
hunk ./src/web-common.lisp 128
-    (let ((show (viewer-show self)))
+    (let ((show (viewer-item self)))
hunk ./src/web-common.lisp 130
-	("View" (call full-viewer-class :show show))))))
+	("View" (call full-viewer-class :item show))))))
hunk ./src/web-common.lisp 154
-	  (setf (viewer-show self) show)
+	  (setf (viewer-item self) show)
hunk ./src/web-frontend.lisp 13
-(defmethod render-show ((viewer show-previewer) (show radio-show))
+(defmethod render-item ((viewer show-previewer) (show radio-show))
hunk ./src/web-frontend.lisp 25
-  (let ((show (viewer-show viewer))
+  (let ((show (viewer-item viewer))
hunk ./src/web-frontend.lisp 42
-(defmethod render-show :after ((self frontend-show-viewer) show)
+(defmethod render-item :after ((self frontend-show-viewer) show)
hunk ./src/web-frontend.lisp 60
-(defmethod render-show ((self frontend-show-chooser) (show radio-show))
+(defmethod render-item-for-select ((self frontend-show-chooser) (show radio-show))
hunk ./src/web-frontend.lisp 63
-     (yaclml:with-yaclml-output-to-string (call-next-method))
-     (make-action-body (:with-call/cc t)
-       (call full-viewer-class :show show))
+     (yaclml:with-yaclml-output-to-string (render-item-in-select self))
+     (make-action-body (:with-call/cc t :invocation-isolated nil)
+       (call full-viewer-class :item show))
hunk ./src/web-frontend.lisp 72
-  (if-bind date (show-date (viewer-show component))
+  (if-bind date (show-date (viewer-item component))
hunk ./src/web-frontend.lisp 81
-  (:default-initargs :viewer 'frontend-show-viewer))
+  (:default-initargs :viewer-class 'frontend-show-viewer))
hunk ./src/web-frontend.lisp 83
-(defmethod render-show ((self sidebar-show-chooser) (show radio-show))
-  (let ((show (viewer-show self))
+(defmethod render-item-for-select ((self sidebar-show-chooser) (show radio-show))
+  (let ((show (viewer-item self))
hunk ./src/web-frontend.lisp 89
-				       :show show)))
+				       :item show)))
hunk ./src/web-frontend.lisp 101
-	     :show (car (get-shows-by 'show-date nil (get-universal-time)
+	     :item (car (get-shows-by 'show-date nil (get-universal-time)
hunk ./src/web-frontend.lisp 105
-	     :show (car (get-shows-by 'show-date (get-universal-time) nil
+	     :item (car (get-shows-by 'show-date (get-universal-time) nil
}