tree <- ( eelem "/"
+= ( eelem "page"
+= sattr "site" siteName
- += sattr "styleSheet" (uriToString id (mkObjectURI baseURI cssName) "")
+= sattr "name" (pageName page)
+= sattr "type" (show $ pageType page)
+= ( case pageLanguage page of
+= sattr "revision" (show $ pageRevision page)
+= sattr "lastModified" (formatW3CDateTime $ pageLastMod page)
+ += ( eelem "styleSheets"
+ += ( eelem "styleSheet"
+ += sattr "src" (uriToString id (mkObjectURI baseURI cssName) "")
+ )
+ )
+
+ += ( eelem "scripts"
+ += ( eelem "script"
+ += sattr "src" (uriToString id (baseURI { uriPath = "/js" }) "")
+ )
+ )
+
+= ( case pageSummary page of
Nothing -> none
Just s -> eelem "summary" += txt s
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" _
wikifyParseError :: ParseError -> WikiPage
wikifyParseError err
= [Div [("class", "error")]
- [ Preformatted [Text (show err)] ]]
+ [ Block (Preformatted [Text (show err)]) ]]