Truncate message list

1 files changed, 6 insertions, 3 deletions

diff --git a/src/rooms.clj b/src/rooms.clj
index c1b596b..a7fe933 100644
--- a/src/rooms.clj
+++ b/src/rooms.clj
@@ -91,13 +91,16 @@
   (alter (room :users) assoc (user :nick) user))
 
 ; Note: To ensure that the msg's timestamp is consistent
-;       with other msg creations, build-msg should be called
-;       from within a dosync.
+;       with other msg creations, build-msg should be used
+;       within a dosync.
 (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]
-  (alter (room :messages) (swap cons) msg))
+  (insert-and-truncate! (room :messages) msg message-count-limit))
 
 (defn insert-message-into-db! [user-id room-id content is-image]
   (:message_id