This commit is contained in:
jem 2020-05-21 12:42:51 +02:00
parent 9cfb0fb992
commit a0adf99dc3

View file

@ -33,6 +33,9 @@
(defn strip-utm [news-link]
(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),
; chop it off instead of including the link in the toot
(defn chop-tail-media-url [text media]