-
-
-getSiteName :: Environment -> IO String
-getSiteName env
- = return "Rakka" -- FIXME
-
-
-getSiteNameA :: ArrowIO a => Environment -> a b String
-getSiteNameA = arrIO0 . getSiteName
-
-
-getBaseURI :: Environment -> IO URI
-getBaseURI env
- = do let conf = envLucuConf env
- host = C8.unpack $ LC.cnfServerHost conf
- port = case LC.cnfServerPort conf of
- PortNumber num -> fromIntegral num
-
- defaultURI
- = "http://" ++ host ++
- (if port == 80
- then ""
- else ':' : show port) ++ "/"
-
- return $ fromJust $ parseURI defaultURI -- FIXME
-
-
-getBaseURIA :: ArrowIO a => Environment -> a b URI
-getBaseURIA = arrIO0 . getBaseURI
\ No newline at end of file
+ where
+ makeDraft' :: InterpTable -> Page -> IO Document
+ makeDraft' interpTable page
+ = do [doc] <- runX ( setErrorMsgHandler False fail
+ >>>
+ constA page
+ >>>
+ xmlizePage
+ >>>
+ makeDraft interpTable
+ )
+ return doc
+
+
+mkInterpTable :: InterpTable
+mkInterpTable = listToTable $
+ foldl (++) [] [ Base.interpreters
+ , Image.interpreters
+ , PageList.interpreters
+ , Trackback.interpreters
+ , Outline.interpreters
+ ]
+ where
+ listToTable :: [Interpreter] -> InterpTable
+ listToTable xs
+ = M.fromList [ (commandName x, x) | x <- xs ]