             [clj-http.client :as http]
             [clojure.core.memoize :as memo]
             [clojure.tools.logging :as log]
+            [clojure.string :as str]
             [hiccup.core :as h]))
 
 (def ph-comments

                          last
                          (get "user"))]
         [:div.ph-hunter
          [:img.avatar {:src (get-in voter ["image_url" "30px"])}]])]
      [:div.ph-comments-icon ph-comments]
      [:div.ph-comments-count (make-link (get info "comments_count"))]])))

      (log/infof "Error getting post info for %s" post-id)
      (fallback-info post-id))))

(defn https-ify-url [url]
  (str/replace url #"^http:" "https:"))

(defn product-hunt-component [post-id]
  (let [info (post-info post-id)
        make-link (fn [content]
