41 lines
1021 B
Clojure
41 lines
1021 B
Clojure
|
(ns isahn.core
|
||
|
|
(:require
|
||
|
|
[clj-http.client :as client]
|
||
|
|
[cheshire.core :refer :all]
|
||
|
|
)
|
||
|
|
(:gen-class))
|
||
|
|
|
||
|
|
" URLs from API Hacker News "
|
||
|
|
(def all_stories "https://hacker-news.firebaseio.com/v0/topstories.json")
|
||
|
|
|
||
|
|
(defn one_story
|
||
|
|
[id]
|
||
|
|
(str "https://hacker-news.firebaseio.com/v0/item/" id ".json"))
|
||
|
|
|
||
|
|
" Min score "
|
||
|
|
(def min_score 600)
|
||
|
|
|
||
|
|
(def now (quot (System/currentTimeMillis) 1000))
|
||
|
|
(def unixtime24h 86400)
|
||
|
|
|
||
|
|
(defn -main
|
||
|
|
"Main execution"
|
||
|
|
[& args]
|
||
|
|
" Get all ids stories"
|
||
|
|
(def ids_stories (parse-string (:body (client/get all_stories {:accept :json}))))
|
||
|
|
|
||
|
|
" Get all API urls stories "
|
||
|
|
(def urls_stories (map #(one_story %) ids_stories))
|
||
|
|
|
||
|
|
" Get all data stories "
|
||
|
|
(def stories (map #(parse-string (:body (client/get % {:accept :json}))) urls_stories))
|
||
|
|
|
||
|
|
" Filter created less 24h "
|
||
|
|
(def stories_24h (filter #(> (get-in % ["time"]) (- now unixtime24h)) stories))
|
||
|
|
|
||
|
|
" Filter with score min_score "
|
||
|
|
(def stories_top (filter #(> (get-in % ["score"]) min_score) stories_24h))
|
||
|
|
|
||
|
|
(prn stories_top)
|
||
|
|
)
|