diff --git a/src/main/mastodon_bot/mastodon_api.cljs b/src/main/mastodon_bot/mastodon_api.cljs
index 93d3dd3..8217d28 100755
--- a/src/main/mastodon_bot/mastodon_api.cljs
+++ b/src/main/mastodon_bot/mastodon_api.cljs
@@ -24,7 +24,7 @@
 (s/def ::replacements string?)
 (s/def ::max-post-length (fn [n] (and
                                  (int? n)
-                                 (<= n 600)
+                                 (<= n 500)
                                  (> n 0))))
 
 (s/def ::content-filters (s/* ::content-filter))
@@ -108,17 +108,23 @@
 
 (defn post-status
   ([mastodon-config status-text]
-   (post-status mastodon-config status-text nil))
+   (post-status mastodon-config status-text nil print))
   ([mastodon-config status-text media-ids]
+   (post-status mastodon-config status-text media-ids print))
+  ([mastodon-config status-text media-ids callback]
    (let [{:keys [sensitive? signature visibility]} mastodon-config]
-     (.post (mastodon-client mastodon-config) "statuses"
-          (clj->js (merge {:status (-> status-text
-                                       (partial resolve-urls mastodon-config)
-                                       (partial perform-replacements mastodon-config)
-                                       (partial set-signature mastodon-config))}
-                          (when media-ids {:media_ids media-ids})
-                          (when sensitive? {:sensitive sensitive?})
-                          (when visibility {:visibility visibility})))))))
+     (println sensitive?)
+     (println signature)
+     (println visibility)
+     (-> (.post (mastodon-client mastodon-config) "statuses"
+                (clj->js (merge {:status (-> status-text
+                                             (partial resolve-urls mastodon-config)
+                                             (partial perform-replacements mastodon-config)
+                                             (partial set-signature mastodon-config))}
+                                (when media-ids {:media_ids media-ids})
+                                (when sensitive? {:sensitive sensitive?})
+                                (when visibility {:visibility visibility}))))
+         (.then #(-> % callback))))))
 
 (defn-spec post-image any?
   [mastodon-config mastodon-config?