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) (setf load nil)
(require :ecl-curl) (require :ecl-curl)
(load "curl")) (load "curl"))
(let ((curr/file (x:split (funcall (%sym 'curl :qml) (let ((curr/file (ignore-errors (x:split (funcall (%sym 'curl :qml)
(x:cc *remote-ip* "cgi-bin/qml-last-modified.py")) (x:cc *remote-ip*
#.(coerce (list #\Return #\Newline) 'string)))) "cgi-bin/qml-last-modified.py"))
#.(coerce (list #\Return #\Newline) 'string)))))
(when (= 2 (length curr/file)) (when (= 2 (length curr/file))
(destructuring-bind (curr file) (destructuring-bind (curr file)
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 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. directory.
It adds a QML `SwipeView` with 3 pages, to demonstrate how to reload single 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 computer (currently hard coded into the app). If you just hit RET, auto
reloading will be disabled. reloading will be disabled.
N.B: **Before** installing and launching the app, just run this script from After installing and launching the app, just run this script from your example
your example directory: directory:
``` ```
./web-server.sh ./web-server.sh
``` ```