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

add Qt6 version of some examples (see below); revisions

Browse source 
'9999', 'advanced-qml-auto-reload', 'planets', 'sokoban'
This commit is contained in:
pls.153 2024-10-22 13:27:56 +02:00
parent ca79dec909
commit dc29ac9084
87 changed files with 963 additions and 74 deletions
Download patch file Download diff file Expand all files Collapse all files

22
examples/Qt6/advanced-qml-auto-reload/qml/.create-qml-loaders.lisp Normal file
View file

@ -0,0 +1,22 @@
(in-package :cl-user)
(defparameter *dir* *load-truename*)
(defvar *template* (with-open-file (s (merge-pathnames ".template.qml" *dir*))
(let ((str (make-string (file-length s))))
(read-sequence str s)
str)))
(defun create-qml-loaders ()
(dolist (file (directory (merge-pathnames "ext/**/*.qml" *dir*)))
(let* ((name (namestring file))
(p (1+ (search "/ext/" name)))
(loader (concatenate 'string (subseq name 0 p) "." (subseq name p))))
(unless (probe-file loader)
(ensure-directories-exist loader)
(with-open-file (s loader :direction :output)
(let ((new (subseq name p)))
(format t "~&creating .~A~%" new)
(format s *template* (subseq name p))))))))
(create-qml-loaders)