   (if (pos? (:messages_left @state))
     [:div {:class "media message-item"}
      [:div {:class "media-body"}
-      [:span [:a {:href     "#" 
+      [:span [:a {:href     "#"
                   :id    "loadmore"
                   :on-click #(do
                                (init-data state)

     [message-list messages state]]))


(defn badge-message-handler [badge_id reload-fn]
  (let [state (atom {:messages [] 
                     :user_id (session/get-in [:user :id])
                     :user_role (session/get-in [:user :role])
                     :message ""
                     :badge_id badge_id
                     :show false
                     :page_count 0
                     :messages_left 0
                     :start-following false})
        reload-fn (or reload-fn (fn []))]
    
    (init-data state)
    (fn []
      (content state reload-fn))))

                    (do
                      (let [current (conj str1 " ")]
                        (conj current str2))))]
    (reduce str-space ()  a-seq)))

(defn search-and-replace-www [text]
  (let [split-words (clojure.string/split text #" ")
        helper (fn [current item]
                 (if (or (re-find #"www." item) (re-find #"^https?://" item) (re-find #"^http?://" item))
                   (conj current (hyperlink item))
                   (conj current (str item))))]
    (blank-reduce (reduce helper () split-words))))

(defn message-list-item [{:keys [message first_name last_name ctime id profile_picture user_id]} state]
