[Initial bookmarkable urls for weblog entries
clinton@unknownlamer.org**20090417163331
 Ignore-this: dc2f52f8308f288c1a12d820d311fc58
 Assumes that no two posts will ever be made at the same utime. This
 could be the elephant OID, but that *might* change if the database is
 restored via migration or similar...
] hunk ./src/frontend-weblog.lisp 30
+(defvar *weblog-entry-page* nil)
hunk ./src/frontend-weblog.lisp 40
+  (when *weblog-entry-page*
+    (append-path-to-uri uri (format nil "pages/blog/entry/~A"
+				    *weblog-entry-page*)))
hunk ./src/frontend-weblog.lisp 64
+(defmethod render :around ((c comment-entry))
+  (<:div :class "comment-entry"
+	 (call-next-method)))
+
hunk ./src/frontend-weblog.lisp 107
+(defcomponent weblog-entry-bookmark-helper (task-component)
+  ((posted :initarg :posted)))
+
+(defaction start ((task weblog-entry-bookmark-helper))
+  (call 'weblog-entry-view :entry (get-instance-by-value 'weblog-entry
+							 'beesknees.weblog::posted
+							 (slot-value task 'posted)))
+  (call 'bee-paged-blog :page-size 5))
+
+
hunk ./src/frontend-weblog.lisp 119
-  (<ucw:a :action (call 'weblog-entry-view :entry entry)
-	  (<:ah "view full"))
-  (<ucw:a :action (call 'comment-entry :comment-parent entry)
-	  (<:ah "comment")))
+  (<:div :class "bee-blog-controls"
+	 (let ((*weblog-entry-page* (entry-posted entry)))
+	   (<ucw:a :action (call 'weblog-entry-view :entry entry)
+		   (<:ah "view full")))
+	 (<:ah " ")
+	 (<ucw:a :action (call 'comment-entry :comment-parent entry)
+		 (<:ah "comment"))))
hunk ./src/site-control.lisp 29
-  (defentry-point "^pages/(\\w+)$" (:application (find-site-application site :frontend)
+  (defentry-point "^pages/blog/entry/(\\d+)$" (:application (find-site-application site :frontend)
+						:class regexp-dispatcher)
+      ()
+    (let ((window (make-instance 'beesknees.web:bee-frontend-window)))
+	(setf (container.current-component-key (window-body window))
+	      'beesknees.web::blog)
+	(setf (ucw-core::find-component (window-body window)
+					'beesknees.web::blog)
+	      (make-instance 'beesknees.web::weblog-entry-bookmark-helper
+			     :posted (parse-integer (aref *dispatcher-registers* 0))
+			     :parent (window-body window)))
+	(call-component nil window)))
+    (defentry-point "^pages/(\\w+)$" (:application (find-site-application site :frontend)