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

revisions

Browse source
This commit is contained in:
pls.153 2022-03-18 07:59:44 +01:00
parent 7b68d1c064
commit e0c4d1c7f4
16 changed files with 65 additions and 73 deletions
Download patch file Download diff file Expand all files Collapse all files

15
examples/advanced-qml-auto-reload/lisp/qml-reload/auto-reload-mobile.lisp
View file

@ -2,11 +2,9 @@
(in-package :qml)
#+(or android ios)
(defvar *reload-all* nil)
(defvar *edited-file* nil)
#+(or android ios)
(defun remote-ip ()
(terpri *query-io*)
(princ "Please enter WiFi IP of desktop computer (hit RET to skip): "
@ -15,27 +13,20 @@
(unless (x:empty-string ip)
(format nil "http://~A:8080/" ip))))
#+(or android ios)
(defvar *remote-ip* #+interpreter nil
#-interpreter #.(remote-ip))
#+(or android ios)
(defun load* (file)
(load (make-string-input-stream (curl (x:cc *remote-ip* file)))))
(export 'load*)
#+(or android ios)
(defun load-on-reloaded ()
(load* "lisp/qml-reload/on-reloaded.lisp"))
#+(or android ios)
(defun qml:view-status-changed (status)
(when (and (= 1 status)
(reload-main-p))
(load-on-reloaded)))
#+(or android ios)
(defun reload-main-p ()
(prog1
(or *reload-all*
@ -43,7 +34,6 @@
(when (eql :once *reload-all*)
(setf *reload-all* nil))))
#+(or android ios)
(let ((secs 0)
(ini t))
(defun auto-reload-qml ()
@ -70,5 +60,6 @@
(setf secs curr)))))
(qsingle-shot 250 'auto-reload-qml)))
#+(or android ios)
(export 'auto-reload-qml)
(export
(list 'load*
'auto-reload-qml))