aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTeddy Wing2023-11-13 03:07:28 +0100
committerTeddy Wing2023-11-13 03:07:28 +0100
commit15f55656e63e0ef32954d27a5efa1fa05790358c (patch)
tree45f97ca46bb6ccbc613288860d4220b128dd591b
parent032d704f74a9cec209bef6a3a97109d0874ab331 (diff)
downloadextreload-15f55656e63e0ef32954d27a5efa1fa05790358c.tar.bz2
main: Idea to sleep before reloading tab
I got this to work once, but not again after that for reloading the current tab.
-rw-r--r--src/main.lisp4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/main.lisp b/src/main.lisp
index 8ea05ab..cf4facf 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -26,7 +26,7 @@
(defvar *extensions* '()
"TODO")
-(defconstant +timeout-seconds+ 5
+(defconstant +timeout-seconds+ 10
"Global timeout. The program will exit at the end of this delay.")
(defun main ()
@@ -171,6 +171,8 @@ the target to reload the current tab."
;; messages, so we need to add a second increment to the wait group.
(wait-group:add *wg*)
+ (sleep 5)
+
(websocket-send
(ws-client *config*)
(runtime-evaluate-msg