From 75d064d2a6d64002443558300419fa590fb7df8d Mon Sep 17 00:00:00 2001
From: Andros Fenollosa <andros@fenollosa.email>
Date: Fri, 2 Aug 2019 00:01:34 +0200
Subject: [PATCH] Add config

---
 README.md          | 39 ++-----------------------
 project.clj        |  2 ++
 src/isahn/core.clj | 73 ++++++++++++++++++++++++++++++++--------------
 3 files changed, 56 insertions(+), 58 deletions(-)

diff --git a/README.md b/README.md
index 594464a..b797770 100644
--- a/README.md
+++ b/README.md
@@ -1,44 +1,11 @@
 # isahn
 
-FIXME: description
-
 ## Installation
 
-Download from http://example.com/FIXME.
+
+cp config-example.edn config.edn
 
 ## Usage
 
-FIXME: explanation
-
     $ java -jar isahn-0.1.0-standalone.jar [args]
-
-## Options
-
-FIXME: listing of options this app accepts.
-
-## Examples
-
-...
-
-### Bugs
-
-...
-
-### Any Other Sections
-### That You Think
-### Might be Useful
-
-## License
-
-Copyright © 2019 FIXME
-
-This program and the accompanying materials are made available under the
-terms of the Eclipse Public License 2.0 which is available at
-http://www.eclipse.org/legal/epl-2.0.
-
-This Source Code may also be made available under the following Secondary
-Licenses when the conditions for such availability set forth in the Eclipse
-Public License, v. 2.0 are satisfied: GNU General Public License as published by
-the Free Software Foundation, either version 2 of the License, or (at your
-option) any later version, with the GNU Classpath Exception which is available
-at https://www.gnu.org/software/classpath/license.html.
+    
diff --git a/project.clj b/project.clj
index d472855..932b7a2 100644
--- a/project.clj
+++ b/project.clj
@@ -6,6 +6,8 @@
   :dependencies [
                  ; Clojure
                  [org.clojure/clojure "1.10.0"]
+                 ; Get config from .env
+                 [yogthos/config "1.1.4"]
                  ; Client HTTP
                  [clj-http "3.10.0"]
                  ; Parse JSON
diff --git a/src/isahn/core.clj b/src/isahn/core.clj
index 9bf7c32..746ccfb 100644
--- a/src/isahn/core.clj
+++ b/src/isahn/core.clj
@@ -1,40 +1,69 @@
 (ns isahn.core
   (:require
+   [config.core :refer [env]]
+   [clojure.java.io :as io]
    [clj-http.client :as client]
    [cheshire.core :refer :all]
    )
   (:gen-class))
 
+
+" VARIABLES "
+
+" URL send for Telegram "
+(def url_telegram_send (str "https://api.telegram.org/" (:bot_token env) "/sendMessage"))
 " URLs from API Hacker News "
-(def all_stories "https://hacker-news.firebaseio.com/v0/topstories.json")
+(def url_all_stories "https://hacker-news.firebaseio.com/v0/topstories.json")
+" Min score "
+(def min_score (:min_score env))
+" Now unixtime "
+(def now (quot (System/currentTimeMillis) 1000))
+" 24h in unixtime "
+(def unixtime24h 86400)
+" Now - 24h "
+(def min_time (- now unixtime24h))
+" Path file save history "
+(def path_history "isahn_history.json")
+
+" FUNCTIONS "
 
 (defn one_story
+  " Get url from item "
   [id]
   (str "https://hacker-news.firebaseio.com/v0/item/" id ".json"))
 
-" Min score "
-(def min_score 600)
+(defn get_all_stories
+  " Get all stories "
+  [url_all_stories]
+  " Get all ids stories"
+  (def ids_stories (parse-string (:body (client/get url_all_stories {:accept :json}))))
+  " Get all API urls stories "
+  (def urls_stories (map #(one_story %) ids_stories))
+  " Get all data stories "
+  (map #(parse-string (:body (client/get % {:accept :json}))) urls_stories))
+
+(defn filter_stories
+  [stories]
+  " Filter created less 24h "
+  (def stories_24h (filter #(> (get-in % ["time"]) min_time) stories))
+
+  " Filter with score min_score "
+  (filter #(> (get-in % ["score"]) min_score) stories_24h))
 
-(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)
+  []
+  ;; (def stories_top (filter_stories (get_all_stories url_all_stories)))
+  (def history-file (parse-string (io/file path_history)))
+  (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"]
+  ;;                                      :body (generate-string {
+  ;;                                                              :chat_id (:chat env) 
+  ;;                                                              :text (str (get-in % ["title"]) ": " (get-in % ["url"]))
+  ;;                                                              :disable_notification true
+  ;;                                                              })
+  ;;                                      :content-type :json
+  ;;                                      :accept :json})) stories_top))
   )