metric time

(import (chicken string))
(import srfi-13)
(import srfi-19)
;; clock
(define (metric-date time)
 (let ((unit-day 86400)
       (ts (time-second time)))
      (number->string (round (/ ts unit-day)))))
(define (metric-time time)
  (let ((date (time-utc->date time)))
       (date->string date "~T")))
(define (metric-time-format)
 (let ((now (current-time)))
      (string-join (list (metric-date now)
                         (metric-time now))
                   "+")))