More delay tweaks.

lfex · Jul 12, 2023 · 3412eac · 3412eac
1 parent 8a8c35a
commit 3412eac
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/plottah.lfe b/src/plottah.lfe
@@ -25,7 +25,8 @@
 
 (defun APP () 'plottah)
 (defun SERVER () 'plottah-svr)
-(defun default-ms-delay () 100)
+(defun default-ms-delay () 250)
+(defun default-ms-long-delay () 1000)
 
 ;;; Convenience wrappers
 
@@ -72,14 +73,13 @@
   ((`(,lhs-rhs . ,rest))
    (set-var lhs-rhs)
    (set-vars rest)
-   (default-ms-delay)))
+   (default-ms-long-delay)))
 
 (defun set-var
   ((`#(,lhs ,rhs))
    (log-info (io_lib:format "Defining '~s' as '~s'" (list lhs rhs)))
-   (let ((cmd (io_lib:format "~s = ~s" (list lhs rhs)))
-         (ms-delay 500))
-     (gen_server:call (SERVER) `#(cmd gplot ,cmd delay ,ms-delay)))))
+   (let ((cmd (io_lib:format "~s = ~s" (list lhs rhs))))
+     (gen_server:call (SERVER) `#(cmd gplot ,cmd delay ,(default-ms-long-delay))))))
 
 (defun splot (args)
   (splot args '()))