From 3db9a2eb7a7d14ce935f5902b0c21ce4fd5eb729 Mon Sep 17 00:00:00 2001 From: Logan Hunt Date: Tue, 24 May 2022 09:57:15 -0700 Subject: None of the original commit messages would actually help anyone --- database/category.lisp | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 database/category.lisp (limited to 'database/category.lisp') 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; -- cgit v1.3