1 files changed, 39 insertions, 0 deletions
diff --git a/main.lisp b/main.lisp
new file mode 100644
index 0000000..5efd61e
--- /dev/null
+++ b/main.lisp
@@ -0,0 +1,39 @@
+(ql:quickload '(unix-opts mito cl-ppcre croatoan local-time))
+
+;; Migrate database structure
+(mito:connect-toplevel :sqlite3 :database-name #P"timer.db")
+(setq mito:*auto-migration-mode* t)
+(load "database/category.lisp")
+(load "database/run.lisp")
+
+;; Utils
+(load "util.lisp")
+
+;; Config file importing
+(load "config.lisp")
+
+;; Load the UI
+(load "ui.lisp")
+
+;; The timing logic
+(load "speedrun.lisp")
+
+;; Define command line arguments
+(opts:define-opts
+  (:name :import
+   :description "create splits and category from a config file"
+   :short #\i
+   :long "import"
+   :arg-parser #'identity))
+
+(defmacro when-option ((options opt) &body body)
+  `(let ((it (getf ,options ,opt)))
+     (when it
+       ,@body)))
+(defun main ()
+  (let ((options (opts:get-opts)))
+    (when-option (options :import)
+                 (import-config (getf options :import))))
+  (run-ui))
+
+(main)