20 lines
716 B
Common Lisp
20 lines
716 B
Common Lisp
(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;
|