[Add bookmarkable links to the show archive
clinton@unknownlamer.org**20080209054215] {
hunk ./src/web-frontend.lisp 48
+(defun cross-component-link (link-text action-object from-component)
+  (let ((id (js:gen-js-name-string :prefix "id")))
+    (<:a :href (action-href action-object :component from-component)
+	 :id id
+	 (<:as-html link-text))
+    (ucw::install-action-js id "onclick" action-object)))
+
hunk ./src/web-frontend.lisp 60
-     (<ucw:a
-      :action-body (call-component
-		    (parent self)
-		    (make-instance (slot-value self 'full-viewer-class)
-				   :show show))
-      (<:as-html (show-title show))))))
+     (let ((full-viewer (make-instance (slot-value self 'full-viewer-class)
+				       :show show)))
+       (cross-component-link (show-title show)
+			     (make-action-body (:with-call/cc t)
+			       (call-component parent full-viewer))
+			     self)))))
+
+(defmethod update-url ((component sidebar-show-chooser) url)
+  (if-bind date (show-date (viewer-show component))
+    (multiple-value-bind (s m h day month year) (decode-universal-time date)
+      (declare (ignore s m h))
+      (setf (ucw::uri.path url)
+	    (format nil "/archive/~D/~D/~D" year month day))))
+  url)
}