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

improve searchability for origin author

Browse source
This commit is contained in:
jem 2020-05-29 19:56:41 +02:00
parent 1072af0145
commit 99014a1239
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/main/mastodon_bot/core.cljs
View file

@ -42,7 +42,7 @@
infra/js->edn
:posts
(mapv tumblr/parse-tumblr-post)
(map #(transform/to-mastodon
(map #(transform/intermediate-to-mastodon
(mastodon-auth config)
;todo: fix this
(:target (first (transform config))) %))

6
src/main/mastodon_bot/transform.cljs
View file

@ -47,7 +47,7 @@
:else text))
(defn-spec to-mastodon mastodon-output?
(defn-spec intermediate-to-mastodon mastodon-output?
[mastodon-auth masto/mastodon-auth?
target masto/mastodon-target?
input input?]
@ -56,7 +56,7 @@
untrimmed (if (some? untrimmed-text)
(str " " untrimmed-text) "")
sname (if (masto/append-screen-name? mastodon-auth)
(str "\n - " screen_name) "")
(str "\n#" screen_name) "")
signature_text (if (some? signature)
(str "\n" signature)
"")
@ -80,7 +80,7 @@
(infra/exit-with-error error)
(->> (infra/js->edn tweets)
(map twitter/parse-tweet)
(map #(to-mastodon mastodon-auth target %))
(map #(intermediate-to-mastodon mastodon-auth target %))
(masto/post-items mastodon-auth last-post-time)))))
(defn-spec tweets-to-mastodon any?