mirror of https://codeberg.org/cage/tinmop/
- actually created empty configuration file when not already found, on program starting.
This commit is contained in:
parent
366dc63d0c
commit
ad190478dc
|
@ -137,7 +137,8 @@ etc.) happened"
|
||||||
(res:home-confdir)
|
(res:home-confdir)
|
||||||
+program-name+
|
+program-name+
|
||||||
+program-name+)
|
+program-name+)
|
||||||
(res:create-empty-file-in-home swconf:+conf-filename+)
|
(res:create-empty-file-in-home (fs:cat-parent-dir (res:home-confdir)
|
||||||
|
swconf:+conf-filename+))
|
||||||
(os-utils:exit-program 1))))
|
(os-utils:exit-program 1))))
|
||||||
|
|
||||||
(defun shared-init (&key (verbose t) (initialize-database t))
|
(defun shared-init (&key (verbose t) (initialize-database t))
|
||||||
|
|
Loading…
Reference in New Issue