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

setup: improve UX

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

5
setup/common.rkt
View file

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