From f31b00db197eca2fd46ada0625a403f7e43e6c54 Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Sat, 11 Sep 2010 18:04:13 -0400 Subject: Add imgreplacer file --- src/utils.clj | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/utils.clj') diff --git a/src/utils.clj b/src/utils.clj index 9e4fc38..4c6905c 100755 --- a/src/utils.clj +++ b/src/utils.clj @@ -43,6 +43,9 @@ (and (re-find url-regex word) (re-find pic-regex word))) +(defn take-images [content] + (filter is-image? (.split content " "))) + (defn classify-msg [msg] (let [words (.split msg " ") imgs (map is-image? words)] -- cgit v1.2.3-70-g09d2