Moved constants to config.clj

4 files changed, 4 insertions, 6 deletions

diff --git a/src/config.clj b/src/config.clj
index fdb33ed..7a4a6a2 100644
--- a/src/config.clj
+++ b/src/config.clj
@@ -28,3 +28,6 @@
 ;; Numerical constants
 
 (def num-popular-dumps 40)
+(def *dumps-per-page* 20)
+(def *vip-dumps-per-page* 200)
+(def message-count-limit 200)
diff --git a/src/rooms.clj b/src/rooms.clj
index e919557..7745630 100644
--- a/src/rooms.clj
+++ b/src/rooms.clj
@@ -101,8 +101,6 @@
 (defn build-msg [nick content msg-id]
   (struct message-struct nick content (new Date) msg-id))
 
-(def message-count-limit 200)
-
 (defn add-message [msg room]
   (insert-and-truncate! (room :messages) msg message-count-limit))
 
diff --git a/src/site.clj b/src/site.clj
index 4c3560e..5d7f9a3 100644
--- a/src/site.clj
+++ b/src/site.clj
@@ -677,7 +677,7 @@ ORDER BY cnt DESC
            mute       (resp-error (format-mute mute))
            :else
 	   (let [content  (validated-content content session)
-	         msg-id (msg-db user-id (room :room_id) content)]
+	         msg-id   (msg-db user-id (room :room_id) content)]
 	     (dosync
               (if (not (contains? (ensure (room :users)) nick))
                 (login-user (user-struct-from-session session) room))
diff --git a/src/utils.clj b/src/utils.clj
index 9d7fd3a..84454cd 100755
--- a/src/utils.clj
+++ b/src/utils.clj
@@ -35,9 +35,6 @@
                            (.setPassword     db-pass)
                            (.setMaxConnections 10))}))
 
-;;  moved this to here which doesn't seem right... maybe a 'settings.clj' or something?
-(def *dumps-per-page* 20)
-(def *vip-dumps-per-page* 200)
 
 ;; Message parsing