Integrate git blame with highlighting.

src/util-git.scm

@@ -38,7 +38,8 @@
 	 (chicken string)
 	 util-io
 	 util-dict-list
-	 util-parser)
+	 util-parser
+	 util-time)
 
  ;; Valid git operating modes
  (define git-modes
@@ -128,9 +129,15 @@
 				blames))))
 		 (else
 		  ;; Any header
-		  (let ((kv (parser-parse-line line)))
+		  (let* ((kv (parser-parse-line line))
+			 (k (car kv))
+			 (v (cdr kv))
+			 (v1 (case k
+			       ((committer-time)
+				(seconds->iso-date-string (string->number v)))
+			       (else v))))
 		    (loop (cdr lines)
-			  (ldict-set blame (car kv) (cdr kv))
+			  (ldict-set blame k v1)
 			  blames))))))))
 
  )