NB-Public/mastodon-bot
14
0
Fork 0
mirror of https://github.com/netzbegruenung/mastodon-bot.git synced 2024-05-04 11:53:42 +02:00
Code Issues Projects Releases Wiki Activity

Merge pull request #6 from JosephKiranBabu/master

Browse source 
Strip utm parameters from web links
This commit is contained in:
Dmitri Sotnikov 2018-06-10 09:08:42 -04:00 committed by GitHub
parent fec68ef646 48d37eb4d2
commit c39b71d025
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
mastodon-bot.cljs
View file

@ -119,13 +119,17 @@
(map parse-tweet)
(post-items last-post-time))))
(defn strip-utm [news-link]
(first
(string/split news-link #"\?utm")))
(defn parse-feed [last-post-time parser [title url]]
(-> (.parseURL parser url)
(.then #(post-items
last-post-time
(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)})))))
:text (str (trim-text title) "\n\n" (strip-utm link))})))))
(get-mastodon-timeline
(fn [timeline]