example 'clog-demo': fix double connection id; revisions

examples/clog-demo/app.asd

@@ -5,7 +5,7 @@
   :components ((:file "lisp/package")
                (:file "lisp/ini")
                (:file "lisp/ui-vars")
-               (:file "lisp/swank-quicklisp")
+               #+mobile (:file "lisp/swank-quicklisp")
                (:file "lisp/eval")
                (:file "lisp/clog-bridge")
                (:file "clog-assets/demos/01-demo")

examples/clog-demo/qml/ext/Browser.qml

@@ -12,12 +12,6 @@ Item {
     width: parent.width
     height: parent.height - reload.height
     visible: !busy.visible
-
-    onLoadingChanged: {
-      if (loadRequest.status === WebView.LoadSucceededStatus) {
-        Lisp.call("clog:webview/on-new-connection")
-      }
-    }
   }
 
   Button {

examples/clog-demo/qml/ext/Server.qml

@@ -16,7 +16,7 @@ Item {
       client.sendTextMessage(message)
     }
 
-    onClientConnected: {
+    onClientConnected: (webSocket) => {
       client = webSocket
       webSocket.objectName = ++counter
       main.log("[new] " + counter)

examples/clog-demo/readme-build.md

@@ -3,7 +3,7 @@ Prepare
 -------
 
 First you need to patch ASDF from ECL android. So, switch to where you have
-ecl-android installed, and edit file: 'contrib/asdf/asdf.lisp'.
+ecl-android installed, and edit file: `contrib/asdf/asdf.lisp`.
 
 Find the following function, and replace it with this code:
 ```

examples/clog-demo/readme.md

@@ -29,12 +29,12 @@ for installing the Slime sources where this example can find them.
 `~/quicklisp/local-projects/` directory:
 [CLOG for mobile](https://gitlab.com/eql/clog-for-mobile/-/blob/main/clog-2.2.tgz).
 
-If you want to run this example on the desktop, you need to uncomment the Qt
-WebEngine dependency in [../../src/lqml.pro](../../src/lqml.pro) and rebuild
-the `lqml` executable. Additionally you need to clear the ECL cache of CLOG
-(see `~/.cache/common-lisp/ecl-...`), because the CLOG desktop version for LQML
-is different from the standard version (see `#+mobile` in CLOG fork, which is
-also needed on the desktop, if used with LQML).
+If you want to run this example on the desktop (only tested with Qt6), you need
+to uncomment the Qt WebEngine dependency in [../../src/lqml.pro](../../src/lqml.pro)
+and rebuild the `lqml` executable. Additionally you need to clear the ECL cache
+of CLOG (see `~/.cache/common-lisp/ecl-...`), because the CLOG desktop version
+for LQML is different from the standard version (see `#+mobile` in CLOG fork,
+which is also needed on the desktop, if used with LQML).
 
 
 

examples/clog-demo/run.lisp

@@ -2,9 +2,10 @@
 
 (require :asdf)
 
+(progn
   (pushnew :mobile *features*)
-
   (asdf:load-system :clog)
+  (setf *features* (remove :mobile *features*)))
 
 (push (merge-pathnames "./")
       asdf:*central-registry*)