summaryrefslogtreecommitdiff
path: root/src/site.clj
diff options
context:
space:
mode:
Diffstat (limited to 'src/site.clj')
-rwxr-xr-xsrc/site.clj9
1 files changed, 4 insertions, 5 deletions
diff --git a/src/site.clj b/src/site.clj
index b5c7ade..972da44 100755
--- a/src/site.clj
+++ b/src/site.clj
@@ -74,6 +74,9 @@
(defn resp-success [message]
{:status 200 :headers {} :body (json-str message)})
+(defn non-empty-string? [s]
+ (and s (> (count s) 0)))
+
;; Database
(defn do-select [query]
@@ -132,8 +135,7 @@
@(room :messages)))))
(defn process-user [u]
- (prn u)
- (if (u :avatar)
+ (if (non-empty-string? (u :avatar))
{"nick" (u :nick)
"avatar" (encode-html-entities (u :avatar))}
{"nick" (u :nick)}))
@@ -247,9 +249,6 @@
;; Profile
-(defn non-empty-string? [s]
- (and s (> (count s) 0)))
-
(defn profile [session profile-nick offset]
(let [user-info (fetch-nick profile-nick)]
(if user-info