diff --git a/doc/help.htm b/doc/help.htm index 6bd3ff7..00df5dd 100644 --- a/doc/help.htm +++ b/doc/help.htm @@ -13,6 +13,14 @@ Calls QGuiApplication::clipboard()->text(). +copy-all-asset-files () + + Mobile only. Preamble: all asset files are automatically copied to the app + directory on the very first app startup. + If you eventually need to copy additional asset files, or replace the current + ones, use this function (after installing an app update). + + define-qt-wrappers (qt-library &rest what) Defines Lisp methods for all Qt methods/signals/slots of given library, diff --git a/src/cpp/lqml.cpp b/src/cpp/lqml.cpp index 1d21ef7..c769c9e 100644 --- a/src/cpp/lqml.cpp +++ b/src/cpp/lqml.cpp @@ -7,7 +7,7 @@ #include #include -const char LQML::version[] = "22.8.1"; // August 2022 +const char LQML::version[] = "22.8.2"; // August 2022 extern "C" void ini_LQML(cl_object); diff --git a/src/lisp/ini.lisp b/src/lisp/ini.lisp index 661bc4e..10625f4 100644 --- a/src/lisp/ini.lisp +++ b/src/lisp/ini.lisp @@ -327,11 +327,17 @@ (setf (logical-pathname-translations "HOME") (list (list "home:**;*.*" (merge-pathnames "**/*.*" (user-homedir-pathname)))))) - ;; copy all asset files on first startup of app - ;; (note that PROBE-FILE is a hack here: for copying eventual, additional - ;; asset files, either the whole directory "encodings/" needs to be removed - ;; from within the app, or the app needs to be uninstalled first) - (unless (probe-file (merge-pathnames "encodings/")) + (copy-all-asset-files t)) + +(defun copy-all-asset-files (&optional ini) + "args: () + Mobile only. Preamble: all asset files are automatically copied to the app + directory on the very first app startup. + If you eventually need to copy additional asset files, or replace the current + ones, use this function (after installing an app update)." + #+mobile + (when (or (not ini) + (not (probe-file (merge-pathnames "encodings/")))) #+ios (flet ((dir (assets) (namestring (merge-pathnames assets *bundle-root*)))) @@ -340,7 +346,9 @@ (copy-asset-files assets assets) (copy-asset-files local-assets local-assets))) #+android - (copy-asset-files))) + (copy-asset-files)) + #-mobile + :mobile-only) ;;; alias diff --git a/src/lisp/package.lisp b/src/lisp/package.lisp index 9038e7a..1298f08 100644 --- a/src/lisp/package.lisp +++ b/src/lisp/package.lisp @@ -7,6 +7,7 @@ #:*root-item* #:*caller* #:clipboard-text + #:copy-all-asset-files #:define-qt-wrappers #:disable-clipboard-menu #:ensure-permissions