mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 02:30:38 -08:00
Code Issues Projects Releases Packages Wiki Activity

revisions

Browse source
This commit is contained in:
pls.153 2022-03-12 17:58:00 +01:00
parent caca998979
commit 052d7c2a97
3 changed files with 36 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

12
examples/swank-server/lisp/qml-reload/auto-reload-mobile.lisp
View file

@ -15,12 +15,18 @@
(defvar *remote-ip* #+interpreter nil
#-interpreter #.(remote-ip))
#+(or android ios)
(defun load* (file)
(load (make-string-input-stream
(funcall (%sym 'curl :qml)
(x:cc *remote-ip* file)))))
(export 'load*)
#+(or android ios)
(defun qml:view-status-changed (status)
(when (= 1 status)
(load (make-string-input-stream
(funcall (%sym 'curl :qml)
(x:cc *remote-ip* "lisp/qml-reload/on-reloaded.lisp"))))))
(load* "lisp/qml-reload/on-reloaded.lisp")))
#+(or android ios)
(let ((load t)