Integrate git blame with highlighting.

src/util-time.scm

@@ -29,6 +29,7 @@
  util-time
  (
   current-util-milliseconds
+  seconds->iso-date-string
   today/iso
   )
 
@@ -49,9 +50,9 @@
     (else
      (current-process-milliseconds))))
 
- ;; Returns today as YYYY-MM-DD string
- (define (today/iso)
-   (let ((d (seconds->local-time)))
+ ;; Converts seconds since epoch to ISO date string
+ (define (seconds->iso-date-string . args)
+   (let ((d (apply seconds->local-time args)))
      (format "~A-~A-~A"
 	     (number->string
 	      (+ 1900 (vector-ref d 5)))
@@ -64,5 +65,9 @@
 	       (+ 100 (vector-ref d 3)))
 	      1))))
 
+ ;; Returns today as YYYY-MM-DD string
+ (define (today/iso)
+   (seconds->iso-date-string))
+
  )