diff --git a/src/main/mastodon_bot/mastodon_api.cljs b/src/main/mastodon_bot/mastodon_api.cljs index 9a8b839..0d05c65 100755 --- a/src/main/mastodon_bot/mastodon_api.cljs +++ b/src/main/mastodon_bot/mastodon_api.cljs @@ -144,7 +144,7 @@ (.on "response" (fn [image-stream] (post-image mastodon-config image-stream status-text - #(post-status-with-images status-text urls (conj ids %) callback))))) + #(post-status-with-images mastodon-config status-text urls (conj ids %) callback))))) (post-status mastodon-config status-text (not-empty ids) callback)))) (defn-spec get-mastodon-timeline any? @@ -161,7 +161,7 @@ [mastodon-config mastodon-config? last-post-time any? items any?] - (doseq [{:mastodon-bot.mastodon-api/keys [text media-links]} + (doseq [{:keys [text media-links]} (->> items (remove #((blocked-content? mastodon-config (:text %)))) (filter #(> (:created-at %) last-post-time)))] diff --git a/src/test/mastodon_bot/mytest.cljs b/src/test/mastodon_bot/mytest.cljs new file mode 100644 index 0000000..5f40631 --- /dev/null +++ b/src/test/mastodon_bot/mytest.cljs @@ -0,0 +1,28 @@ +(ns mastodon-bot.mytest + (:require + [mastodon-bot.infra :as infra] + [clojure.pprint :refer [pprint]] + [mastodon-bot.mastodon-api :as masto])) + +(defn myconfig [] + (:mastodon-config (infra/load-config))) + +(defn test-timeline [] + (masto/get-mastodon-timeline + (myconfig) + pprint)) + +(defn test-status [] + (masto/post-status + (myconfig) + "test" + nil + pprint)) + +(defn test-status-image [] + (masto/post-status-with-images + (myconfig) + "test2" + ["https://pbs.twimg.com/media/ER3qX2RW4AEhQfW.jpg"] + [] + pprint))