[Add bookmarkable URLs for links in frontend-show-chooser
clinton@unknownlamer.org**20080213224514] hunk ./src/web-frontend.lisp 66
-(defcomponent sidebar-show-chooser (ranged-show-chooser)
-  ()
-  (:default-initargs :viewer 'full-show-viewer))
-
+(defmethod update-url ((component frontend-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)