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

Fix doseq stories

Browse Source
This commit is contained in:
Andros Fenollosa 2019-08-05 10:20:56 +02:00
parent 84831ea7bf
commit a7ffaf6cd8
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/isahn/core.clj
View File

@ -72,23 +72,21 @@
(defn send_stories_telegram
"Send stories by Telegram Channel"
[stories]
(if (not-empty stories) (doall (iterate #((client/post url_telegram_send {:body (json/generate-string {:chat_id (:chat env)
:text (str (get-in % ["title"]) ": " (get-in % ["url"]))
(doseq [story stories] (client/post url_telegram_send {:body (json/generate-string {:chat_id (:chat env)
:text (str (get-in story ["title"]) ": " (get-in story ["url"]))
:disable_notification true})
:content-type :json
:accept :json})) stories))))
:accept :json})))
(defn check_stories
"Check news stories and send message to Telegram"
[]
(let [stories_top (filter_stories (get_all_stories url_all_stories))]
(doall (add_history stories_top))
(doall (send_stories_telegram stories_top))))
(add_history stories_top)
(send_stories_telegram stories_top)))
(defn -main
"Main execution"
[]
;; Run first time
(check_stories)
;; Run every :run_every_miliseconds
(set-interval check_stories (:run_every_miliseconds env)))
(check_stories))