mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 10:31:34 -08:00
20 lines
592 B
Common Lisp
20 lines
592 B
Common Lisp
;;; this requires a CLOG fork prepared for mobile
|
|
|
|
(in-package :clog)
|
|
|
|
(setf clog-connection::*send-to-webview*
|
|
(lambda (js)
|
|
(qml:q! |runJavaScript| ui:*browser* js)))
|
|
|
|
(defun webview/on-new-connection ()
|
|
(clog-connection::handle-new-connection 'qml-webview nil))
|
|
|
|
(defun webview/on-message (message)
|
|
(clog-connection::handle-message 'qml-webview message))
|
|
|
|
(defun boot ()
|
|
(clog-connection::handle-close-connection 'qml-webview)
|
|
(qml:q> |url| ui:*browser* (format nil "file://~A"
|
|
(merge-pathnames "htm/boot.html"))))
|
|
|
|
(export 'boot)
|