[Record before chucking Data.Generics. It's way too slow.
pho@cielonegro.org**20071031023007] {
hunk ./Rakka/Wiki/Engine.hs 129
-          pIsBinary  <- getXPathTreesInDoc "/page/@isBinary/text()" >>> getText -< tree
hunk ./Rakka/Wiki/Engine.hs 131
+          base64Data <- maybeA (getXPathTreesInDoc "/page/binaryData/text()" >>> getText) -< tree
+
+          let dataURI = fmap (binToURI pType) base64Data
hunk ./Rakka/Wiki/Engine.hs 142
-                -> returnA -< [ Paragraph [Image pName Nothing] ]
+                -- <img src="data:image/png;base64,..." />
+                -> returnA -< [ Paragraph [Image (Left $ fromJust dataURI) Nothing] ]
hunk ./Rakka/Wiki/Engine.hs 145
-            _   -> if pIsBinary == "yes" then
-                       returnA -< [ Paragraph [ ObjectLink {
-                                                  objLinkPage = pName
-                                                , objLinkText = Just $ fromMaybe (defaultFileName pType pName) pFileName
-                                                }
+            _   -> if isJust dataURI then
+                       -- <a href="data:application/zip;base64,...">foo.zip</a>
+                       returnA -< [ Paragraph [ Anchor
+                                                [("href", show dataURI)]
+                                                [Text (fromMaybe (defaultFileName pType pName) pFileName)]
hunk ./Rakka/Wiki/Formatter.hs 244
-            -> let uri  = mkObjectURI baseURI src
+            -> let uri  = case src of
+                            Left  uri  -> uri
+                            Right name -> mkObjectURI baseURI name
hunk ./Rakka/Wiki/Interpreter/Image.hs 44
-               return (Anchor anchorAttrs [Image pageName alt])
+               return (Anchor anchorAttrs [Image (Right pageName) alt])
hunk ./Rakka/Wiki/Interpreter/Image.hs 79
-                                                  [ Image pageName Nothing ]) ])
+                                                  [ Image (Right pageName) Nothing ]) ])
hunk ./Rakka/Wiki.hs 77
-        imgSource :: !(PageName)
+        imgSource :: !(Either URI PageName)
hunk ./defaultPages/Help/Syntax 4
-      isBoring="no"
-      lang="en"><!-- FIXME: isBoring="yes" -->
+      isBoring="yes"
+      lang="en">
hunk ./defaultPages/Help/Syntax 7
-  <!-- FIXME: delete this -->
-  <summary>The description of syntax of Rakka</summary>
-
-  <textData><![CDATA[= Syntax Help =
+  <textData><![CDATA[
+= Syntax Help =
hunk ./defaultPages/Help/Syntax 63
+</blockquote>
hunk ./defaultPages/Help/Syntax 101
-
hunk ./defaultPages/MainPage 4
-      isBoring="no"
-      lang="en"><!-- FIXME: isBoring="yes" -->
+      isBoring="yes"
+      lang="en">
hunk ./defaultPages/MainPage 11
-  <!-- FIXME: delete this -->
-  <summary>The main page to be shown as an index page.</summary>
-
hunk ./js/editPage.js 17
-                     var source        = $page.find("source").text();
+                     var source        = $page.find("textData").text();
}