[Initial talification of site user interface
clinton@unknownlamer.org**20090428044033
 Ignore-this: 401368b8e3bcd9d9e74d1e4d7038c70b
 NOTE: Symlink tal/ directory into data root
 * Basic tal scaffolding
 * Rewrite `bee-frontend-pane' rendering code using a template
] hunk ./src/applications.lisp 5
+			   tal-application-mixin
hunk ./src/site-control.lisp 83
-						   data-root "wwwroot/")))))
+						   data-root "wwwroot/")))
+				:tal-generator
+				(make-instance 'yaclml:file-system-generator
+					       :cachep t
+					       :root-directories `(,(format nil "~A~A"
+									    data-root "tal/")))))
hunk ./src/web-frontend.lisp 19
-(defcomponent bee-frontend-pane (tabbed-pane)
+(defcomponent bee-frontend-pane (tabbed-pane template-component)
hunk ./src/web-frontend.lisp 29
-(defmethod render-pane-options ((pane bee-frontend-pane))
-  (<:div :class "ucw-tabbed-pane-options"
-                (arnesi:dolist* (component (container.contents pane))
-		  (let ((selectedp (funcall (container.key-test pane)
-				       (car component)
-				       (container.current-component-key pane))))
-		    (<:span
-		     :class (if selectedp
-			     "ucw-tabbed-pane-selected"
-			     "ucw-tabbed-pane-not-selected")
-		     (let ((*switch-key* (car component)))
-		       (<ucw:a :action (switch-component pane (car component))
-			       (<:img :src (format nil "~A~A~A~D.png"
-						   (application.url-prefix (context.application *context*))
-						   (slot-value pane 'img-root)
-						   (string-downcase (symbol-name (car component)))
-						   (if selectedp 2 1))
-				      :alt (symbol-name (car component))))))))))
+(defun render-frontend-pane-switch-link (pane component selectedp)
+  (let ((*switch-key* (car component)))
+    (<ucw:a :action (switch-component pane (car component))
+	    (<:img :src (format nil "~A~A~A~D.png"
+				(application.url-prefix (context.application *context*))
+				(slot-value pane 'img-root)
+				(string-downcase (symbol-name (car component)))
+				(if selectedp 2 1))
+		   :alt (symbol-name (car component))))))
hunk ./src/web-frontend.lisp 39
-(defmethod render-pane-contents :before ((pane bee-frontend-pane))
-  (when-bind style (elephant:get-instance-by-value
-		    'bee-page-style 'name (container.current-component-key pane))
-    (<:style
-     (<:as-is (format nil
-                      "body { background: white url(\"~A\") no-repeat fixed 50% 50%; }"
-                      (format nil "/static/img/backgrounds/~A"
-                              (arnesi:escape-as-uri (page-background style))))))))
+(defmethod template-component-environment nconc ((pane bee-frontend-pane))
+  (let ((page-style (elephant:get-instance-by-value
+		     'bee-page-style 'name
+		     (container.current-component-key pane))))
+    (yaclml:tal-env
+     'contents (mapcar (lambda (component)
+			 (yaclml:tal-env 'value component
+					 'selected (funcall (container.key-test pane)
+							    (car component)
+							    (container.current-component-key pane))))
+		       (container.contents pane))
+     'selected-component (container.current-component pane)
+     'component-style page-style
+     'page-background-url (when page-style
+			    (format nil
+				    "/static/img/backgrounds/~A"
+				    (arnesi:escape-as-uri
+				     (page-background page-style)))))))
hunk ./src/web-frontend.lisp 68
+	   :template-name "frontend-pane.tal"
adddir ./tal
addfile ./tal/frontend-pane.tal
hunk ./tal/frontend-pane.tal 1
-
+<progn xmlns:tal="http://common-lisp.net/project/bese/tal/core"
+       xmlns:ucw="http://common-lisp.net/project/ucw/core"
+       tal:in-package="beesknees.web">
+  <div class="ucw-tabbed-pane-options">
+    <progn tal:dolist="$contents">
+      <span class="${(if $selected &quot;ucw-tabbed-pane-selected&quot; &quot;ucw-tabbed-pane-not-selected&quot;)}">
+	<tal:lisp>(render-frontend-pane-switch-link $component $value $selected)</tal:lisp>
+      </span>
+    </progn>
+  </div>
+  <div class="ucw-tabbed-pane-body">
+    <style tal:when="$component-style">
+      body { background: white url("<progn tal:replace="$page-background-url"></progn>") no-repeat fixed 50% 50%; }
+    </style>
+    <ucw:render-component ucw:component="$selected-component" />
+  </div>
+</progn>