HTMl generation delayed to the last key press

2013-09-22 22:05:23 +02:00
parent 3c082c7b6b
commit 6ba9ecac4d
1 changed files with 14 additions and 4 deletions
@@ -25,14 +25,24 @@
 ; try to detect iOS
 (def ios-detected (.match (.-userAgent js/navigator) "(iPad|iPod|iPhone)"))

+(def timer nil)
+
+(def timerDelay
+  ; TODO: also test for Android
+  (if ios-detected 800 400))
+
 (defn update-preview
  "Updates the preview"
  []
  (do
+    (js/clearTimeout timer)
+    (def timer
+      (js/setTimeout
+        #(do
           (show $dashed-line)
           (show $input-elems)
           (inner $preview
-           (.makeHtml md-converter (val $draft)))))
+                  (.makeHtml md-converter (val $draft)))) timerDelay))))

 ; set focus to the draft textarea (if there is one)
 (when $action