diff --git a/BlaTeX.hs b/BlaTeX.hs
--- a/BlaTeX.hs
+++ b/BlaTeX.hs
@@ -23,24 +23,53 @@
 
 --Stuff for Dates
 import Data.Dates
+import Data.Char (toUpper)
 
 --Other stuff I'm using
 import Data.List.Split
 import Data.Either
 import Control.Applicative
-import Files
 
 instance Show Html where
   show = renderHtml
 
+--Post {fileName = "example-post", postTitle = "Example Post", postAuthor = "Rushi Shah", postDate = 1 January 2015, 0:0:0, syntaxTree = TeXSeq (TeXComm "documentclass" [FixArg (TeXRaw "article")]) (TeXSeq (TeXRaw "\n") (TeXSeq (TeXComm "author" [FixArg (TeXRaw "Rushi Shah")]) (TeXSeq (TeXRaw "\n") (TeXSeq (TeXComm "date" [FixArg (TeXRaw "1 January 2015")]) (TeXSeq (TeXRaw "\n") (TeXSeq (TeXComm "title" [FixArg (TeXRaw "Example Post")]) (TeXSeq (TeXRaw "\n") (TeXSeq (TeXEnv "document" [] (TeXSeq (TeXRaw "\n") (TeXSeq (TeXCommS "maketitle") (TeXRaw "\nThis is an example LaTeX/PDF post.\n")))) (TeXRaw "\n")))))))))}
+
+-- | 12 months names.
+months :: [String]
+months = ["january",
+          "february",
+          "march",
+          "april",
+          "may",
+          "june",
+          "july",
+          "august",
+          "september",
+          "october",
+          "november",
+          "december"]
+
+-- | capitalize first letter of the string
+capitalize :: String -> String
+capitalize [] = []
+capitalize (x:xs) = (toUpper x):xs
+
+-- | Show name of given month
+showMonth ::  Int -> String
+showMonth i = capitalize $ months !! (i-1)
+
+displayDate :: DateTime -> String
+displayDate (DateTime y m d h mins s) = show d ++ " " ++ showMonth m ++ " " ++ show y
+
 postsToHtml :: [Post] -> Html
 postsToHtml xs = do
   ul ! A.id "blog-posts" $
     forM_ xs h
   where
-    h s = li ! class_ "blog-post" $
-          a ! href (stringValue ("posts/"++fileName s++".pdf")) $
-          toHtml (postTitle s)
+    h s = li ! class_ "blog-post" $ do
+            a ! class_ "post-link" ! href (stringValue ("posts/"++fileName s++".pdf")) $ toHtml (postTitle s)
+            H.div ! class_ "post-date" $ toHtml ((displayDate . postDate) s)
           
 data Post = Post {
   fileName :: String
@@ -49,13 +78,13 @@
   , postDate :: DateTime
   , syntaxTree :: LaTeX
     }
-    deriving (Eq)
+    deriving (Eq, Show)
 
 instance Ord Post where
   compare (Post _ _ _ d1 _) (Post _ _ _ d2 _) = compare d1 d2
 
-instance Show Post where
-  show (Post fn t a d _) = fn ++ " is a post called " ++ t ++ " written by " ++ (a)
+--instance Show Post where
+--  show (Post fn t a d _) = fn ++ " is a post called " ++ t ++ " written by " ++ (a)
 
 getPDF :: FilePath -> Either String String
 getPDF xs = if length splitUp == 2 
diff --git a/blatex.cabal b/blatex.cabal
--- a/blatex.cabal
+++ b/blatex.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                blatex
-version:             0.1.0.7
+version:             0.1.0.8
 synopsis:            Blog in LaTeX
 description:         Static site generator that lets you write your blog in LaTeX and publish it to github pages.
 description:         Markdown and HTML are the standard tools used to write your every day tech blog with. But they have pretty weak support for embedding mathematical formulas, and are not conducive to writing for an extended period of time. Plus, they aren't even Turing complete! So use BlaTeX to start blogging in LaTeX!