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

example 'cl-repl': add convenience function 'qml:my-ip'

Browse source
This commit is contained in:
pls.153 2022-12-21 12:58:04 +01:00
parent 253f2c79a6
commit 1870054f42
5 changed files with 14 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
examples/cl-repl/lisp/upload-download.lisp
View file

@ -90,9 +90,7 @@ it saves uploaded files on the server."
(register-context-handler *web-server* "/" 'static-resource/upload-handler
:arguments (list #+mobile *default-pathname-defaults*
#-mobile (merge-pathnames "www/")))))
#+mobile
;; qrun*: only when running on main thread can we have return values from Qt
(x:when-it (qml:qrun* (qt:local-ip qt:*cpp*))
(x:when-it (qml:my-ip)
(format nil "http://~A:1701/" x:it)))
(defun stop ()