bamboo-theme-blueprint 2009.6.25 → 2010.2.22

raw patch · 5 files changed

+22/−18 lines, 5 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

bamboo-theme-blueprint.cabal +1/−1
changelog.md +6/−0
src/Bamboo/Theme/Blueprint/Control/Post.hs +1/−1
src/Bamboo/Theme/Blueprint/Helper.hs +13/−10
src/Bamboo/Theme/Blueprint/Widget/RSS.hs +1/−6

bamboo-theme-blueprint.cabal view

@@ -1,5 +1,5 @@ Name:                 bamboo-theme-blueprint-Version:              2009.6.25+Version:              2010.2.22 Build-type:           Simple Synopsis:             bamboo blueprint theme Description:          bamboo blueprint theme

changelog.md view

@@ -1,3 +1,9 @@+2009.2.22++### Fix, thanks to Григорий Холомьёв++* show full article in read action+ 2009.6.25 ---------

src/Bamboo/Theme/Blueprint/Control/Post.hs view

@@ -18,7 +18,7 @@ view s = (x.render +++ comment_view ).page s   where     x = s.posts.first-    render = entry s+    render = entry' s Full     xs = s.comments     comment_view = html_only_for Comment $        CommentV.list xs

src/Bamboo/Theme/Blueprint/Helper.hs view

@@ -4,16 +4,17 @@ module Bamboo.Theme.Blueprint.Helper where  import Bamboo.Env-import Bamboo.Helper.ByteString-import Data.ByteString+import qualified Data.ByteString.Char8 as B+import Data.ByteString.UTF8 (fromString)+import Data.ByteString.Lazy (fromChunks) import Data.Default import Hack import Hack.Contrib.Constants import Hack.Contrib.Response-import MPS.Heavy import Text.XHtml.Strict hiding (p, meta, body) import qualified Prelude as P import qualified Text.XHtml.Strict as Html+import MPS.Heavy (unescape_xml)   id :: String -> HtmlAttr@@ -58,24 +59,26 @@ xml_header :: String xml_header = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n" -render_html :: Html -> ByteString-render_html = renderHtml > unescape_unicode_xml > to_sb+render_html :: Html -> B.ByteString+render_html = renderHtml > unescape_xml > fromString  output_html :: Html -> IO Response output_html = render_html > output_plain_html -render_rss :: String -> ByteString-render_rss = (xml_header ++) > unescape_unicode_xml > to_sb+render_rss :: String -> B.ByteString+render_rss = (xml_header ++) > fromString -output_plain_html :: ByteString -> IO Response+output_plain_html :: B.ByteString -> IO Response output_plain_html x =    def      .set_status 200-    .set_body (x.to_lb)+    .set_body utf8     .set_content_type _TextHtmlUTF8     .return+  where+    utf8 = [x].fromChunks -output_plain_rss :: ByteString -> IO Response+output_plain_rss :: B.ByteString -> IO Response output_plain_rss = output_plain_html   > (^ set_content_type "application/rss+xml")

@@ -11,11 +11,6 @@ import qualified Text.RSS as RSS import Network.URI ---instance Default URI where-  def = nullURI- data RSS = RSS   {     title         :: RSS.Title@@ -40,7 +35,7 @@   }   .to_rss.rssToXML.showXML   where-    full_uri x  = def { uriScheme = "http://", uriPath = host_link x }+    full_uri x  = nullURI { uriScheme = "http://", uriPath = host_link x }     host_link x = s.config.host_name ++ (s.env.slashed_script_name / x)     link        = full_uri (categary / title)     items       = s.posts.map item_rss_template