                         ["eve@polyc0l0r.net"
                          #uuid "b09d8708-352b-4a71-a845-5f838af04116"
                          "master"]
-                        [{:db/id post-id
-                          :title (apply str (take 10 text))
-                          :detail-url (first urls)
-                          :detail-text text
-                          :user user
-                          :ts ts}]
+                        (concat [{:db/id post-id
+                                  :title (str (apply str (take 40 text)) "...")
+                                  :detail-url (first urls)
+                                  :detail-text  text
+                                  :user user
+                                  :ts ts}]
+                                (map (fn [t] {:db/id (uuid)
+                                             :post post-id
+                                             :tag (keyword t)
+                                             :ts ts}) hash-tags))
                         '(fn [old params]
                            (:db-after (d/transact old params)))))
         (<! (s/commit! stage

                            #uuid "b09d8708-352b-4a71-a845-5f838af04116"
                            "master"])))

  (d/q '[:find ?p (max 10 ?t)
         :in $ ?amount
         :where [?h :post ?p]

      (om/transact app)

      (recur (<! val-ch))))
  [{:db/id post-id
    :title "How to get a Designer"
    :detail-url "https://medium.com/coding-design/how-to-get-a-designer-b3afdf5a853d"
    :detail-text "Just some thoughts ..."
    :user "jane"
    :ts ts}
   {:db/id (uuid)
    :post post-id
    :content "awesome :D"
    :user "adam"
    :date "today"}
   {:db/id (uuid)
    :post post-id
    :tag :#coding}
   {:db/id (uuid)
    :post post-id
    :tag :#design}
   {:db/id (uuid)
    :post post-id
    :user "adam"
    :text "awesome :D"
    :date "today"}])
