Commit initial vip-only direct messaging

1 files changed, 3 insertions, 10 deletions

diff --git a/src/rooms.clj b/src/rooms.clj
index 574532a..3367ea9 100644
--- a/src/rooms.clj
+++ b/src/rooms.clj
@@ -6,7 +6,7 @@
         utils
         user))
 
-(defstruct message-struct :nick :content :created_on :msg_id)
+(defstruct message-struct :nick :content :created_on :msg_id :recips)
 
 (def *run-flusher* true)
 (def *flusher-sleep* (seconds 4))
@@ -99,19 +99,12 @@
 ; Note: To ensure that the msg's timestamp is consistent
 ;       with other msg creations, build-msg must be used
 ;       within a dosync.
-(defn build-msg [nick content msg-id]
-  (struct message-struct nick content (new Date) msg-id))
+(defn build-msg [nick content msg-id recips]
+  (struct message-struct nick content (new Date) msg-id recips))
 
 (defn add-message [msg room]
   (insert-and-truncate! (room :messages) msg message-count-limit))
 
-(defn insert-message-into-db! [user-id room-id content is-image]
-  (:message_id
-   (first
-    (do-select ["INSERT INTO messages (user_id, room_id, content, is_image)
-                 VALUES (?, ?, ?, ?) RETURNING message_id"
-                user-id room-id content is-image]))))
-
 (defn create-and-add-room! [key]
   (do-select ["INSERT INTO rooms (key, name, description)
                VALUES (?, ?, ?) RETURNING room_id"