[Bookmarkable frontend pages
clinton@unknownlamer.org**20081212234057] hunk ./src/site-control.lisp 17
+  (defentry-point "^pages/(\\w+)$" (:application (find-site-application site :frontend)
+						:class regexp-dispatcher)
+      ()
+    (let ((page-name (aref *dispatcher-registers* 0))
+	  (window (make-instance 'beesknees.web:bee-frontend-window)))
+      (setf (container.current-component-key (window-body window))
+	    (intern (string-upcase page-name) :beesknees.web))
+      (call-component nil window)))
+  
hunk ./src/web-frontend.lisp 65
+(defvar *switch-key* nil)
+
+(defmethod update-url ((c bee-frontend-pane) uri)
+  (when *switch-key*
+    (append-path-to-uri uri (format nil "pages/~(~A~)" *switch-key*)))
+  uri)
+
hunk ./src/web-frontend.lisp 82
-		     (<ucw:a :action (switch-component pane (car component))
-			     (<:img :src (format nil "~A~A~D.png"
-						 (slot-value pane 'img-root)
-						 (string-downcase (symbol-name (car component)))
-						 (if selectedp 2 1))
-				    :alt (symbol-name (car component)))))))))
+		     (let ((*switch-key* (car component)))
+		       (<ucw:a :action (switch-component pane (car component))
+			       (<:img :src (format nil "~A~A~D.png"
+						   (slot-value pane 'img-root)
+						   (string-downcase (symbol-name (car component)))
+						   (if selectedp 2 1))
+				      :alt (symbol-name (car component))))))))))