meissa
/
mastodon-bot
Archived
7
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

learn usage of thread-last

Browse Source
master
jem 4 years ago
parent 418ff67282
commit 2187df1058
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

8
src/main/mastodon_bot/mastodon_api.cljs
Unescape Escape View File

@ -114,10 +114,10 @@
([mastodon-config status-text media-ids callback] ([mastodon-config status-text media-ids callback]
(let [{:mastodon-bot.mastodon-api/keys [sensitive? signature visibility]} mastodon-config] (let [{:mastodon-bot.mastodon-api/keys [sensitive? signature visibility]} mastodon-config]
(-> (.post (mastodon-client mastodon-config) "statuses" (-> (.post (mastodon-client mastodon-config) "statuses"
(clj->js (merge {:status (-> status-text (clj->js (merge {:status (->> status-text
(partial resolve-urls mastodon-config) (resolve-urls mastodon-config)
(partial perform-replacements mastodon-config) (perform-replacements mastodon-config)
(partial set-signature mastodon-config))} (set-signature mastodon-config))}
(when media-ids {:media_ids media-ids}) (when media-ids {:media_ids media-ids})
(when sensitive? {:sensitive sensitive?}) (when sensitive? {:sensitive sensitive?})
(when visibility {:visibility visibility})))) (when visibility {:visibility visibility}))))