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 'cl-repl': add 'run.lisp' for example 'QML/Draw/'

Browse source
This commit is contained in:
pls.153 2023-04-08 09:41:34 +02:00
parent d57c4654b7
commit 3e3f108b83
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
examples/cl-repl/examples/QML/Draw/run.lisp Normal file
View file

@ -0,0 +1,13 @@
;; hack to load 'main.lisp' into editor and display 'main.qml'
(let ((path (merge-pathnames "examples/QML/Draw/")))
(defun set-file-name (name)
(setf dialogs:*file-name*
(namestring (merge-pathnames name path)))))
(dolist (file (list "main.lisp"
"main.qml"))
(set-file-name file)
(ed::do-open-file)
(when (string= "lisp" (pathname-type dialogs:*file-name*))
(load dialogs:*file-name*)))