summaryrefslogtreecommitdiff
path: root/main.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'main.lisp')
-rw-r--r--main.lisp20
1 files changed, 0 insertions, 20 deletions
diff --git a/main.lisp b/main.lisp
index 5efd61e..1404b25 100644
--- a/main.lisp
+++ b/main.lisp
@@ -1,22 +1,6 @@
-(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
@@ -26,10 +10,6 @@
: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)