mirror of https://codeberg.org/cage/tinmop/
- exit from the program, without launching the debugger, when the
configuration module was not found but notify a warning if the module was not essential (like when loaded from the command line using switch "-M").
This commit is contained in:
parent
ad28c940e2
commit
83356eed20
|
@ -121,7 +121,12 @@ etc.) happened"
|
||||||
;; (init-db)
|
;; (init-db)
|
||||||
(db-utils:with-ready-database (:connect nil)
|
(db-utils:with-ready-database (:connect nil)
|
||||||
(complete:initialize-complete-username-cache)
|
(complete:initialize-complete-username-cache)
|
||||||
(modules:load-module +starting-init-file+)
|
(handler-case
|
||||||
|
(modules:load-module +starting-init-file+)
|
||||||
|
(error (e)
|
||||||
|
(croatoan:end-screen)
|
||||||
|
(format *error-output* "~a~%" e)
|
||||||
|
(os-utils:exit-program 1)))
|
||||||
;; init main window for first...
|
;; init main window for first...
|
||||||
(main-window:init)
|
(main-window:init)
|
||||||
(keybindings-window:init)
|
(keybindings-window:init)
|
||||||
|
@ -141,11 +146,17 @@ etc.) happened"
|
||||||
;; now init the client
|
;; now init the client
|
||||||
(client:init)
|
(client:init)
|
||||||
(client:authorize)
|
(client:authorize)
|
||||||
|
(when command-line:*module-file*
|
||||||
|
(handler-case
|
||||||
|
(modules:load-module command-line:*module-file*)
|
||||||
|
(error ()
|
||||||
|
(ui:notify (format nil
|
||||||
|
(_ "Unable to load module ~a")
|
||||||
|
command-line:*module-file*)
|
||||||
|
:as-error t))))
|
||||||
(if command-line:*gemini-url*
|
(if command-line:*gemini-url*
|
||||||
(gemini-viewer:load-gemini-url command-line:*gemini-url*)
|
(gemini-viewer:load-gemini-url command-line:*gemini-url*)
|
||||||
(progn
|
(progn
|
||||||
(when command-line:*module-file*
|
|
||||||
(modules:load-module command-line:*module-file*))
|
|
||||||
(let ((program-events:*process-events-immediately* t))
|
(let ((program-events:*process-events-immediately* t))
|
||||||
(when command-line:*start-timeline*
|
(when command-line:*start-timeline*
|
||||||
(change-timeline))
|
(change-timeline))
|
||||||
|
|
Loading…
Reference in New Issue