[Initial frontend
clinton@unknownlamer.org**20080114211930] {
hunk ./src/web-frontend.lisp 3
+(defcomponent show-previewer (show-viewer)
+  ((preview-length :initform nil
+		   :initarg :preview-length
+		   :accessor preview-length)))
+
+(defmethod render-show ((viewer show-previewer) (show radio-show))
+  (<:h1 (<:as-html (show-title show)))
+  (<:h2 (<:as-html (date-string (show-date show))))
+  (let* ((transcript (transcript show))
+	 (length (if (and (preview-length viewer)
+			  (> (length transcript)  (preview-length viewer)))
+		     (preview-length viewer)
+		     (length transcript))))
+    (<:p (<:as-html (subseq transcript 0 length))
+	 (if (> (length transcript) length) (<:as-html "...")))))
+
+(defmethod render-controls ((viewer show-previewer))
+  (let ((show (viewer-show viewer))
+	(self (parent viewer))) ; evil, I know
+    (component-controls ("View" (call 'full-show-viewer :show show)))
+    (if (audio-data show)
+	(component-controls ("Play" (play-file self show))))))
+
+(defcomponent sidebar-show-chooser (ranged-show-chooser)
+  ()
+  (:default-initargs :viewer 'full-show-viewer))
+
+(defmethod render-show ((self sidebar-show-chooser) (show radio-show))
+  (let ((show (viewer-show self)))
+    (<:h1 (<:as-html (date-string-brief (show-date show))))
+    (<:h1
+     (<ucw:a
+      :action-body (call-component
+		    (parent self)
+		    (make-instance (slot-value self 'full-viewer-class)
+				   :show show))
+      (<:as-html (show-title show))))))
+
+(defmethod render-controls ((self sidebar-show-chooser))
+  (declare (ignore self)))
+
hunk ./src/web-frontend.lisp 45
-  (chooser show-chooser :viewer 'compact-show-selector)
-  (list show-list))
+  (chooser sidebar-show-chooser
+	   :reverse t :window-size 10 :max (get-universal-time))
+  (last-show show-previewer
+	     :preview-length 200
+	     :show (car (get-shows-by 'show-date nil (get-universal-time)
+				      :from-end t :limit 1)))
+  (next-show show-previewer
+	     :preview-length 200
+	     :show (car (get-shows-by 'show-date (get-universal-time) nil
+				      :limit 1))))
+
+(defmethod render ((self golf-frontend-components))
+  (with-assoc (chooser last-show next-show) (container.contents self)
+    (<:div :class "left-sidebar"
+	   (render chooser))
+    (<:div :class "show-previews"
+	   (<:div :class "last-show"
+		  (<:h1 "Last Show")
+		  (render last-show))
+	   (<:div :class "next-show"
+		  (<:h1 "Next Show")
+		  (render next-show))
+	   (<:div :style "clear: both" (<:as-html " ")))
+    (<:div :class "right-sidebar")))
hunk ./src/web-frontend.lisp 72
-  (:default-initargs :body (make-instance 'golf-frontend-components)))
+  (:default-initargs
+      :body (make-instance 'tabbed-pane
+			   :css-class "golf-frontend-pane"
+			   :current-component-key 'main
+			   :remember-selected-child t
+			   :contents
+			   `((main . ,(make-instance 'golf-frontend-components))
+			     (archive . ,(make-instance 'standard-ranged-show-chooser))))))
+
+(defmethod render-html-body :before ((window golf-frontend-window))
+  (<:div :class "header"
+	 (<:h1 "Tee It Up Golf")))
}