From 604278930831b6a4a00092f944fea140af7ac96a Mon Sep 17 00:00:00 2001 From: Rostislav Svoboda Date: Wed, 25 Oct 2023 21:16:33 +0200 Subject: [PATCH] Use same colors in the output as the `rg` --- main.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/main.rkt b/main.rkt index cc48d10..8c656f4 100644 --- a/main.rkt +++ b/main.rkt @@ -133,7 +133,8 @@ directory to search in." (ptrn (car patterns))) (display-fn txt) (if colorize-matches? - (with-colors 'red (lambda () (color-display ptrn))) + ;; b-red means 'bold and red' + (with-colors 'b-red (lambda () (color-display ptrn))) (display ptrn)) (colorize colorize-matches? display-fn (cdr matches) (cdr patterns)))])) @@ -155,7 +156,7 @@ directory to search in." (relevant-file-strings-joined (string-join relevant-file-strings "\n"))) (if colorize-matches? - (with-colors 'white + (with-colors 'magenta (lambda () (color-displayln first-file-string))) (displayln first-file-string))