diff options
| author | Logan Hunt <loganhunt@simponic.xyz> | 2022-05-31 23:23:58 -0700 |
|---|---|---|
| committer | Logan Hunt <loganhunt@simponic.xyz> | 2022-05-31 23:23:58 -0700 |
| commit | a76bfbf944d8ac89b7581ed378f4782084aa404a (patch) | |
| tree | 8bc2267a73c9e2c0c7d35cca304dcf406b376851 /database/run.lisp | |
| parent | 10d7a20a79f8e7746d965cfadf1757b3e3799858 (diff) | |
| download | lispruns-a76bfbf944d8ac89b7581ed378f4782084aa404a.tar.gz lispruns-a76bfbf944d8ac89b7581ed378f4782084aa404a.zip | |
User can create new category on the CLI
Diffstat (limited to 'database/run.lisp')
| -rw-r--r-- | database/run.lisp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/database/run.lisp b/database/run.lisp index 739dc96..adee23a 100644 --- a/database/run.lisp +++ b/database/run.lisp @@ -24,12 +24,16 @@ (if start (floor (* 100 (local-time:timestamp-difference end start)))))) -(defun format-elapsed-time (run-split) +(defun run-split-format-elapsed-time (run-split) (let ((elapsed (run-split-elapsed-time run-split))) (if elapsed (format-time (make-time-alist elapsed)) "-"))) +;;(defun best-split (category-split) +;; (mito:select-dao 'run-split +;; (sxql:order-by (:- V + ;; Returns stuff like PB, best of each split, etc. (defun run-statistics (category) `((asdf . 1))) |