Finish core
This commit is contained in:
parent
e77b46af01
commit
4ceb781e10
@ -54,8 +54,6 @@
|
|||||||
[news_stories]
|
[news_stories]
|
||||||
(def history_news_ids (concat history_ids (map #(get-in % ["id"]) 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)))
|
(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)]
|
(with-open [w (clojure.java.io/writer path_history :append false)]
|
||||||
(.write w (generate-string history_all)))
|
(.write w (generate-string history_all)))
|
||||||
)
|
)
|
||||||
@ -86,9 +84,7 @@
|
|||||||
[]
|
[]
|
||||||
(def stories_top (filter_stories (get_all_stories url_all_stories)))
|
(def stories_top (filter_stories (get_all_stories url_all_stories)))
|
||||||
(doall (add_history stories_top))
|
(doall (add_history stories_top))
|
||||||
;;(doall (add_history ({"id" 45} {"id" 55})))
|
(doall (send_stories_telegram stories_top)))
|
||||||
(prn stories_top)
|
|
||||||
)
|
|
||||||
|
|
||||||
(defn -main
|
(defn -main
|
||||||
"Main execution"
|
"Main execution"
|
||||||
|
Loading…
Reference in New Issue
Block a user