improve searchability for origin author

master
jem 4 years ago
parent 1072af0145
commit 99014a1239

@ -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))) %))

@ -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?