Start work on showing commits.

src/Makefile

@@ -187,7 +187,7 @@ MEMBERS-PRINT-SOURCES=members-print.scm util-dict-list.import.scm	\
 	bank-account.import.scm members-fees.import.scm			\
 	members-payments.import.scm util-list.import.scm		\
 	brmember-format.import.scm specification.import.scm		\
-	cal-format.import.scm
+	cal-format.import.scm util-git.import.scm
 
 members-print.o: members-print.import.scm
 members-print.import.scm: $(MEMBERS-PRINT-SOURCES)

src/members-print.scm

@@ -62,7 +62,8 @@
 	 members-payments
 	 brmember-format
 	 specification
-	 cal-format)
+	 cal-format
+	 util-git)
 
  ;; Returns nicely formatted table
  (define (member-info->table mr)
@@ -170,10 +171,14 @@
  (define (print-member-blame mr)
    (let* ((lines (brmember-source mr))
 	  (file-name (ldict-ref mr 'file-name))
-	  (hls (ldict-ref mr 'highlights '())))
+	  (hls (ldict-ref mr 'highlights '()))
+	  (file-path (brmember-file-path mr))
+	  (blame (git-blame (*members-directory*) file-name))
+	  )
+     (print blame)
      (print file-name ":")
      (print-source-listing
-      lines
+      blame
       hls
       #:context -1
       )))