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

Remove old function

Browse Source
This commit is contained in:
Andros Fenollosa 2019-08-06 09:39:17 +02:00 committed by GitHub
parent cea95ec2cf
commit 58f40a75fb
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/isahn/core.clj
View File

@ -33,7 +33,7 @@
(str "https://hacker-news.firebaseio.com/v0/item/" id ".json")) (str "https://hacker-news.firebaseio.com/v0/item/" id ".json"))
(defn get_all_stories (defn get_all_stories
" Get all stories " "Get all stories"
[url_all_stories] [url_all_stories]
;; Get all ids stories ;; Get all ids stories
(let [;; Get all API urls stories (let [;; Get all API urls stories
@ -42,14 +42,9 @@
urls_stories (map one_story ids_stories)] urls_stories (map one_story ids_stories)]
(map #(json/parse-string (:body (client/get % {:accept :json}))) urls_stories))) (map #(json/parse-string (:body (client/get % {:accept :json}))) urls_stories)))
(defn lazy-contains? [col key] (defn lazy_contains? [col key]
(some #{key} col)) (some #{key} col))
(defn set-interval
"Run function every ms"
[callback ms]
(future (while true (do (Thread/sleep ms) (callback)))))
(defn add_history (defn add_history
"Add to file history news_stories" "Add to file history news_stories"
[news_stories] [news_stories]
@ -64,7 +59,7 @@
;; Filter created less 24h ;; Filter created less 24h
(let [stories_24h (filter #(> (get-in % ["time"]) min_time) stories) (let [stories_24h (filter #(> (get-in % ["time"]) min_time) stories)
;; Filter history ;; Filter history
stories_without_histories (filter #(not (lazy-contains? history_ids (get-in % ["id"]))) stories_24h)] stories_without_histories (filter #(not (lazy_contains? history_ids (get-in % ["id"]))) stories_24h)]
;; Filter with score min_score ;; Filter with score min_score
(filter #(> (get-in % ["score"]) min_score) stories_without_histories))) (filter #(> (get-in % ["score"]) min_score) stories_without_histories)))