diff options
| author | Logan Hunt <loganhunt@simponic.xyz> | 2022-05-31 14:56:24 -0700 |
|---|---|---|
| committer | Logan Hunt <loganhunt@simponic.xyz> | 2022-05-31 14:56:24 -0700 |
| commit | 84e566e92bd7c00fa01bd08c5d22ed77cbeb1a4c (patch) | |
| tree | d18000ede4f60743786e0d83cd36a83fea24e88e /ui.lisp | |
| parent | e6fe31daef40bec71e962c502f3a17ff9fa59d31 (diff) | |
| download | lispruns-84e566e92bd7c00fa01bd08c5d22ed77cbeb1a4c.tar.gz lispruns-84e566e92bd7c00fa01bd08c5d22ed77cbeb1a4c.zip | |
Add elapsed time to each split
Diffstat (limited to 'ui.lisp')
| -rw-r--r-- | ui.lisp | 14 |
1 files changed, 11 insertions, 3 deletions
@@ -97,7 +97,7 @@ (if (member 'title-instance redraws) (croatoan:clear scr) (let* ((padding 4) - (title (append *lispruns-logo* '("" "CONTROLS" " SPACE to start or continue to the next split" " Q to quit"))) + (title (append *lispruns-logo* '("" "CONTROLS" " SPACE to start and to continue to the next split" " Q to quit"))) (width (+ (* 2 padding) (max-length title))) (height (+ (* 2 padding) (length title))) (logo-centered (center-box scr width height)) @@ -121,10 +121,18 @@ (splits-height (- (croatoan:height scr) timer-height)) (split-list (make-instance 'highlight-list :scroll-i scroll - :current-element-index (if (eq (speedrun-state speedrun) 'STOPPED) (1- (length (speedrun-splits speedrun))) (speedrun-current-split-index speedrun)) + :current-element-index (speedrun-current-split-index speedrun) :height splits-height :width max-width - :elements (mapcar #'category-split-name csplits))) + :elements (mapcar (lambda (csplit speedrun-split) + `( + (,(category-split-name csplit) . ,(/ 4 12)) + ("" . ,(/ 1 12)) + (,(format-elapsed-time speedrun-split) . ,(/ 3 12)) + )) + csplits + (speedrun-splits speedrun)))) +;; :elements (mapcar #'category-split-name csplits))) ;; :elements `((("FIRST SPLIT IS EPIC" . ,(/ 4 12)) ("" . ,(/ 1 12)) ("10:10:00.22" . ,(/ 3 12)) ("" . ,(/ 1 12)) ("20:00.00" . ,(/ 3 12)))))) (splits-instance (highlight-list-window split-list `(0 ,centered-x))) (timer-instance (timer-window speedrun `(,splits-height ,centered-x) max-width timer-height))) |