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

Use the new ANSI module.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-14 11:48:55 +01:00
parent f90041a0ff
commit 36e6e3c3cf
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
brmsaptool.scm
View file

@ -41,9 +41,9 @@
(dictionary-tests!) (dictionary-tests!)
(month-tests!) (month-tests!)
(period-tests!) (period-tests!)
(ansi-tests!)
(member-file-tests!) (member-file-tests!)
(command-line-tests!) (command-line-tests!)
(ansi-tests!)
(newline) (newline)
(command-line (command-line

8
member-file.scm
View file

@ -40,7 +40,8 @@
month month
period period
testing testing
listing) listing
ansi)
;; Specification of known keys for various types of parsing ;; Specification of known keys for various types of parsing
(define known-keys '(nick mail phone name born joined destroyed (define known-keys '(nick mail phone name born joined destroyed
@ -79,7 +80,10 @@
(define (report-line-error file-name lines highlights message) (define (report-line-error file-name lines highlights message)
(print "Error in " file-name ": " message) (print "Error in " file-name ": " message)
(newline) (newline)
(print-source-listing lines highlights (*member-file-context*) "\x1b[31;1m" "\x1b[0m" "" "" "...") (print-source-listing lines highlights
(*member-file-context*)
(ansi #:red #:bold) (ansi #:default)
"" "" "...")
(exit 1)) (exit 1))
;; Parses given key-value line. Key is up to first space, value is the ;; Parses given key-value line. Key is up to first space, value is the