Adding homeshop18

swaroopch · Jul 27, 2013 · 39c6f61 · 39c6f61
1 parent dc61278
commit 39c6f61
Show file tree

Hide file tree

Showing 2 changed files with 28 additions and 2 deletions.
diff --git a/resources/book.mustache b/resources/book.mustache
@@ -72,6 +72,12 @@
             <td>{{priceInfibeam}}</td>
           </tr>
         {{/priceInfibeam}}
+        {{#priceHomeshop18}}
+          <tr>
+            <th>Homeshop18</th>
+            <td>{{priceHomeshop18}}</td>
+          </tr>
+        {{/priceHomeshop18}}
       </table>
     </div>
   </div>

diff --git a/src/isbnnetinclj2/store.clj b/src/isbnnetinclj2/store.clj
@@ -103,14 +103,34 @@
                      [:span.infiPrice])}))
 
 
+(defn homeshop18-url
+  [isbn]
+  (format
+   "http://www.homeshop18.com/%s/search:%s/categoryid:10000/"
+   isbn
+   isbn))
+
+
+(defn fetch-homeshop18
+  [isbn]
+  (log/debug (format "Fetching homeshop18 for %s" isbn))
+  (let [url (homeshop18-url isbn)
+        content (utils/fetch-page url)]
+    {:priceHomeshop18 (parse-price-from-content
+                       content
+                       [:span#hs18Price])}))
+
+
 (defn book-page
   [isbn]
   (let [flipkart-details (fetch-flipkart isbn)
-        infibeam-details (fetch-infibeam isbn)]
+        infibeam-details (fetch-infibeam isbn)
+        homeshop18-details (fetch-homeshop18 isbn)]
     (mus/render-file "book"
                      (reduce
                       merge
                       {:isbn isbn
                        :pageTitle (:title flipkart-details)}
                       [flipkart-details
-                       infibeam-details]))))
+                       infibeam-details
+                       homeshop18-details]))))