mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 10:31:34 -08:00
24 lines
653 B
Common Lisp
24 lines
653 B
Common Lisp
(in-package :editor)
|
|
|
|
#+mobile
|
|
(defconstant +version+ 1)
|
|
|
|
#+mobile ;; check version
|
|
(let* ((file (merge-pathnames ".version"))
|
|
(exists (probe-file file))
|
|
(write (not exists)))
|
|
(when (and exists
|
|
(> +version+
|
|
(parse-integer (alexandria:read-file-into-string file))))
|
|
(copy-all-asset-files) ; asset files may have changed
|
|
(setf write t))
|
|
(when write
|
|
(alexandria:write-string-into-file
|
|
(princ-to-string +version+) file :if-exists :supersede)))
|
|
|
|
(ignore-errors ; don't hang on startup
|
|
(load (merge-pathnames ".eclrc")))
|
|
|
|
#+mobile
|
|
(when qml::*remote-ip*
|
|
(qsingle-shot 1000 'auto-reload-qml))
|