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

Display tweets with 280 characters

Browse source 
If "extended" is not set, the default beheaviour is to give tweets with 140 characters.

When it's enabled the response from the server doesn't have a "text" but a "full_text" ("text" comes empty).
This commit is contained in:
David Quiñones 2018-08-18 19:00:35 +02:00 committed by GitHub
parent 6559337021
commit ea5d26e455
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
mastodon-bot.cljs
View file

@ -93,7 +93,7 @@
(post-status text)))) (post-status text))))
(defn parse-tweet [{created-at :created_at (defn parse-tweet [{created-at :created_at
text :text text :full_text
{:keys [media]} :extended_entities {:keys [media]} :extended_entities
{:keys [screen_name]} :user :as tweet}] {:keys [screen_name]} :user :as tweet}]
{:created-at (js/Date. created-at) {:created-at (js/Date. created-at)
@ -146,7 +146,7 @@
(doseq [account (-> config :twitter :accounts)] (doseq [account (-> config :twitter :accounts)]
(.get twitter-client (.get twitter-client
"statuses/user_timeline" "statuses/user_timeline"
#js {:screen_name account :include_rts false :exclude_replies true} #js {:screen_name account :include_rts false :exclude_replies true :tweet_mode "extended"}
(post-tweets last-post-time)))) (post-tweets last-post-time))))
;;post from Tumblr ;;post from Tumblr
(when-let [tumblr-oauth (some-> config :tumblr :access-keys clj->js)] (when-let [tumblr-oauth (some-> config :tumblr :access-keys clj->js)]