diff options
| author | Scott Ostler <scottbot9000@gmail.com> | 2010-09-11 18:04:13 -0400 |
|---|---|---|
| committer | Scott Ostler <scottbot9000@gmail.com> | 2010-09-11 18:04:13 -0400 |
| commit | f31b00db197eca2fd46ada0625a403f7e43e6c54 (patch) | |
| tree | 75d630f6b15f2f942af6840bb446caeefc3d4f4d /src/utils.clj | |
| parent | 86d502cc6aa4a67baa0ebbc1dd1bb04a45fff952 (diff) | |
Add imgreplacer file
Diffstat (limited to 'src/utils.clj')
| -rwxr-xr-x | src/utils.clj | 3 |
1 files changed, 3 insertions, 0 deletions
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)] |