[Split common components into web-common.lisp
clinton@unknownlamer.org**20081209043956] move ./src/frontend.lisp ./src/web-frontend.lisp
hunk ./beesknees.asd 14
-     (:file "frontend" :depends-on ("packages"))
+     (:file "web-common" :depends-on ("packages"))
+     (:file "web-frontend" :depends-on ("packages" "web-common"))
hunk ./src/packages.lisp 12
+   ;; Containers
+   #:composite-container
+   #:bee-frontend-pane
+
addfile ./src/web-common.lisp
hunk ./src/web-common.lisp 1
+(in-package :beesknees.web)
+
+(defcomponent bee-window (standard-window-component)
+  ()
+  (:default-initargs
+    :title "The Bee's Knees"
+    :stylesheet '("static/css/common.css")))
+
+(defcomponent composite-container (html-block-element-mixin container)
+  ()
+  (:default-initargs :css-class "ucw-composite-container"))
+
+(defmethod render ((container composite-container))
+  (mapc (arnesi:compose #'render #'cdr) (container.contents container)))
+
+(defclass bee-widget (html-block-element-mixin)
+  ()
+  (:documentation "Widget component that sets css-class to class-name by default"))
+
+(defmethod initialize-instance :after ((c bee-widget)
+				       &rest keys)
+  (setf (html-element.css-class c)
+	(or (getf keys :css-class)
+	    (string-downcase (symbol-name (class-name (class-of c)))))))
hunk ./src/web-frontend.lisp 3
-(defcomponent bee-window (standard-window-component)
-  ()
-  (:default-initargs
-    :title "The Bee's Knees"
-    :stylesheet '("static/css/common.css")))
-
hunk ./src/web-frontend.lisp 10
-(defclass bee-widget (html-block-element-mixin)
-  ()
-  (:documentation "Widget component that sets css-class to class-name by default"))
-
-(defmethod initialize-instance :after ((c bee-widget)
-				       &rest keys)
-  (setf (html-element.css-class c)
-	(or (getf keys :css-class)
-	    (string-downcase (symbol-name (class-name (class-of c)))))))
-
-(defcomponent composite-container (html-block-element-mixin container)
-  ()
-  (:default-initargs :css-class "ucw-composite-container"))
-
-(defmethod render ((container composite-container))
-  (mapc (arnesi:compose #'render #'cdr) (container.contents container)))
-
hunk ./src/web-frontend.lisp 31
-(defcomponent bee-tabbed-pane (tabbed-pane)
+(defcomponent bee-videos (bee-widget dummy-component)
+  ())
+
+;; rename image-navigation-pane-mixin?
+(defcomponent bee-frontend-pane (tabbed-pane)
hunk ./src/web-frontend.lisp 38
-(defmethod render-pane-options ((pane bee-tabbed-pane))
+(defmethod render-pane-options ((pane bee-frontend-pane))
hunk ./src/web-frontend.lisp 57
-    :body (make-instance 'bee-tabbed-pane
+    :body (make-instance 'bee-frontend-pane