From ffa83bc8b0794f5e20c6ee909e963436f5f06371 Mon Sep 17 00:00:00 2001 From: Simponic Date: Sun, 29 May 2022 21:57:21 -0700 Subject: Update documentation; fix some bugs on first run --- main.lisp | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'main.lisp') diff --git a/main.lisp b/main.lisp index 8cafce9..a15daca 100644 --- a/main.lisp +++ b/main.lisp @@ -11,10 +11,7 @@ :arg-parser #'identity)) (defun main () - (let ((options (opts:get-opts)) - (category (car (mito:select-dao 'category)))) + (let ((options (opts:get-opts))) (when-option (options :import) (import-config (getf options :import))) - (run-ui category))) - -(main) + (run-ui (car (mito:select-dao 'category))))) -- cgit v1.2.3-70-g09d2