dixie
diff --git a/‎src/Codec/Archive/OCF.hs renamed to ‎src/Codec/EBook/OCF.hs b/‎src/Codec/Archive/OCF.hs renamed to ‎src/Codec/EBook/OCF.hs
diff --git a/‎src/Codec/Archive/OPF.hs renamed to ‎src/Codec/EBook/OPF.hs b/‎src/Codec/Archive/OPF.hs renamed to ‎src/Codec/EBook/OPF.hs
diff --git a/‎src/Codec/EBook/Types.hs
Lines changed: 37 additions & 0 deletions b/‎src/Codec/EBook/Types.hs
Lines changed: 37 additions & 0 deletions
@@ -0,0 +1,37 @@
+-- Book Types definition
+
+module Codec.EBook.Types (
+   Book(..),
+   BookItem(..),
+   Metadata(..),
+   emptyBook,
+   addItem2Book
+) 
+where
+
+data Book = Book { 
+               bookID     :: String,
+               bookTitle  :: String,
+               bookAuthor :: String, 
+               bookLang   :: String,
+               bookItems  :: [BookItem]
+            } deriving (Show, Ord, Eq)
+
+data BookItem = BookItem {
+               itemFileName  :: String,
+               itemContent   :: String,
+               itemMediaType :: String,
+               itemMetadata  :: Maybe Metadata
+            } deriving (Show, Ord, Eq)
+
+data Metadata = ChapterMetadata {
+                chapterTitle :: String
+            } deriving (Show, Ord, Eq)
+
+emptyBook :: Book
+emptyBook = Book "NO ID" "NO TITLE" "NO AUTHOR" "en" []
+
+addItem2Book :: Book -> BookItem -> Book
+addItem2Book book item = book { bookItems = newItems }
+       where
+          newItems = (bookItems book) ++ [item]