diff options
Diffstat (limited to 'database')
| -rw-r--r-- | database/category.lisp | 2 | ||||
| -rw-r--r-- | database/run.lisp | 6 |
2 files changed, 6 insertions, 2 deletions
diff --git a/database/category.lisp b/database/category.lisp index 4416331..70fb49b 100644 --- a/database/category.lisp +++ b/database/category.lisp @@ -15,5 +15,3 @@ (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 index 30b8342..21d278a 100644 --- a/database/run.lisp +++ b/database/run.lisp @@ -15,3 +15,9 @@ (mito:select-dao 'run-split (sxql:order-by :category_split_id) (sxql:where (:= :run run)))) + +;; Returns stuff like PB, best of each split, etc. +(defun run-statistics (category) + `((asdf . 1))) + +;; 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; |