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

Merge pull request #11 from daquinons/patch-1

Browse source 
Display tweets with 280 characters
This commit is contained in:
Dmitri Sotnikov 2018-08-18 13:30:59 -04:00 committed by GitHub
commit 54701023d5
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
mastodon-bot.cljs
View file

@ -95,7 +95,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)
@ -165,6 +165,7 @@
(.get client (.get client
"statuses/user_timeline" "statuses/user_timeline"
#js {:screen_name account #js {:screen_name account
:tweet_mode "extended"
:include_rts (boolean include-replies?) :include_rts (boolean include-replies?)
:exclude_replies (boolean include-rts?)} :exclude_replies (boolean include-rts?)}
(post-tweets last-post-time))))) (post-tweets last-post-time)))))