mastodon limits posts to 500
This commit is contained in:
parent
8f79814b38
commit
f2a6f15c42
1 changed files with 16 additions and 10 deletions
|
@ -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?
|
||||
|
|
Reference in a new issue