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-12-24 10:27:10 +01:00
parent 1870054f42
commit bd776bf6b3
6 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
examples/advanced-qml-auto-reload/lisp/curl.lisp
View file

@ -1,6 +1,6 @@
(in-package :qml)
#-(or android ios)
#-mobile
(require :ecl-curl)
(defun curl (url)

2
examples/cl-repl/lisp/curl.lisp
View file

@ -1,6 +1,6 @@
(in-package :qml)
#-(or android ios)
#-mobile
(require :ecl-curl)
(defun curl (url)

2
examples/cl-repl/qml/ext/Help.qml
View file

@ -113,7 +113,7 @@ Rectangle {
.arg((Qt.platform.os === "android")
? "<tr><td align=right><b>zip</b></td><td><font face=\"Hack\">(zip \"all.zip\" \"examples/\")</font></td></tr><tr><td align=right><b>unzip</b></td><td><font face=\"Hack\">(unzip \"uploads/all.zip\" \"examples/\")</font></td></tr>"
: (Qt.platform.os === "ios")
? "<tr><td align=right><b>zip</b></td><td><font face=\"Hack\">(zip \"all.zip\" \"../Documents/examples/\")</font></td></tr><tr><td align=right><b>unzip</b></td><td><font face=\"Hack\">(unzip \"uploads/all.zip\" \"../Documents/examples/\")</font></td></tr>"
? "<tr><td align=right><b>zip</b></td><td><font face=\"Hack\">(zip \"all.zip\" \"doc/examples/\")</font></td></tr><tr><td align=right><b>unzip</b></td><td><font face=\"Hack\">(unzip \"uploads/all.zip\" \"doc/examples/\")</font></td></tr>"
: "")
}
}

4
examples/cl-repl/readme.md
View file

@ -114,7 +114,7 @@ You may also upload a zip file, which can then be unzipped using:
```
(unzip "uploads/all.zip" "examples/") ; android
(unzip "uploads/all.zip" "../Documents/examples/") ; iOS
(unzip "uploads/all.zip" "../Documents/examples/") ; iOS (or use softlink "doc/")
```
### Download
@ -123,7 +123,7 @@ First create a `*.zip` file like so:
```
(zip "all.zip" "examples/") ; android
(zip "all.zip" "../Documents/examples/") ; iOS
(zip "all.zip" "../Documents/examples/") ; iOS (or use softlink "doc/")
```
Note that the zip file will not contain the passed directory name (this is how
the zip library from Quicklisp is implemented).

4
examples/cl-repl/www/index.html
View file

@ -31,11 +31,11 @@
<ul>
<li>uploaded zip files can be unzipped on the device with
<br><code>(unzip "uploads/all.zip" "examples/") ; android</code>
<br><code>(unzip "uploads/all.zip" "../Documents/examples/") ; iOS</code>
<br><code>(unzip "uploads/all.zip" "doc/examples/") ; iOS</code>
<br>&nbsp;
<li>files on the device can be zipped before downloading with
<br><code>(zip "all.zip" "examples/") ; android</code>
<br><code>(zip "all.zip" "../Documents/examples/") ; iOS</code>
<br><code>(zip "all.zip" "doc/examples/") ; iOS</code>
<br>&nbsp;
<br>and downloaded like so:
<br><code>http://192.168.1.x:1701/all.zip</code>

2
examples/swank-server/lisp/curl.lisp
View file

@ -1,6 +1,6 @@
(in-package :qml)
#-(or android ios)
#-mobile
(require :ecl-curl)
(defun curl (url)