convertion delay grows with the text length (linearly to 400 chars)

src-cljs/main.cljs

@@ -36,13 +36,16 @@
   []
   (do
     (js/clearTimeout timer)
+    (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 (val $draft)))) timerDelay))))
+                    (.makeHtml md-converter content))) delay)))))
 
 ; set focus to the draft textarea (if there is one)
 (when $action