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-09 23:04:21 +01:00
parent d3154ccd73
commit 4c3fd5e877
2 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -41,9 +41,10 @@
(setf load nil)
(require :ecl-curl)
(load "curl"))
(let ((curr/file (x:split (funcall (%sym 'curl :qml)
(x:cc *remote-ip* "cgi-bin/qml-last-modified.py"))
#.(coerce (list #\Return #\Newline) 'string))))
(let ((curr/file (ignore-errors (x:split (funcall (%sym 'curl :qml)
(x:cc *remote-ip*
"cgi-bin/qml-last-modified.py"))
#.(coerce (list #\Return #\Newline) 'string)))))
(when (= 2 (length curr/file))
(destructuring-bind (curr file)
curr/file

6
examples/advanced-qml-auto-reload/readme.md
View file

@ -16,7 +16,7 @@ installing the Slime sources where this example can find them.
Info
----
This is simply an extended version of example **swank-sevrer** of the parent
This is simply an extended version of example **swank-server** of the parent
directory.
It adds a QML `SwipeView` with 3 pages, to demonstrate how to reload single
@ -35,8 +35,8 @@ If you compile for mobile, it will ask for the **Wifi IP** of your desktop
computer (currently hard coded into the app). If you just hit RET, auto
reloading will be disabled.
N.B: **Before** installing and launching the app, just run this script from
your example directory:
After installing and launching the app, just run this script from your example
directory:
```
./web-server.sh
```