- epublish :: a -> FilePath -> Integer -> IO ()
- epublish obj path time = do
- let book_name = title obj
- let book =
- emptyBook {
- bookID = "http://lwn.net/" ++ book_name,
- bookAuthor = "LWN <http://lwn.net> Copyright Eklektix, Inc.",
- bookTitle = book_name
- }
+ metadata :: a -> IO String
+ metadata obj = do
+ date <- getCurrentTime
+ return $
+ "<dc:creator>http://lwn.net/</dc:creator>\n" ++
+ "<dc:date>" ++ (show date) ++ "</dc:date>\n" ++
+ "<dc:language>en-US</dc:language>\n" ++
+ "<dc:rights>Copyright Eklektix, Inc.</dc:rights>\n" ++
+ "<dc:title>" ++ (title obj) ++ "</dc:title>\n"
+
+ epublish :: a -> FilePath -> IO ()
+ epublish obj path = do