brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Start work on showing commits.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-15 13:51:05 +02:00
parent b343f4726e
commit 6564ff927f
2 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Makefile
View file

@ -187,7 +187,7 @@ MEMBERS-PRINT-SOURCES=members-print.scm util-dict-list.import.scm \
bank-account.import.scm members-fees.import.scm \ bank-account.import.scm members-fees.import.scm \
members-payments.import.scm util-list.import.scm \ members-payments.import.scm util-list.import.scm \
brmember-format.import.scm specification.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.o: members-print.import.scm
members-print.import.scm: $(MEMBERS-PRINT-SOURCES) members-print.import.scm: $(MEMBERS-PRINT-SOURCES)

11
src/members-print.scm
View file

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