[Removed delicious badging from multi-post views.  Left it in single-post views.
prb@mult.ifario.us**20080204065010] {
hunk ./src/Blog/FrontEnd/Presentation.hs 148
-                        render_posts cb m l
+                        return $ render_posts m l
hunk ./src/Blog/FrontEnd/Presentation.hs 156
-render_post_detail = render_ render_comments_as_text
+render_post_detail cb m i = do { dc <- D.get_chrome (CB.delicious_controller cb) m i
+                               ; return $ render_ render_comments_as_text dc m i }
hunk ./src/Blog/FrontEnd/Presentation.hs 161
-render_posts :: CB.ChromeBackEnd -> B.Model -> [B.Item] -> IO Html
-render_posts cb m ii = do { rendered_items <- mapM (render_ render_comments_as_count cb m) ii
-                          ; return $ concatHtml rendered_items }
+render_posts :: B.Model -> [B.Item] -> Html
+render_posts m ii = concatHtml $ map (render_ render_comments_as_count noHtml m) ii
hunk ./src/Blog/FrontEnd/Presentation.hs 164
-render_ :: (B.Model -> B.Item -> Html) -> CB.ChromeBackEnd -> B.Model -> B.Item -> IO Html
-render_ render_comments cb m i
-    = do { dc <- D.get_chrome (CB.delicious_controller cb) m i
-         ; return $ ( thediv ( (post_heading m i) 
-                               +++ (render_body "entry" i)
-                               +++ (render_tags i)
-                               +++ dc)
-                      ! [  theclass "entry_wrapper" ] )
-                      +++ (render_comments m i) } 
+render_ :: (B.Model -> B.Item -> Html) -> Html -> B.Model -> B.Item -> Html
+render_ render_comments chrome m i
+    = ( thediv ( (post_heading m i) 
+                 +++ (render_body "entry" i)
+                 +++ (render_tags i)
+                 +++ chrome)
+        ! [  theclass "entry_wrapper" ] )
+      +++ (render_comments m i)
hunk ./src/Blog/FrontEnd/Presentation.hs 179
-                        n -> _at (U.comments $ B.permalink m i) ((show n) ++ " comments.")
+                        n -> _at (U.comments $ B.permalink m i) ((show n) ++ " comments.  ")
hunk ./src/Blog/Widgets/ChromeBackEnd.hs 25
-            ; ffd <- start_driver s (10^7)
+            ; ffd <- start_driver s (10^6)
hunk ./src/Blog/Widgets/Delicious.hs 37
-                                      , stringToHtml $ " by " ++ (show $ total_posts dr) ++ " people: " 
-                                      , concatHtml . intersperse (stringToHtml ", ") $ map tag_link_with_count (top_tags dr)
+                                      , stringToHtml $ " by " ++ (show $ total_posts dr)
+                                                         ++ ( if total_posts dr > 1 then
+                                                                  " people. "
+                                                              else 
+                                                                  " person. " )
+                                      , if 0 /= (length $ top_tags dr) then
+                                            concatHtml . intersperse (stringToHtml ", ") $ map tag_link_with_count (top_tags dr)
+                                        else 
+                                            noHtml
hunk ./src/Blog/Widgets/Delicious.hs 178
-                              do { threadDelay 1000000
-                                 ; s_loop s m }
+                              s_loop s m
}