From d9dc33c602e0b939c273a94d30621e3cd2f2fd11 Mon Sep 17 00:00:00 2001
From: Christian Mueller <chmllr@me.com>
Date: Sun, 22 Sep 2013 22:32:14 +0200
Subject: [PATCH] convertion delay grows with the text length (linearly to 400
 chars)

---
 src-cljs/main.cljs | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/src-cljs/main.cljs b/src-cljs/main.cljs
index f1936c2..d9a2719 100644
--- a/src-cljs/main.cljs
+++ b/src-cljs/main.cljs
@@ -36,13 +36,16 @@
   []
   (do
     (js/clearTimeout timer)
-    (def timer
-      (js/setTimeout
-        #(do
-           (show $dashed-line)
-           (show $input-elems)
-           (inner $preview
-                  (.makeHtml md-converter (val $draft)))) timerDelay))))
+    (let [content (val $draft)
+          delay (Math/min timerDelay (* timerDelay (/ (count content) 400)))]
+      (def timer
+        (js/setTimeout
+          #(do
+             (.log js/console delay)
+             (show $dashed-line)
+             (show $input-elems)
+             (inner $preview
+                    (.makeHtml md-converter content))) delay)))))
 
 ; set focus to the draft textarea (if there is one)
 (when $action