From 99014a12394291d5ddf9353943f90336e7b3387e Mon Sep 17 00:00:00 2001 From: jem Date: Fri, 29 May 2020 19:56:41 +0200 Subject: [PATCH] improve searchability for origin author --- src/main/mastodon_bot/core.cljs | 2 +- src/main/mastodon_bot/transform.cljs | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/main/mastodon_bot/core.cljs b/src/main/mastodon_bot/core.cljs index 4a4bb5f..463e40a 100755 --- a/src/main/mastodon_bot/core.cljs +++ b/src/main/mastodon_bot/core.cljs @@ -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))) %)) diff --git a/src/main/mastodon_bot/transform.cljs b/src/main/mastodon_bot/transform.cljs index f8d09b7..b29b882 100644 --- a/src/main/mastodon_bot/transform.cljs +++ b/src/main/mastodon_bot/transform.cljs @@ -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?