Preliminary work on annotations.

src/util-git.scm

@@ -99,4 +99,22 @@
 			      (cons fname
 				    (ldict-ref res status '())))))))))
 
+ ;; Returns detailed file annotation with each line being represented
+ ;; by dictionary with keys from git output
+ (define (git-blame repo fname)
+   (let loop ((lines ((git repo) 'annotate '--porcelain fname))
+	      (blames '()))
+     (if (null? lines)
+	 blames
+	 (let ((line (car lines))
+	       (rblames (if (null? blames)
+			    '()
+			    (cdr blames)))
+	       (blame (if (null? blames)
+			  (make-ldict)
+			  (car blames))))
+	   (loop (cdr lines)
+		 (cons blame
+		       rblames))))))
+
  )