Fix heroku-related issues

- compile brings in explore.clj & runs it. use (comment...) - needed to deal with adamwynne/twitter-api#74
rogerallen · Feb 24, 2020 · abef676 · abef676
1 parent a151edf
commit abef676
Show file tree

Hide file tree

Showing 3 changed files with 104 additions and 92 deletions.
diff --git a/src/tweegeemee/core.clj b/src/tweegeemee/core.clj
@@ -287,4 +287,7 @@
   (cleanup-our-files!)
   (println "posting complete.")
   (shutdown-agents) ;; quit faster
+  (println "shutdown agents")
+  (twitter/stop)
+  (println "stopped twitter")
   0) ;; return 0 status so we don't look like we crashed
diff --git a/src/tweegeemee/explore.clj b/src/tweegeemee/explore.clj
@@ -84,91 +84,94 @@
 ;; ======================================================================
 ;; (ns tweegeemee.explore)
 
-;; be sure to get this setup
-(tgm/setup-env!)
-
-;; generate & show a random image
-(let [c (tgm/get-random-code)]
-  (show (eval c)))
-
-;; breed images by hand...
-(def rents (tgm/get-parent-tweets 5))
-(def dad (:code (rand-nth rents)))
-(def mom (:code (rand-nth rents)))
-(show (eval dad))
-(show (eval mom))
-(let [c (tgm/get-random-child dad mom)]
-  (if (not (nil? c))
-    (show (eval c))))
-
-;; breed mutants by hand...
-(def rents (tgm/get-parent-tweets 5))
-(def dad (:code (rand-nth rents)))
-(show (eval dad))
-(let [c (tgm/get-random-mutant dad)]
-  (if (not (nil? c))
-    (show (eval c))))
-
-;; Look at the frequency of instructions
-(def archive (gists/read-archive tgm/my-gist-auth tgm/my-gist-archive-id))
-(defn get-fns [s]
-  (filter #(not= % "")
-          (-> (clojure.string/replace s #"clisk.live/|\(|\)|\[|\]|\.|[0-9]" "")
-              (clojure.string/replace #" -" "")
-              (clojure.string/split #" "))))
-(println (sort-by val (frequencies (sort (mapcat #(get-fns (:code %)) archive)))))
-(println (sort-by val (frequencies (sort (mapcat #(get-fns (:code %)) (drop 200 archive))))))
-
-;; ----------------------------------------------------------------------
-;; NOTE that code below this point posts to the web
-;; Careful!
-(tgm/post-random-batch-to-web "r")
-
-;; Careful!
-(tgm/post-children-to-web "AB")
-
-;; Careful!
-(tgm/post-mutants-to-web "M")
-
-;; post a status
-(twitter/post-status tgm/my-twitter-creds "Hey, is this on? Testing!")
-
-;; genealogy
-(def rents (tgm/get-parent-tweets 5))
-(def data (gists/read-archive tgm/my-gist-auth tgm/my-gist-archive-id))
-
-(def parent-map (apply hash-map
-                       (mapcat
-                        #(let [v (select-keys % [:name :parents])]
-                           [(:name v) (:parents v)])
-                        data)))
-(defn get-by-name [name] (first (filter #(= name (:name %)) data)))
-
-(def cur (nth rents 1))
-(show (eval (:code cur)))
-(def cur (get-by-name (first (:parents cur))))
-(def cur (get-by-name (second (:parents cur))))
-
-(show (eval (:code (nth rents 1))) :width 900 :height 900)
-
-;; Facebook update helpers
-(tgm/print-top-n
- (partial twitter/get-todays-statuses tgm/my-twitter-creds tgm/my-screen-name)
- 5)
-
-;; geneaology (start with a good name)
-(def layout (tgm/layout-generations "200223_100825_D.clj" parent-map))
-
-;; render tiles (mkdir images/tiles)
-(tgm/render-statuses (sort (distinct (map #(nth % 3) layout))) 64)
-
-;; print for use in ipython to create the final image
-(map #(println (apply format "[%d, %d, %d, '%s']," %)) layout)
-
-;; rate limit issue?
-;;(-> (tw/application-rate-limit-status :oauth-creds @my-twitter-creds)
-;;    :body
-;;    :resources
-;;    :statuses
-;;    :/statuses/user_timeline)
-;; {:limit 180, :remaining 180, :reset 1455205245}
+(comment
+
+  ;; be sure to get this setup
+  (tgm/setup-env!)
+
+  ;; generate & show a random image
+  (let [c (tgm/get-random-code)]
+    (show (eval c)))
+
+  ;; breed images by hand...
+  (def rents (tgm/get-parent-tweets 5))
+  (def dad (:code (rand-nth rents)))
+  (def mom (:code (rand-nth rents)))
+  (show (eval dad))
+  (show (eval mom))
+  (let [c (tgm/get-random-child dad mom)]
+    (if (not (nil? c))
+      (show (eval c))))
+
+  ;; breed mutants by hand...
+  (def rents (tgm/get-parent-tweets 5))
+  (def dad (:code (rand-nth rents)))
+  (show (eval dad))
+  (let [c (tgm/get-random-mutant dad)]
+    (if (not (nil? c))
+      (show (eval c))))
+
+  ;; Look at the frequency of instructions
+  (def archive (gists/read-archive tgm/my-gist-auth tgm/my-gist-archive-id))
+  (defn get-fns [s]
+    (filter #(not= % "")
+            (-> (clojure.string/replace s #"clisk.live/|\(|\)|\[|\]|\.|[0-9]" "")
+                (clojure.string/replace #" -" "")
+                (clojure.string/split #" "))))
+  (println (sort-by val (frequencies (sort (mapcat #(get-fns (:code %)) archive)))))
+  (println (sort-by val (frequencies (sort (mapcat #(get-fns (:code %)) (drop 200 archive))))))
+
+  ;; ----------------------------------------------------------------------
+  ;; NOTE that code below this point posts to the web
+  ;; Careful!
+  (tgm/post-random-batch-to-web "r")
+
+  ;; Careful!
+  (tgm/post-children-to-web "AB")
+
+  ;; Careful!
+  (tgm/post-mutants-to-web "M")
+
+  ;; post a status
+  (twitter/post-status tgm/my-twitter-creds "Hey, is this on? Testing!")
+
+  ;; genealogy
+  (def rents (tgm/get-parent-tweets 5))
+  (def data (gists/read-archive tgm/my-gist-auth tgm/my-gist-archive-id))
+
+  (def parent-map (apply hash-map
+                         (mapcat
+                          #(let [v (select-keys % [:name :parents])]
+                             [(:name v) (:parents v)])
+                          data)))
+  (defn get-by-name [name] (first (filter #(= name (:name %)) data)))
+
+  (def cur (nth rents 1))
+  (show (eval (:code cur)))
+  (def cur (get-by-name (first (:parents cur))))
+  (def cur (get-by-name (second (:parents cur))))
+
+  (show (eval (:code (nth rents 1))) :width 900 :height 900)
+
+  ;; Facebook update helpers
+  (tgm/print-top-n
+   (partial twitter/get-todays-statuses tgm/my-twitter-creds tgm/my-screen-name)
+   5)
+
+  ;; geneaology (start with a good name)
+  (def layout (tgm/layout-generations "200223_100825_D.clj" parent-map))
+
+  ;; render tiles (mkdir images/tiles)
+  (tgm/render-statuses (sort (distinct (map #(nth % 3) layout))) 64)
+
+  ;; print for use in ipython to create the final image
+  (map #(println (apply format "[%d, %d, %d, '%s']," %)) layout)
+
+  ;; rate limit issue?
+  ;;(-> (tw/application-rate-limit-status :oauth-creds @my-twitter-creds)
+  ;;    :body
+  ;;    :resources
+  ;;    :statuses
+  ;;    :/statuses/user_timeline)
+  ;; {:limit 180, :remaining 180, :reset 1455205245}
+  )
diff --git a/src/tweegeemee/twitter.clj b/src/tweegeemee/twitter.clj
@@ -1,12 +1,13 @@
 (ns tweegeemee.twitter
   (:require
-   [twitter.api.restful :as tw]
-   [twitter.oauth       :as tw-oauth]
-   [twitter.request     :as tw-req]
    [clj-time.core       :as t]
    [clj-time.format     :as tf]
    ;;[clj-time.periodic   :as tp]
-   ))
+   [twitter.core]
+   [twitter.api.restful :as tw]
+   [twitter.oauth       :as tw-oauth]
+   [twitter.request     :as tw-req]
+   [http.async.client   :as http]))
 
 ;; ======================================================================
 (def DEBUG-NO-POSTING  false) ;; set true when you don't want to post
@@ -141,3 +142,8 @@
         :oauth-creds @oauth-creds
         :params {:status status-str})
        (catch Exception e (println "Oh no! " (.getMessage e)))))
+
+;; see https://github.com/adamwynne/twitter-api/issues/74
+(defn stop
+  []
+  (http/close (twitter.core/default-client)))