fix: Fix SLY initialization

1 files changed, 5 insertions, 4 deletions

diff --git a/nyxt.el b/nyxt.el
index 76d6141..916659e 100644
--- a/nyxt.el
+++ b/nyxt.el
@@ -127,10 +127,11 @@ connect Slynk to it."
             ((string-match (rx (: (+ any) "Slynk server started at port")) output)
              (run-at-time autostart-delay nil
                           (lambda ()
-                            (let ((sly-default-connection (nyxt-connect-to-slynk)))
-                              (nyxt-sly-eval sexps)
-                              (sleep-for 0.1)
-                              (nyxt-exwm-focus-window :focus focus)))))
+                            (while (not (sly-connected-p))
+                              (nyxt-connect-to-slynk)
+                              (sleep-for 0.1))
+                            (nyxt-sly-eval sexps)
+                            (nyxt-exwm-focus-window :focus focus))))
             ((or (string-match (rx (: (+ any) "Deleting socket")) output)
                  (/= (process-exit-status process) 0))
              (setq nyxt-process nil)))))))