From 3db9a2eb7a7d14ce935f5902b0c21ce4fd5eb729 Mon Sep 17 00:00:00 2001
From: Logan Hunt <loganjh@amazon.com>
Date: Tue, 24 May 2022 09:57:15 -0700
Subject: None of the original commit messages would actually help anyone

---
 database/category.lisp | 19 +++++++++++++++++++
 database/run.lisp      | 17 +++++++++++++++++
 database/seeds.lisp    |  8 ++++++++
 3 files changed, 44 insertions(+)
 create mode 100644 database/category.lisp
 create mode 100644 database/run.lisp
 create mode 100644 database/seeds.lisp

(limited to 'database')

diff --git a/database/category.lisp b/database/category.lisp
new file mode 100644
index 0000000..4416331
--- /dev/null
+++ b/database/category.lisp
@@ -0,0 +1,19 @@
+(mito:deftable category ()
+  ((name :col-type (:varchar 128))
+   (percentage :col-type (:varchar 128)))
+  (:record-timestamps nil)
+  (:conc-name category-))
+
+(mito:deftable category-split ()
+  ((name :col-type (:varchar 128))
+   (category :col-type category))
+  (:record-timestamps nil)
+  (:conc-name category-split-))
+
+(defun category-splits (category)
+  (mito:select-dao 'category-split
+                   (sxql:where (:= :category category))
+                   ;; Assumption that split categories are entered in the correct order by id
+                   (sxql:order-by :id)))
+
+;; select *, sum(julianday(end_time)-julianday(start_time))*24*60*60 as total_time from run_split group by run_id order by total_time;
diff --git a/database/run.lisp b/database/run.lisp
new file mode 100644
index 0000000..30b8342
--- /dev/null
+++ b/database/run.lisp
@@ -0,0 +1,17 @@
+(mito:deftable run ()
+  ((category :col-type category))
+  (:record-timestamps nil)
+  (:conc-name run-))
+  
+(mito:deftable run-split ()
+  ((run :col-type run)
+   (category-split :col-type category-split)
+   (start-time :col-type (or :datetime :null))
+   (end-time :col-type (or :datetime :null)))
+  (:record-timestamps nil)
+  (:conc-name run-split-))
+
+(defun run-splits (run)
+  (mito:select-dao 'run-split
+                   (sxql:order-by :category_split_id)
+                   (sxql:where (:= :run run))))
diff --git a/database/seeds.lisp b/database/seeds.lisp
new file mode 100644
index 0000000..769676d
--- /dev/null
+++ b/database/seeds.lisp
@@ -0,0 +1,8 @@
+(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"))
-- 
cgit v1.2.3-70-g09d2