[Revived old web frontend code
clinton@unknownlamer.org**20080103171546
 * Ported from ucw_dev to ucw_ajax
 * Rewrote render methods to generate cleaner html with components
   marked with css-classes
 * Fixed all control flow issues
 * Wrote basic navigator component
 
 The code still needs cleaning up and merging of some repetetive patterns.
] {
hunk ./src/web.lisp 5
-(defclass golf-application (modular-application
-			    cookie-session-application-module
-			    lame-web:lame-application-module)
+(defclass golf-application (standard-application
+			    cookie-session-application-mixin)
hunk ./src/web.lisp 9
+;; Rendering Helpers
+
+(defmacro render-controls (&body controls)
+  `(<:ul :class "golf-controls"
+     ,@(mapcar (lambda (control)
+		 `(<:li :class "control"
+			(<ucw:a :action-body ,(cadr control)
+				(<:as-html ,(car control)))))
+	       controls)))
+
hunk ./src/web.lisp 22
-  ((shows :initarg :shows :accessor shows)))
-
-(defaction delete-show ((component t) (show radio-show))
-  (elephant:drop-instances (list show))
-  (ok component))
+  ())
hunk ./src/web.lisp 24
-(defaction create-show ((component choose-show))
-  (call 'show-editor-window)
-  (answer t))
+(defmethod shows ((chooser choose-show))
+  (elephant:get-instances-by-class 'radio-show))
hunk ./src/web.lisp 28
-  (<:ul
-   (mapc #'(lambda (show)
-	     (<:li (<ucw:a :action (call 'show-view :show show)
-			   (<:as-html (if (slot-boundp show 'show-title)
-					  (show-title show))))
-		   (<:as-html " ")
-		   (<ucw:a :action (delete-show self show)
-			   (<:as-html "Delete"))))
-	 (shows self)))
-  (<:p (<ucw:a :action (create-show self)
-	       (<:as-html "New Show"))))
+  (<:div
+   :class "golf-chooser"
+   (<:ul
+    :class "chooser-list"
+    (mapc #'(lambda (show)
+	      (<:li (<ucw:a :class "show-title"
+			    :action-body (call 'show-view :show show)
+			    (<:as-html (if (slot-boundp show 'show-title)
+					   (show-title show)
+					   "[C]")))
+		    (<:as-html " ")
+		    (render-controls
+		      ("Delete" (elephant:drop-instances (list show))))))
+	  (shows self)))
+   (render-controls ("New Show" (call 'show-editor)))))
hunk ./src/web.lisp 49
-(defaction edit-show ((show-viewer show-view))
-  (call 'show-editor-window :editor (make-instance 'show-view
-				     :show (radio-show show-viewer)))
-  (ok show-viewer))
-
hunk ./src/web.lisp 50
-  (<:div 
-   (<:h1
-    (<:as-html
-     "no"))
-   (<:p (<:as-html (transcript (radio-show self))))
-   (<:p (format nil "Type: ~S" (content-type (audio-data (radio-show self)))))
-   (<:p (<ucw:a :action (edit-show self)
-		 (<:as-html "edit")))
-   (<:p (<ucw:a :action (play-file self (radio-show self))
-		 (<:as-html "play")))
-   (<:p (<ucw:a :action (ok self)
-		(<:as-html "answer")))))
+  (let ((show (radio-show self)))
+    (<:div :class "golf-show-viewer"
+	   (<:h1 (<:as-html (show-title show)))
+	   (<:p (<:as-html (transcript show)))
+	   (<:p (awhen (audio-data show)
+		  (format nil "Type: ~S" (audio-file-type it))))
+	   (render-controls ("Edit" (call 'show-editor :show show))
+			    ("Play" (play-file self show))
+			    ("Ok"   (ok self))
+			    ("Refresh" (refresh-component self))))))
+
+;; Show Editor
hunk ./src/web.lisp 63
-(defcomponent file-upload-form (simple-form)
+(defclass simple-form (form-component-mixin)
hunk ./src/web.lisp 66
-(defmethod render :wrapping ((form simple-form))
-  (<ucw:form :id (ucw::dom-id form)
-	     :method (ucw::submit-method form)
-             :action (refresh-component form)
-             :class (ucw::css-class form)
-	     :style (ucw::css-style form)
-	     :enctype "multipart/form-data"
-    (call-next-method)))
+(defcomponent file-upload-form (form-component-mixin)
+  ((fields :initarg :fields :accessor form-fields :initform nil))
+  (:default-initargs :enctype "multipart/form-data"))
+
+(defmethod render ((form file-upload-form))
+  (<:div :class "golf-form"
+   (mapc (lambda (c)
+	   (<:div :class "field-box" ; composite field-box (car c)?
+		  (<:div :class "label" (<:as-html (car c)))
+		  (<:div :class "widget" (render (cdr c)))))
+	 (form-fields form))))
hunk ./src/web.lisp 80
-			:initform (make-instance 'radio-show))
-   (date :initform (make-instance 'mdy-date-field))
-   (audio-file :initform (make-instance 'file-upload-field))
-   (transcript :initform (make-instance 'textarea-field))))
+			:initform nil))
+  (:default-initargs
+      :fields `((title . ,(make-instance 'string-field))
+		(date  . ,(make-instance 'mdy-date-field))
+		(audio-file . ,(make-instance 'file-upload-field))
+		(transcript . ,(make-instance 'textarea-field)))))
hunk ./src/web.lisp 87
+;; (defmacro define-html-form (name (&rest supers) &body elements)
+;;   ;; need a form type to store (name class &keys options) lists
+;;   `(defcomponent ,name ))
+
+;; (define-html-form foo ()
+;;   (field-name type &keys label)
+;;   (field-name (type initargs) &keys label))
hunk ./src/web.lisp 95
-(defmethod (setf value) ((new-time integer) (date date-field))
-  "Set date field from a universal-time"
-  (setf (value (ucw::year date)) (time-year new-time))
-  (setf (value (ucw::month date)) (time-month new-time))
-  (setf (value (ucw::day date)) (time-date new-time)))
hunk ./src/web.lisp 97
-  (when (radio-show editor)
-    (with-slots (show date audio-file transcript)
-	editor
-      (setf (value date) (show-date show))
-      (setf (value transcript) (transcript show)))))
+  (declare (ignore keys))
+  (if-bind show (radio-show editor)
+    (with-assoc (title date audio-file transcript)
+	(form-fields editor)
+      (setf (value title) (show-title show))
+      (awhen (show-date show) (setf (value date) it))
+      (setf (value transcript) (transcript show)))
+    (setf (value (cdr (assoc 'date (form-fields editor))))
+	  (get-universal-time))))
hunk ./src/web.lisp 107
-(defun stream->bytes (stream)
-  (let ((byte-buffer (make-array
-		      (file-length stream)
-		      :element-type 'unsigned-byte)))
-    (read-sequence byte-buffer stream)
-    byte-buffer))
hunk ./src/web.lisp 117
-  (with-slots (show date audio-file transcript)
-      editor
-    (setf (show-date show) (value date))
-    ; (break "a-f: ~S, v: ~S" audio-file (value audio-file))
-    (if (value audio-file)
-	(set-audio-file show (cdr (assoc "Content-Type"
-					 (mime-part-headers (value audio-file))
-				   :test #'string=))
-			(mime-part-body (value audio-file))))
-    (setf (transcript show) (value transcript)))
+  (let ((show (or (radio-show editor) (make-instance 'radio-show))))
+    (with-assoc (title date audio-file transcript)
+	(form-fields editor)
+      (setf (show-date show) (value date))
+      (setf (show-title show) (value title))
+      ;; (break "a-f: ~S, v: ~S" audio-file (value audio-file))
+      (if (value audio-file)
+	  (set-audio-file show (cdr (assoc "Content-Type"
+					   (mime-part-headers (value audio-file))
+					   :test #'string=))
+			  (mime-part-body (value audio-file))))
+      (setf (transcript show) (value transcript))))
hunk ./src/web.lisp 131
-(defmethod render ((editor show-editor))
-  (with-slots (date audio-file transcript)
-      editor
-    (render date)
-    (render audio-file)
-    (render transcript)
-    (<ucw:submit :action (update-show editor))))
-
-(defcomponent show-editor-window (simple-window-component)
-  ((show-editor :initarg :editor :initform (make-instance 'show-editor))))
-
-(defmethod render ((editor show-editor-window))
-  (render (slot-value editor 'show-editor))
-  (ok editor))
+(defmethod render :after ((editor show-editor))
+  (<:div 
+   (<ucw:submit :value "Ok" :action-body (update-show editor))
+   (<ucw:submit :value "Cancel" :action-body (ok editor))))
hunk ./src/web.lisp 141
-(defmethod initialize-instance :after ((window audio-file-window)
-				       &rest keys)
-  (declare (ignore keys))
-  (setf (window-component.content-type window)
-	(content-type (audio-file window))))
+(defmethod window-component.content-type ((window audio-file-window))
+  (audio-file-type (audio-file window)))
hunk ./src/web.lisp 144
-(defmethod render ((audio-window audio-file-window))
+(defmethod render :before ((audio-window audio-file-window))
hunk ./src/web.lisp 146
-        (format nil "~D" (content-length (audio-file audio-window))))
+        (format nil "~D" (audio-file-length (audio-file audio-window)))))
+
+(defmethod render ((audio-window audio-file-window))
hunk ./src/web.lisp 154
-  (call 'audio-file-window
-   :audio-file (audio-data show)))
+  (call 'audio-file-window :audio-file (audio-data show)))
+
+;; Navigation
+
+(defcomponent golf-admin-window (standard-window-component-with-body)
+  ()
+  (:default-initargs
+    :title "Admin Interface"
+    :dojo-debug-p nil
+    :stylesheet '("static/css/tee-it-up.css")))
+
+(defmethod initialize-instance :after ((window golf-admin-window)
+				       &key &allow-other-keys)
+  (setf (body-of window)
+	(make-instance 'switching-container
+		       :current-component-key 'chooser
+		       :remember-selected-child t
+		       :contents
+		       `((chooser . ,(make-instance 'choose-show))
+			 (create  . ,(make-instance 'show-editor))))))
+
+
+(defmethod render-html-body ((window golf-admin-window))
+  (<:div :id "golf-nav-menu"
+   (<:ul
+    (mapc (lambda (c) (<:li
+		  :class (if (eq (car c)
+				 (container.current-component-key
+				  (body-of window)))
+			     "current-component"
+			     "not-current-component")
+		  (<ucw:a :action-body (switch-component (body-of window)
+							 (car  c))
+			  (<:as-html (car c)))))
+	  (container.contents (body-of window)))))
+  (<:div :id "golf-nav-body" (call-next-method)))
}