From 91430f25eea4da648ee84b2aebe498670baa949b Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Mon, 14 Jun 2010 17:17:48 -0400 Subject: Truncate message list --- src/rooms.clj | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'src/rooms.clj') 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 -- cgit v1.2.3-70-g09d2