Write code into systems and add formatting for highlight lists

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)