 
 (mg/set-db! (mg/get-db "test"))
 
-(declare extract-text)
+(declare extract-text extract-tieba)
 
 (defn integrate-text
   [& {:as source}]

(defn extract-text
  [source-key source-address]
  (cond (= source-key :tianya) (println "This is tianya")
        (= source-key :tieba) (mc/find-maps source-address)
        (= source-key :weibo) (println "This is weibo")
        (= source-key :douban) (println "This is douban")
        (= source-key :youku) (println "This is youku")))

(defn extract-tianya
  [source-address]
  (let [m (mc/find-maps source-address)])
  (select-keys)
  )





(mc/find-maps "star_baidutieba_contents")




(flatten [[{:a 2} {:b 3}] [{:c 4} {:d 5}]])


