From 5b33a5d7bacce6df2c6607323e05dc487a8e71ef Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Thu, 9 Jun 2022 20:16:04 -0400
Subject: [PATCH] Add code to shutdown clog with electron app quit or window
 quit

---
 NATIVE.md | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/NATIVE.md b/NATIVE.md
index 6875b5b..285fa65 100644
--- a/NATIVE.md
+++ b/NATIVE.md
@@ -68,9 +68,17 @@ In the REPL let's load the new project:
   (start-app))
 ```
 
-5. I suggest starting from scratch at this point: M-x slime-restart-inferior-lisp
-6. (ql:quickload :elect)
-7. (elect:start-app)
+5. We need to add to the botton of on-new-window code to shutdown app.
+
+```
+  (clog:run body) ; wait while body is running
+  (ceramic:quit)  ; quit ceramic/electron
+  (clog:shutdown) ; shutdown clog
+```
+
+6. I suggest starting from scratch at this point: M-x slime-restart-inferior-lisp
+7. (ql:quickload :elect)
+8. (elect:start-app)
 
 That should start up a native application with your CLOG app