diff options
author | Miguel Ángel Moreno <mail@migalmoreno.com> | 2022-09-20 00:01:53 +0200 |
---|---|---|
committer | Miguel Ángel Moreno <mail@migalmoreno.com> | 2023-03-15 12:19:17 +0100 |
commit | 7e74c89b9f591fc05b0f304861fada866470c10f (patch) | |
tree | 00d7b33a20137d1c11eb1709d169a521fab06c2e | |
parent | 35c0d9ab6303734a5741403b30bb5f46f5ab82ec (diff) |
feat: Add delay and handle EXWM window outside of buffer context
-rw-r--r-- | nyxt.el | 12 |
1 files changed, 7 insertions, 5 deletions
@@ -129,6 +129,7 @@ connect Slynk to it." (lambda () (let ((sly-default-connection (nyxt-connect-to-slynk))) (nyxt-sly-eval sexps) + (sleep-for 0.1) (nyxt-exwm-focus-window :focus focus))))) ((or (string-match (rx (: (+ any) "Deleting socket")) output) (/= (process-exit-status process) 0)) @@ -136,11 +137,12 @@ connect Slynk to it." ((or (nyxt--system-process-p) nyxt-process) (if (sly-mrepl--find-buffer) - (with-current-buffer (sly-mrepl--find-buffer) - (unless (string= (sly-current-package) "nyxt-user") - (sly-mrepl--eval-for-repl '(slynk-mrepl:guess-and-set-package "nyxt-user"))) - (nyxt-sly-eval sexps) - (nyxt-exwm-focus-window :focus focus)) + (progn + (with-current-buffer (sly-mrepl--find-buffer) + (unless (string= (sly-current-package) "nyxt-user") + (sly-mrepl--eval-for-repl '(slynk-mrepl:guess-and-set-package "nyxt-user"))) + (nyxt-sly-eval sexps)) + (nyxt-exwm-focus-window :focus focus)) (error "No SLY REPL buffer found")))))) (defun nyxt-extension-p (system &optional symbol) |