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

fix chop

Browse source
This commit is contained in:
jem 2020-05-21 12:42:51 +02:00
parent 9cfb0fb992
commit a0adf99dc3
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/main/mastodon_bot/twitter_api.cljs
View file

@ -33,6 +33,9 @@
(defn strip-utm [news-link] (defn strip-utm [news-link]
(first (string/split news-link #"\?utm"))) (first (string/split news-link #"\?utm")))
(defn in [needle haystack]
(some (partial = needle) haystack))
; If the text ends in a link to the media (which is uploaded anyway), ; If the text ends in a link to the media (which is uploaded anyway),
; chop it off instead of including the link in the toot ; chop it off instead of including the link in the toot
(defn chop-tail-media-url [text media] (defn chop-tail-media-url [text media]