From 47b6bdf8b737bf12f5f7b8839ed2389ff28c723c Mon Sep 17 00:00:00 2001
From: Logan Hunt <loganjh@amazon.com>
Date: Tue, 24 May 2022 16:22:00 -0700
Subject: Write code into systems and add formatting for highlight lists

---
 main.lisp | 20 --------------------
 1 file changed, 20 deletions(-)

(limited to 'main.lisp')

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)
-- 
cgit v1.2.3-70-g09d2