                            (s/select (s/class "ikea-measurements-table-row-child") site-htree))
         filter-fn #(remove cs/blank? (map cs/trim (filter string? (:content %))))]
     (reduce (fn [v m]
-              (conj v (concat (filter-fn m)
-                              (filter-fn (first (s/select (s/class "measure-quantity") m))))))
+              (let [d (filter-fn m)
+                    units (map #(cs/split % #" ") d)]
+                (conj v {:dimensions-and-weight (map #(-> (re-find #"\d+" %) Integer/parseInt) d)
+                         :packages (-> (filter-fn (first (s/select (s/class "measure-quantity") m)))
+                                       first
+                                       (cs/split #" ")
+                                       first
+                                       Integer/parseInt)
+                         :dimension-unit (-> units first last)
+                         :weight-unit (-> units last last)})))
             []
             table-rows)))
 

        "\r\n"
        "\r\n"]}]}]}
  ))

  (Integer/parseInt (nth (cs/split (first coll) #"\s") 2)))

(defn- transform-packages [hick-packages]
  (reduce (fn [v {:keys [dimensions-and-weight packages weight-unit dimension-unit]}]
            (conj v {:width (nth dimensions-and-weight 0)
                     :height (nth dimensions-and-weight 1)
                     :length (nth dimensions-and-weight 2)
                     :weight (nth dimensions-and-weight 3)
                     :quantity packages
                     :weight-unit weight-unit
                     :dimension-unit dimension-unit}))
          []
          hick-packages))

