Commit initial vip-only direct messaging

1 files changed, 0 insertions, 23 deletions

diff --git a/src/utils.clj b/src/utils.clj
index 84454cd..8aaffba 100755
--- a/src/utils.clj
+++ b/src/utils.clj
@@ -36,26 +36,6 @@
                            (.setMaxConnections 10))}))
 
 
-;; Message parsing
-
-;; http://snippets.dzone.com/posts/show/6995
-(def url-regex #"(?i)^((http\:\/\/|https\:\/\/|ftp\:\/\/)|(www\.))+(\w+:{0,1}\w*@)?(\S+)(:[0-9]+)?(\/|\/([\w#!:.?+=&%@!\-\/]))?$")
-(def pic-regex #"(?i)\.(jpg|jpeg|png|gif|bmp|svg)(\?|&|$)")
-
-(defn is-image? [word]
-  (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)]
-    (cond (every? boolean imgs) :image
-          (some boolean imgs)   :mixed
-          :else                 :text)))
-
 ;; Misc
 
 (defn except! [& more]
@@ -415,9 +395,6 @@
 (defn serve-template [template session]
   (.toString (fetch-template template session)))
 
-(defn first-or-nil [l]
-  (if (empty? l) nil (first l)))
-
 ;; VIP
 
 (defn is-vip? [session]