myBlogPost :: Post -> Html
myBlogPost post@Post{..} =
  let metaHtml k f = maybeRender (f . pandocUnmeta)
                   $ lookupMeta k (pandocMeta postContent)
  in do
  myBlogHeader
  div ! class_ "content" $ do
    div ! class_ "post" $ do
      metaHtml "title" (h1.string)
      metaHtml "subtitle" (\s -> i (string s) <> br <> br)
      p ! A.style "color:gray;" $ do
        metaHtml "date" string
        metaHtml "updated" (\s -> string $ "(updated " <> s <> ")")
      renderPandoc postContent
  -- TODO footer
myBlogPost :: Post -> Html
myBlogPost post@Post{..} =
  let metaHtml k f = maybeRender (f . pandocUnmeta)
                   $ lookupMeta k (pandocMeta postContent)
  in do
  myBlogHeader
  div ! class_ "content" $ do
    div ! class_ "post" $ do
      metaHtml "title" (h1.string)
      metaHtml "subtitle" (\s -> i (string s) <> br <> br)
      p ! A.style "color:gray;" $ do
        metaHtml "date" string
        metaHtml "updated" (\s -> string $ "(updated " <> s <> ")")
      renderPandoc postContent
  -- TODO footer
myBlogPost post@Post{..} =
  let metaHtml k f = maybeRender (f . pandocUnmeta)
                   $ lookupMeta k (pandocMeta postContent)
  in do
  myBlogHeader
  div ! class_ "content" $ do
    div ! class_ "post" $ do
      metaHtml "title" (h1.string)
      metaHtml "subtitle" (\s -> i (string s) <> br <> br)
      p ! A.style "color:gray;" $ do
        metaHtml "date" string
        metaHtml "updated" (\s -> string $ "(updated " <> s <> ")")
      renderPandoc postContent
  -- TODO footer