X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FWiki%2FEngine.hs;h=afbc610ab0f1497ec94f9b9b8991fb819049c7c2;hp=b646a52cc65471f998e224060aaaed68512cb29b;hb=e43bb104a7313dd696b8bb8aa3bafff94706a187;hpb=126e9f3faff19add1fb3dea792ec10dc57c30f03

diff --git a/Rakka/Wiki/Engine.hs b/Rakka/Wiki/Engine.hs
index b646a52..afbc610 100644
--- a/Rakka/Wiki/Engine.hs
+++ b/Rakka/Wiki/Engine.hs
@@ -309,6 +309,9 @@ makeDraft interpTable page
          setAttribute doc "rakka:isBoring" $ Just $ yesOrNo $ pageIsBoring page
          setAttribute doc "rakka:isBinary" $ Just $ yesOrNo $ pageIsBinary page
          setAttribute doc "rakka:revision" $ Just $ show $ pageRevision page
+         setAttribute doc "rakka:summary"  $ pageSummary page
+
+         addHiddenText doc (pageName page)
 
          case pageType page of
             MIMEType "text" "css" _
@@ -374,4 +377,4 @@ everywhereM' f x = f x >>= gmapM (everywhereM' f)
 wikifyParseError :: ParseError -> WikiPage
 wikifyParseError err
     = [Div [("class", "error")]
-               [ Preformatted [Text (show err)] ]]
+               [ Block (Preformatted [Text (show err)]) ]]