307
308
309
310
311
312
313
314
315
316
317
318
319
320
|
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
|
+
+
+
+
|
(if (> min 0)(conc min "m ") "")
sec "s")))
(define (seconds->time-string sec)
(time->string
(seconds->local-time sec) "%H:%M:%S"))
(define (seconds->work-week/day sec)
(time->string
(seconds->local-time sec) "%V.%u"))
;;======================================================================
;; Colors
;;======================================================================
(define (common:name->iup-color name)
(case (string->symbol (string-downcase name))
((red) "223 33 49")
|