fix transform dep

src/main/mastodon_bot/core.cljs

@@ -32,21 +32,16 @@
 
 (def config (infra/load-config))
 
-(defn in [needle haystack]
-  (some (partial = needle) haystack))
-
-
-
 (defn parse-tweet [{created-at            :created_at
                     text                  :full_text
                     {:keys [media]}       :extended_entities
                     {:keys [screen_name]} :user :as tweet}]
   {:created-at (js/Date. created-at)
    :text (transform/trim-text 
-          (mastodon-config config)
           (str (twitter/chop-tail-media-url text media)
                (if (masto/append-screen-name? (mastodon-config config))
-                 (str "\n - " screen_name) "")))
+                 (str "\n - " screen_name) ""))
+          (masto/max-post-length (mastodon-config config)))
    :media-links (keep #(when (= (:type %) "photo") (:media_url_https %)) media)})
 
 (defmulti parse-tumblr-post :type)
@@ -54,8 +49,8 @@
 (defmethod parse-tumblr-post "text" [{:keys [body date short_url]}]
   {:created-at (js/Date. date)
    :text (str (transform/trim-text
-               (mastodon-config config) 
+               body
-               body) 
+               (masto/max-post-length (mastodon-config config))) 
               "\n\n" short_url)})
 
 (defmethod parse-tumblr-post "photo" [{:keys [caption date photos short_url] :as post}]
@@ -93,8 +88,8 @@
                (for [{:keys [title isoDate pubDate content link]} (-> % infra/js->edn :items)]
                  {:created-at (js/Date. (or isoDate pubDate))
                   :text (str (transform/trim-text
-                              (mastodon-config config) 
+                              title
-                              title) 
+                              (masto/max-post-length (mastodon-config config))) 
                              "\n\n" (twitter/strip-utm link))})))))
 
 (defn tumblr-client [access-keys account]

src/main/mastodon_bot/transform.cljs

@@ -3,24 +3,21 @@
    [clojure.spec.alpha :as s]
    [clojure.spec.test.alpha :as st]
    [orchestra.core :refer-macros [defn-spec]]
-   [clojure.string :as string]
+   [clojure.string :as string]))
-   ;; TODO: not allowed dep - move needed config parts to this ns
-   [mastodon-bot.mastodon-api :as masto]))
 
-(defn trim-text [masto-config text]
+(defn trim-text [text max-post-length]
-  (let [max-post-length (masto/max-post-length masto-config)]
+  (cond
-    (cond
 
-      (nil? max-post-length)
+    (nil? max-post-length)
-      text
+    text
 
-      (> (count text) max-post-length)
+    (> (count text) max-post-length)
-      (reduce
+    (reduce
-       (fn [text word]
+     (fn [text word]
-         (if (> (+ (count text) (count word)) (- max-post-length 3))
+       (if (> (+ (count text) (count word)) (- max-post-length 3))
-           (reduced (str text "..."))
+         (reduced (str text "..."))
-           (str text " " word)))
+         (str text " " word)))
-       ""
+     ""
-       (string/split text #" "))
+     (string/split text #" "))
 
-      :else text)))
+    :else text))