LordMZTE/dotfiles
1
0
Fork 0
mirror of https://mzte.de/git/LordMZTE/dotfiles.git synced 2024-06-18 11:18:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

color output of setup code

Browse source
This commit is contained in:
LordMZTE 2023-05-04 23:21:25 +02:00
parent 0e97bd2440
commit 587ce3eed0
Signed by: LordMZTE
GPG key ID: B64802DC33A64FF6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
setup/common.rkt
View file

@ -15,7 +15,7 @@
(define (display-function-call func args)
(when (log-calls)
(printf "(~s ~a)\n" func (apply ~a #:separator " " args))))
(printf "\x1b[1;30m(~s ~a)\x1b[0m\n" func (apply ~a #:separator " " args))))
;; Defines an alias to a function which will log it's parameters on invokation.
(define-syntax-rule (define-logging name func)