Finish core

This commit is contained in:
Andros Fenollosa 2019-08-04 01:21:44 +02:00
parent e77b46af01
commit 4ceb781e10

View File

@ -54,8 +54,6 @@
[news_stories]
(def history_news_ids (concat history_ids (map #(get-in % ["id"]) news_stories)))
(def history_all (map #(assoc {} :id %) (vec history_news_ids)))
(prn history_all)
(prn (generate-string history_all))
(with-open [w (clojure.java.io/writer path_history :append false)]
(.write w (generate-string history_all)))
)
@ -86,9 +84,7 @@
[]
(def stories_top (filter_stories (get_all_stories url_all_stories)))
(doall (add_history stories_top))
;;(doall (add_history ({"id" 45} {"id" 55})))
(prn stories_top)
)
(doall (send_stories_telegram stories_top)))
(defn -main
"Main execution"