From c8c25e9952296459efa551d5ee7c3b9a1925b35d Mon Sep 17 00:00:00 2001 From: VaclavT Date: Sun, 7 Nov 2021 11:05:43 +0100 Subject: [PATCH] fix % in terminal coloring --- stdlib/terminal.lsp | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/stdlib/terminal.lsp b/stdlib/terminal.lsp index 432679a..4564b3c 100644 --- a/stdlib/terminal.lsp +++ b/stdlib/terminal.lsp @@ -10,13 +10,13 @@ (define term-bold-esc "\x1B[1m") (define term-underline-esc "\x1B[4m") -(defun term-red (str) (sprintf (+ term-red-esc str term-rst-esc))) -(defun term-green (str) (sprintf (+ term-green-esc str term-rst-esc))) -(defun term-yellow (str) (sprintf (+ term-yellow-esc str term-rst-esc))) -(defun term-blue (str) (sprintf (+ term-blue-esc str term-rst-esc))) -(defun term-magenta (str) (sprintf (+ term-magenta-esc str term-rst-esc))) -(defun term-cyan (str) (sprintf (+ term-cyan-esc str term-rst-esc))) -(defun term-white (str) (sprintf (+ term-white-esc str term-rst-esc))) -(defun term-bold (str) (sprintf (+ term-bold-esc str term-rst-esc))) -(defun term-underline (str) (sprintf (+ term-underline-esc str term-rst-esc))) +(defun term-red (str) (sprintf (+ term-red-esc (string-replace str "%" "%%") term-rst-esc))) +(defun term-green (str) (sprintf (+ term-green-esc (string-replace str "%" "%%") term-rst-esc))) +(defun term-yellow (str) (sprintf (+ term-yellow-esc (string-replace str "%" "%%") term-rst-esc))) +(defun term-blue (str) (sprintf (+ term-blue-esc (string-replace str "%" "%%") term-rst-esc))) +(defun term-magenta (str) (sprintf (+ term-magenta-esc (string-replace str "%" "%%") term-rst-esc))) +(defun term-cyan (str) (sprintf (+ term-cyan-esc (string-replace str "%" "%%") term-rst-esc))) +(defun term-white (str) (sprintf (+ term-white-esc (string-replace str "%" "%%") term-rst-esc))) +(defun term-bold (str) (sprintf (+ term-bold-esc (string-replace str "%" "%%") term-rst-esc))) +(defun term-underline (str) (sprintf (+ term-underline-esc (string-replace str "%" "%%") term-rst-esc)))