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

example 'meshtastic': add message font size dialog (in main menu)

Browse source
This commit is contained in:
pls.153 2023-08-28 18:37:59 +02:00
parent 9453b7dc7d
commit 5291949358
15 changed files with 223 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

4
examples/meshtastic/lisp/upload-download.lisp
View file

@ -99,7 +99,7 @@ it saves uploaded files on the server."
(let ((data.zip (x:cc "data/" app:*backup-data-file*)))
(x:when-it (probe-file data.zip)
(qml:qlog "data file found, unzipping...")
(app:unzip x:it (app:in-data-path ""))
(app:unzip x:it (app:in-data-path))
(delete-file x:it)
(app:toast (qml:tr "Data uploaded, closing app..."))
(qml:qlog "closing app...")
@ -121,7 +121,7 @@ it saves uploaded files on the server."
(register-context-handler *web-server* "/" 'static-resource/upload-handler
:arguments (list *default-pathname-defaults*))))
(x:when-it (app:my-ip)
(app:toast (format nil "http://~A:1701" x:it) 0)))
(app:message-dialog (format nil "http://~A:1701" x:it))))
(defun stop ()
(stop-server *web-server*)