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

Add histories

Browse Source
This commit is contained in:
Andros Fenollosa 2019-08-03 12:34:36 +02:00
parent dd9e0b5000
commit d55d95cc57
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/isahn/core.clj
View File

@ -24,6 +24,7 @@
(def min_time (- now unixtime24h)) (def min_time (- now unixtime24h))
" Path file save history " " Path file save history "
(def path_history "isahn_history.json") (def path_history "isahn_history.json")
(def history (if (.exists (io/file path_history)) (parse-string (slurp (io/file path_history)) true) (str "")))
" FUNCTIONS " " FUNCTIONS "
@ -47,17 +48,18 @@
" Filter created less 24h " " Filter created less 24h "
(def stories_24h (filter #(> (get-in % ["time"]) min_time) stories)) (def stories_24h (filter #(> (get-in % ["time"]) min_time) stories))
" Filter history "
(def stories_without_histories (filter #(contains? history (get-in % ["id"])) stories_24h))
" Filter with score min_score " " Filter with score min_score "
(filter #(> (get-in % ["score"]) min_score) stories_24h)) (filter #(> (get-in % ["score"]) min_score) stories_without_histories))
(defn -main (defn -main
"Main execution" "Main execution"
[] []
;; (def stories_top (filter_stories (get_all_stories url_all_stories))) (def stories_top (filter_stories (get_all_stories url_all_stories)))
(def history-file (parse-string (io/file path_history))) (prn stories_top)
(prn (slurp data-file))
;https://stackoverflow.com/questions/7756909/in-clojure-1-3-how-to-read-and-write-a-file
;; (doall (iterate #((client/post url_telegram_send {:basic-auth ["user" "pass"] ;; (doall (iterate #((client/post url_telegram_send {:basic-auth ["user" "pass"]
;; :body (generate-string { ;; :body (generate-string {
;; :chat_id (:chat env) ;; :chat_id (:chat env)