 
 (defn get-data
   ([url]
-    (clean-data (get-data-by-url url)))
+    ; (clean-data (get-data-by-url url)))
+    (get-data-by-url url))
   ([subforum-id thread-id]
-    (get-data-by-ids subforum-id thread-id)))+    nil))
+    ; (get-data-by-ids subforum-id thread-id)))
      second
      (Integer/parseInt)))

(defn get-reply-ids
  [rows]
  (for [row rows
    :let [cols        (utils/get-cols  row)
          reply-url   (get-reply-url   cols)
          replies     (get-reply-id    reply-url)]]
    replies))

(defn get-thread-data
  [rows thread-id]
  {
    :id       thread-id
    :replies  (get-reply-ids rows)
  }
)

(defn get-replies-data
  [rows]
  (for [row rows
    :let [cols       (utils/get-cols      row)
          reply-url  (get-reply-url       cols)
          user-url   (utils/get-user-url  cols)]]
    {
      :id         (get-reply-id          reply-url)
      :title      (get-reply-title       cols)
      ; :body       (br/get-reply-data    reply-url)
      :bulbs      (bulbs/get-data        reply-url)
      :url        reply-url
      :post-time  @(get-reply-post-time  cols)
      :user       (utils/get-user-id     user-url)
    }))

(defn get-users-data
  [rows]
  (for [row rows
    :let [cols       (utils/get-cols      row)
          reply-url  (get-reply-url       cols)
          user-url   (utils/get-user-url  cols)]]
    {
      :id    (utils/get-user-id   user-url)
      :name  (utils/get-username  cols)
      :url   user-url
    }))

(defn collate-users
  [rows replies]
  (-> (for [reply replies
        :let [users (:users (:bulbs reply))]
        :when (contains? (:bulbs reply) :users)]
        users)
      (conj (get-users-data rows))
      flatten
      distinct))

(defn get-data-by-ids
  [subforum-id thread-id]
  (let [url    (get-thread-url     subforum-id thread-id)
        table  (get-replies-table  url)
        rows   (utils/get-rows     table)]
    {
      :thread   (get-thread-data   rows thread-id)
      :replies  (get-replies-data  rows)
      :users    (get-users-data    rows)
    }))

(defn get-data-by-url
  [url]
  (let [table       (get-replies-table  url)
        rows        (utils/get-rows     table)
        thread-id   (get-thread-id      url)
        replies     (get-replies-data   rows)]
    {
      :thread   (get-thread-data   rows thread-id)
      :replies  replies
      :users    (collate-users     rows replies)
    }))

(defn rm-users-from-bulb
  [reply]


(defn get-reply-post-time
  [cols]
  @(->  cols
        last
        (:content)
        first
        (t/local-date-time custom-formatter)))

(defn get-thread-id
  [reply-url]
