Update documentation; fix some bugs on first run

README.org

@@ -3,8 +3,3 @@ This is a complete rewrite of my first Lisp project: a speedrun timer. It uses n
 ** Requirements
 + [[https://www.quicklisp.org/beta/][Quicklisp]]
 + [[http://www.sbcl.org/platform-table.html][SBCL]]
-** Usage
-*** Importing categories
-Config files are documented by the examples in ~configs~. Once a config file is written, import that category and its splits by running ~sbcl --load main.lisp -i <path-to-config>~. This will add the category and its splits to the timer's SQLite database.
-*** Running
-Simply ~sbcl --load main.lisp~

database/seeds.lisp

@@ -1,8 +0,0 @@
-(mito:create-dao 'category :name "Super Metroid" :percentage "Any%"))
-
-(mito:create-dao 'category :name "Portal 1" :percentage "Any%"))
-
-(mito:create-dao 'category :name "Super Mario 64" :percentage "16 Stars"))
-
-(mito:create-dao 'category :name "Minecraft" :percentage "Any% RSG"))
-(mito:create-dao 'category :name "Minecraft" :percentage "Any% SSG"))

lispruns.asd

@@ -17,9 +17,9 @@
                  (:file "speedrun" :depends-on ("util")) ;; The actual timer logic
                  (:file "database/category") ;; Category DAO
                  (:file "database/run") ;; Run DAO
-                 (:file "main" :depends-on ("util"
+                 (:file "main" :depends-on ("database/category"
+                                            "database/run"
+                                            "util"
                                             "config"
                                             "ui"
-                                            "speedrun"
-                                            "database/category"
-                                            "database/run"))))
+                                            "speedrun"))))

main.lisp

@@ -11,10 +11,7 @@
    :arg-parser #'identity))
 
 (defun main ()
-  (let ((options (opts:get-opts))
-        (category (car (mito:select-dao 'category))))
+  (let ((options (opts:get-opts)))
     (when-option (options :import)
       (import-config (getf options :import)))
-    (run-ui category)))
-
-(main)
+    (run-ui (car (mito:select-dao 'category)))))

ui.lisp

@@ -104,7 +104,7 @@
             (start-speedrun speedrun)
             (setf state 'RUNNING))
            ('RUNNING (next-split speedrun))))
-        (:resize (nil))
+        (:resize nil)
         ((nil)
          (case state
            ('TITLE