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 new example 'advanced-qml-auto-reload' (single file reload); revisions

Browse source
This commit is contained in:
pls.153 2022-03-09 17:28:37 +01:00
parent 5f3b251a69
commit 1473ec8271
28 changed files with 1144 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

22
examples/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)