andros/important-stories-alert-for-hacker-news
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

Finish core

Browse Source
This commit is contained in:
Andros Fenollosa 2019-08-04 01:21:44 +02:00
parent e77b46af01
commit 4ceb781e10
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/isahn/core.clj
View File

@ -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"