summaryrefslogtreecommitdiff
path: root/main.lisp
diff options
context:
space:
mode:
authorLogan Hunt <loganhunt@simponic.xyz>2022-05-29 21:31:48 -0700
committerLogan Hunt <loganhunt@simponic.xyz>2022-05-29 21:31:48 -0700
commitedeab2d09444e02a2eeb3adb2bf7933a2851c5b3 (patch)
tree774027b0b7f31f457a4f01eb977ed8922bcfaf6a /main.lisp
parent088a03c2e788127c5b8606d0a6a1956ff58e4ec1 (diff)
downloadlispruns-edeab2d09444e02a2eeb3adb2bf7933a2851c5b3.tar.gz
lispruns-edeab2d09444e02a2eeb3adb2bf7933a2851c5b3.zip
Get a timer on the screen finally
Diffstat (limited to 'main.lisp')
-rw-r--r--main.lisp7
1 files changed, 4 insertions, 3 deletions
diff --git a/main.lisp b/main.lisp
index 1404b25..8cafce9 100644
--- a/main.lisp
+++ b/main.lisp
@@ -11,9 +11,10 @@
:arg-parser #'identity))
(defun main ()
- (let ((options (opts:get-opts)))
+ (let ((options (opts:get-opts))
+ (category (car (mito:select-dao 'category))))
(when-option (options :import)
- (import-config (getf options :import))))
- (run-ui))
+ (import-config (getf options :import)))
+ (run-ui category)))
(main)