1 files changed, 23 insertions, 16 deletions
diff --git a/src/View/Html/Ad.hs b/src/View/Html/Ad.hs
index f3d9ece..2d6bdb5 100644
--- a/src/View/Html/Ad.hs
+++ b/src/View/Html/Ad.hs
@@ -32,11 +32,13 @@ import qualified Model.Detail as D
 import Model.URL
 import Model.Config
 
+import View.Html.Design
+
 renderAds :: Config -> [Ad] -> Text
 renderAds config = toStrict . renderHtml . (adsHtml config)
 
 adsHtml :: Config -> [Ad] -> Html
-adsHtml config ads = H.div (mapM_ (adHtml config) ads)
+adsHtml config ads = do mapM_ (adHtml config) ads
 
 adHtml :: Config -> Ad -> Html
 adHtml config ad =
@@ -47,16 +49,18 @@ adHtml config ad =
         detailHtml config detail
 
 resumeHtml :: Resume -> Html
-resumeHtml resume =
-  let title =
-        T.concat
-          [ R.name resume
-          , fromMaybe "" . fmap (\p -> T.concat [" - ", p]) $ R.price resume
-          ]
-      url = R.url resume
-  in  do
-        H.h1 (toHtml title)
-        linkHtml url
+resumeHtml resume = do
+  H.h1 $ do
+    (toHtml . R.name $ resume)
+    case R.price resume of
+      Just price ->
+        H.span
+          ! A.class_ "price"
+          ! A.style (textValue . toStrict $ priceDesign)
+          $ toHtml price
+      Nothing ->
+        H.span ""
+  linkHtml (R.url resume)
 
 detailHtml :: Config -> Detail -> Html
 detailHtml config detail = do
@@ -70,15 +74,16 @@ detailHtml config detail = do
 
 propertiesHtml :: [Text] -> Map Text Text -> Html
 propertiesHtml keys properties =
-  H.dl $
-    sequence_ $ catMaybes $ map (propertyHtml properties) keys
+  H.dl
+    ! A.style (textValue . toStrict $ dlDesign)
+    $ sequence_ (catMaybes $ map (propertyHtml properties) keys)
 
 propertyHtml :: Map Text Text -> Text -> Maybe Html
 propertyHtml properties key =
   fmap
     (\value -> do
-        H.dt (toHtml key)
-        H.dd (toHtml value)
+        H.dt $ (toHtml key)
+        H.dd ! A.style (textValue . toStrict $ ddDesign) $ (toHtml value)
     )
     (M.lookup key properties)
 
@@ -92,4 +97,6 @@ linkHtml url =
 imageLinkHtml :: URL -> Html
 imageLinkHtml url =
   H.a ! A.href (textValue url) $
-    H.img ! A.src (textValue url)
+    H.img
+      ! A.src (textValue url)
+      ! A.alt (textValue url)