From 3412eacc9ba41683b72152f925bcff7014cdcfbb Mon Sep 17 00:00:00 2001 From: Duncan McGreggor Date: Tue, 11 Jul 2023 20:06:39 -0500 Subject: [PATCH] More delay tweaks. --- src/plottah.lfe | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/plottah.lfe b/src/plottah.lfe index 3d95781..f7e2042 100644 --- 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 '()))