From e4a9fbdeccba5fcb586f0d11227f3a83b34d692e Mon Sep 17 00:00:00 2001
From: "dmitri.sotnikov@gmail.com" <dmitri.sotnikov@gmail.com>
Date: Fri, 23 Mar 2018 09:14:26 -0400
Subject: [PATCH] improved RSS parsing

---
 README.md         |  3 ++-
 mastodon-bot.cljs | 21 +++++++++++++++++----
 2 files changed, 19 insertions(+), 5 deletions(-)

diff --git a/README.md b/README.md
index 23b96cd..6c73bf0 100644
--- a/README.md
+++ b/README.md
@@ -34,7 +34,8 @@ the bot will post the timeline from the specified Twitter/Tumblr accounts and RS
  :rss {"Hacker News" "https://hnrss.org/newest"
        "r/Clojure" "https://www.reddit.com/r/clojure/.rss"}
  :mastodon {:access_token "XXXX"
-            :api_url "https://botsin.space/api/v1/"}}
+            :api_url "https://botsin.space/api/v1/"
+            :max-post-length 300}}
 ```
 
 * the bot looks for `config.edn` at its relative path by default, an alternative location can be specified either using the `MASTODON_BOT_CONFIG` environment variable or passing the path to config as an argument
diff --git a/mastodon-bot.cljs b/mastodon-bot.cljs
index 5a2060b..706df37 100755
--- a/mastodon-bot.cljs
+++ b/mastodon-bot.cljs
@@ -20,6 +20,8 @@
 
 (def config (-> (find-config) fs/readFileSync str edn/read-string))
 
+(def max-post-length (or (-> config :mastodon :max-post-length) 300))
+
 (def mastodon-client (or (some-> config :mastodon clj->js mastodon.)
                          (do
                            (js/console.error "missing Mastodon client configuration!")
@@ -28,6 +30,17 @@
 (defn js->edn [data]
   (js->clj data :keywordize-keys true))
 
+(defn trim-text [text]
+  (if (> (count text) max-post-length)
+    (reduce
+     (fn [text word]
+       (if (> (+ (count text) (count word)) (- max-post-length 3))
+         (reduced (str text "..."))
+         (str text " " word)))
+     ""
+     (clojure.string/split text #" "))
+    text))
+
 (defn delete-status [status]
   (.delete mastodon-client (str "statuses/" status) #js {}))
 
@@ -74,7 +87,7 @@
 
 (defmethod parse-tumblr-post "text" [{:keys [body date short_url]}]
   {:created-at (js/Date. date)
-   :text (str body "\n\n" short_url)})
+   :text (str (trim-text body) "\n\n" short_url)})
 
 (defmethod parse-tumblr-post "photo" [{:keys [caption date photos short_url] :as post}]
   {:created-at (js/Date. date)
@@ -101,9 +114,9 @@
   (-> (.parseURL parser url)
       (.then #(post-items
                last-post-time
-               (for [{:keys [title isoDate content link]} (-> % js->edn :items)]
-                 {:created-at (js/Date. isoDate)
-                  :text (str title "\n\n" link)})))))
+               (for [{:keys [title isoDate pubDate content link]} (-> % js->edn :items)]
+                 {:created-at (js/Date. (or isoDate pubDate))
+                  :text (str (trim-text title) "\n\n" link)})))))
 
 (get-mastodon-timeline
  (fn [timeline]