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