mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 18:40:56 -08:00
26 lines
732 B
Common Lisp
26 lines
732 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")))
|
|
|
|
(asdf:defsystem :sb-bsd-sockets) ; needed for :sockets (linked as static lib)
|
|
|
|
#+mobile
|
|
(when qml::*remote-ip*
|
|
(qsingle-shot 1000 'auto-reload-qml))
|