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

improve searchability for origin author

Browse Source
master
jem 4 years ago
parent 1072af0145
commit 99014a1239
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

2
src/main/mastodon_bot/core.cljs
Unescape Escape View File

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

6
src/main/mastodon_bot/transform.cljs
Unescape Escape View File

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