code relocation

[Rakka.git] / Rakka / Wiki / Engine.hs

diff --git a/Rakka/Wiki/Engine.hs b/Rakka/Wiki/Engine.hs
index 3b9c6e9f1b0b6ab1bb02f4f286e426dbb41accff..7c4487a3ed178e20518c821861258ba2bae59c19 100644 (file)
--- a/Rakka/Wiki/Engine.hs
+++ b/Rakka/Wiki/Engine.hs
@@ -7,23 +7,18 @@ module Rakka.Wiki.Engine
     )
     where
 
-import qualified Codec.Binary.Base64 as B64
-import           Codec.Binary.UTF8.String
 import           Control.Arrow
 import           Control.Arrow.ArrowIO
 import           Control.Arrow.ArrowList
-import qualified Data.ByteString.Lazy as L
 import           Data.Map (Map)
 import qualified Data.Map as M
 import           Data.Maybe
-import           Data.Time
 import           Network.HTTP.Lucu
 import           Network.URI
 import           Rakka.Page
 import           Rakka.Storage
 import           Rakka.SystemConfig
 import           Rakka.Utils
-import           Rakka.W3CDateTime
 import           Rakka.Wiki
 import           Rakka.Wiki.Parser
 import           Rakka.Wiki.Formatter
@@ -38,89 +33,6 @@ import           Text.XML.HXT.DOM.TypeDefs
 type InterpTable = Map String Interpreter
 
 
-{-
-  <page name="Foo/Bar"
-        type="text/x-rakka"
-        lang="ja"            -- 存在しない場合もある
-        fileName="bar.rakka" -- 存在しない場合もある
-        isTheme="no"         -- text/css の場合のみ存在
-        isFeed="no"          -- text/x-rakka の場合のみ存在
-        isLocked="no"
-        isBinary="no"
-        revision="112">      -- デフォルトでない場合のみ存在
-        lastModified="2000-01-01T00:00:00">
-
-    <summary>
-        blah blah...
-    </summary> -- 存在しない場合もある
-
-    <otherLang> -- 存在しない場合もある
-      <link lang="ja" page="Bar/Baz" />
-    </otherLang>
-
-    <!-- 何れか一方のみ -->
-    <textData>
-      blah blah...
-    </textData>
-    <binaryData>
-      SKJaHKS8JK/DH8KS43JDK2aKKaSFLLS...
-    </binaryData>
-  </page>
--}
-xmlizePage :: (ArrowXml a, ArrowChoice a, ArrowIO a) => a Page XmlTree
-xmlizePage 
-    = proc page
-    -> do lastMod <- arrIO (utcToLocalZonedTime . pageLastMod) -< page
-          ( eelem "/"
-            += ( eelem "page"
-                 += sattr "name" (pageName page)
-                 += sattr "type" (show $ pageType page)
-                 += ( case pageLanguage page of
-                        Just x  -> sattr "lang" x
-                        Nothing -> none
-                    )
-                 += ( case pageFileName page of
-                        Just x  -> sattr "fileName" x
-                        Nothing -> none
-                    )
-                 += ( case pageType page of
-                        MIMEType "text" "css" _
-                            -> sattr "isTheme" (yesOrNo $ pageIsTheme page)
-                        MIMEType "text" "x-rakka" _
-                            -> sattr "isFeed"  (yesOrNo $ pageIsFeed page)
-                        _
-                            -> none
-                    )
-                 += sattr "isLocked" (yesOrNo $ pageIsLocked page)
-                 += sattr "isBoring" (yesOrNo $ pageIsBoring page)
-                 += sattr "isBinary" (yesOrNo $ pageIsBinary page)
-                 += sattr "revision" (show $ pageRevision page)
-                 += sattr "lastModified" (formatW3CDateTime lastMod)
-                 += ( case pageSummary page of
-                        Just s  -> eelem "summary" += txt s
-                        Nothing -> none
-                    )
-                 += ( if M.null (pageOtherLang page) then
-                          none
-                      else
-                          selem "otherLang"
-                                    [ eelem "link"
-                                      += sattr "lang" lang
-                                      += sattr "page" name
-                                          | (lang, name) <- M.toList (pageOtherLang page) ]
-                    )
-                 += ( if pageIsBinary page then
-                          ( eelem "binaryData"
-                            += txt (B64.encode $ L.unpack $ pageContent page)
-                          )
-                      else
-                          ( eelem "textData"
-                            += txt (decode $ L.unpack $ pageContent page)
-                          )
-                    )
-               )) -<< ()
-
-
 wikifyPage :: (ArrowXml a, ArrowChoice a) => InterpTable -> a XmlTree WikiPage
 wikifyPage interpTable
     = proc tree