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

clojure.string/ -> string/

Browse Source
master
Arnout Engelen 4 years ago
parent 307e98023d
commit 3512b4c045
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File

4
mastodon_bot/core.cljs
Unescape Escape View File

@ -61,7 +61,7 @@
(reduced (str text "...")) (reduced (str text "..."))
(str text " " word))) (str text " " word)))
"" ""
(clojure.string/split text #" ")) (string/split text #" "))
:else text)) :else text))
@ -144,7 +144,7 @@
; 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]
(clojure.string/replace text #" (\S+)$" #(if (in (%1 1) (map :url media)) "" (%1 0)))) (string/replace text #" (\S+)$" #(if (in (%1 1) (map :url media)) "" (%1 0))))
(defn parse-tweet [{created-at :created_at (defn parse-tweet [{created-at :created_at
text :full_text text :full_text