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/utils.clj | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'src/utils.clj') diff --git a/src/utils.clj b/src/utils.clj index 3f1a7b1..779bb7b 100755 --- a/src/utils.clj +++ b/src/utils.clj @@ -25,7 +25,7 @@ (.setDatabaseName db-name) (.setUser db-user) (.setPassword db-pass) - (.setMaxConnections 3))})) + (.setMaxConnections 20))})) ;; moved this to here which doesn't seem right... maybe a 'settings.clj' or something? (def *dumps-per-page* 20) @@ -98,6 +98,14 @@ [(int (/ (- f# s#) 1e6)) r#])) +(def truncation-factor 2) + +(defn insert-and-truncate! [list-ref item soft-limit] + (if (> (count @list-ref) (* soft-limit truncation-factor)) + (ref-set list-ref + (cons item (take soft-limit @list-ref))) + (ref-set list-ref (cons item @list-ref)))) + ;; Formatters (def yyyy-mm-dd-formatter (new SimpleDateFormat "yyyy-MM-dd")) -- cgit v1.2.3-70-g09d2