featuredComicsItemView :: FeaturedComic -> Html
featuredComicsItemView featuredComic =
  let name = FCo.name featuredComic
  in H.div ! A.class_ "col-md-3" $
    H.a ! A.href (toValue (ComicUrl (FCo.id featuredComic)))
      ! A.class_ "thumbnail" $ do
      H.img ! A.class_ "img-responsive img-circle center-block"
            ! A.src (toValue (getStandardXLarge (FCo.thumbnail featuredComic)))
            ! A.alt (toValue name)
            ! A.title (toValue name)
      H.div ! A.class_ "caption" $
        H.h4 ! A.class_ "text-center text-ellipsis" $ toHtml name
featuredComicsItemView :: FeaturedComic -> Html
featuredComicsItemView featuredComic =
  let name = FCo.name featuredComic
  in H.div ! A.class_ "col-md-3" $
    H.a ! A.href (toValue (ComicUrl (FCo.id featuredComic)))
      ! A.class_ "thumbnail" $ do
      H.img ! A.class_ "img-responsive img-circle center-block"
            ! A.src (toValue (getStandardXLarge (FCo.thumbnail featuredComic)))
            ! A.alt (toValue name)
            ! A.title (toValue name)
      H.div ! A.class_ "caption" $
        H.h4 ! A.class_ "text-center text-ellipsis" $ toHtml name
featuredComicsItemView featuredComic =
  let name = FCo.name featuredComic
  in H.div ! A.class_ "col-md-3" $
    H.a ! A.href (toValue (ComicUrl (FCo.id featuredComic)))
      ! A.class_ "thumbnail" $ do
      H.img ! A.class_ "img-responsive img-circle center-block"
            ! A.src (toValue (getStandardXLarge (FCo.thumbnail featuredComic)))
            ! A.alt (toValue name)
            ! A.title (toValue name)
      H.div ! A.class_ "caption" $
        H.h4 ! A.class_ "text-center text-ellipsis" $ toHtml name