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

Allow accepting blame output in listings.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-15 11:29:20 +02:00
parent 2ede889714
commit 73c45ab9db
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/listing.scm
View file

@ -39,7 +39,8 @@
(chicken format) (chicken format)
testing testing
ansi ansi
util-kwargs) util-kwargs
util-dict-list)
;; Returns the number of digits required to represent a given number ;; Returns the number of digits required to represent a given number
;; in decimal format. ;; in decimal format.
@ -163,7 +164,10 @@
(display ctx-pre))) (display ctx-pre)))
(display (sprintf "~A~A~A" (display (sprintf "~A~A~A"
(format-line-number number digits) (format-line-number number digits)
(car lines) (let ((line (car lines)))
(if (ldict? line)
(ldict-ref line 'line)
line))
(let ((comment (highlight-comment number highlights))) (let ((comment (highlight-comment number highlights)))
(if comment (if comment
(sprintf " # <<< ~A" comment) (sprintf " # <<< ~A" comment)