diff --git a/sx/sx/home-stepper.sx b/sx/sx/home-stepper.sx index 4e8b87dc..397dcf18 100644 --- a/sx/sx/home-stepper.sx +++ b/sx/sx/home-stepper.sx @@ -345,7 +345,7 @@ (build-code-tokens (first parsed) tokens step-ref 0) (reset! code-tokens tokens))))) (let - ((_eff (let ((initial-idx (deref step-idx)) (first-run (signal true))) (effect (fn () (let ((cur (deref step-idx))) (if (and (deref first-run) (= cur initial-idx)) (reset! first-run false) (do (reset! first-run false) (schedule-idle (fn () (build-code-dom) (rebuild-preview cur) (update-code-highlight) (run-post-render-hooks))))))))))) + ((_eff (let ((first-run (signal true))) (effect (fn () (let ((cur (deref step-idx))) (if (deref first-run) (do (reset! first-run false) (host-call (host-global "queueMicrotask") (host-callback (fn () (rebuild-preview cur) (run-post-render-hooks))))) (schedule-idle (fn () (build-code-dom) (rebuild-preview cur) (update-code-highlight) (run-post-render-hooks)))))))))) (div (~tw :tokens "space-y-4 text-center") (div @@ -400,4 +400,6 @@ "▶")) (lake :id "home-preview" - (steps-to-preview (deref steps) (deref step-idx)))))))) + (when + (not (client?)) + (steps-to-preview (deref steps) (deref step-idx)))))))))