From 0a4d3c8f12dc5797a919a00b6bcaf759947687cc Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 17 Jun 2018 23:24:47 +0200
Subject: Add ouest france parser

---
 src/executable/haskell/View/Ad.hs | 58 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 src/executable/haskell/View/Ad.hs

(limited to 'src/executable/haskell/View/Ad.hs')

diff --git a/src/executable/haskell/View/Ad.hs b/src/executable/haskell/View/Ad.hs
new file mode 100644
index 0000000..ba0c550
--- /dev/null
+++ b/src/executable/haskell/View/Ad.hs
@@ -0,0 +1,58 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module View.Ad
+  ( renderConsoleAds
+  , renderAds
+  ) where
+
+import qualified Data.Maybe as Maybe
+import           Data.Text  (Text)
+import qualified Data.Text  as T
+
+import           Model.Ad   (Ad)
+import qualified Model.Ad   as Ad
+
+renderConsoleAds :: Text -> [Ad] -> Text
+renderConsoleAds time ads =
+  let (title, message) = renderAds ads
+      titleWithTime =
+        T.concat
+          [ "\n["
+          , time
+          , "] "
+          , title
+          ]
+      line = T.map (\_ -> '-') titleWithTime
+  in  T.intercalate
+        "\n"
+        [ titleWithTime
+        , line
+        , ""
+        , message
+        ]
+
+renderAds :: [Ad] -> (Text, Text)
+renderAds ads =
+  let titleMessage = renderTitle $ length ads
+      adsMessage = T.intercalate "\n\n" . map renderAd $ ads
+  in  (titleMessage, adsMessage)
+
+renderTitle :: Int -> Text
+renderTitle count =
+  T.concat
+    [ T.pack . show $ count
+    , agreement " nouvelle"
+    , agreement " annonce"
+    ]
+  where agreement word =
+          T.concat
+            [ word
+            , if count > 1 then "s" else ""
+            ]
+
+renderAd :: Ad -> Text
+renderAd ad =
+  let formatPrice price = T.concat [" - ", price]
+      getPrice = Maybe.fromMaybe "" . fmap formatPrice . Ad.price $ ad
+      titleLine = T.concat [Ad.name ad, Ad.location ad, getPrice]
+  in  T.intercalate "\n" [titleLine, Ad.url ad]
-- 
cgit v1.2.3