From 516ec4bd24e81e8615cdc91f849c7ac9bfa3d8d0 Mon Sep 17 00:00:00 2001 From: John Wiseman Date: Sat, 28 Dec 2019 22:26:38 -0800 Subject: [PATCH] Logging tweaks. --- src/main/lemondronor/circlebot.cljs | 6 +++--- src/main/lemondronor/circlebot/twitter.cljs | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/main/lemondronor/circlebot.cljs b/src/main/lemondronor/circlebot.cljs index a929049..249b627 100644 --- a/src/main/lemondronor/circlebot.cljs +++ b/src/main/lemondronor/circlebot.cljs @@ -188,7 +188,7 @@ ;; :viewport {:width 1600 :height 800} ;; :clip {:width 1600 :height 800 :x 0 :y 0} :vrs-settings (fs/readFileSync "vrs-settings.json" "utf-8")})] - (log-warn "%s: Got screenshot" icao) + (log-verbose "%s: Got screenshot" icao) image-path)) @@ -405,7 +405,7 @@ (get-in f [:properties :label] f) (get-in f [:properties :addendum] f))) (let [description (generate-description ac sqb coarse wiki-nearby nearby)] - (log-warn "Description: %s" description) + (log-info "Description: %s" description) description))]) (fn [[image-path description]] (if (or (nil? coarse) @@ -480,7 +480,7 @@ (write-history-db new-db history-db-path) (let [end-time (current-time)] (log-info - "Completed processing in %s seconds: tracking %s aircraft; %s potential circles" + "Completed processing in %f seconds: tracking %s aircraft; %s potential circles" (/ (- end-time start-time) 1000) (count new-db) (count potential-circles))))))))) diff --git a/src/main/lemondronor/circlebot/twitter.cljs b/src/main/lemondronor/circlebot/twitter.cljs index 26dc9f8..58659df 100644 --- a/src/main/lemondronor/circlebot/twitter.cljs +++ b/src/main/lemondronor/circlebot/twitter.cljs @@ -38,7 +38,7 @@ (defn tweet [twit status image-paths lat lon] (p/then (p/all (map #(upload-image twit %) image-paths)) (fn [media-ids] - (log-info "Tweeting status:'%s' with media: %s" status media-ids) + (log-warn "Tweeting status:'%s' with media: %s" status media-ids) (p/let [result (.post twit "statuses/update" (clj->js {:status status :media_ids [media-ids]