diff options
| author | Mike Montague <mikemon@gmail.com> | 2022-07-11 21:44:12 -0700 |
|---|---|---|
| committer | Mike Montague <mikemon@gmail.com> | 2022-07-11 21:44:12 -0700 |
| commit | ded2fb779e8b9d07aa8a62321f651936e126dc75 (patch) | |
| tree | 66012da96bc5a85102eae1e2ac17b60d0b59436a | |
| parent | 9f0f26b88d42b23e2b9f813f5a00bf82ddfb73f7 (diff) | |
srfi 166: remove color support
| -rw-r--r-- | src/srfi-166.scm | 6 | ||||
| -rw-r--r-- | test/srfi.scm | 2 |
2 files changed, 6 insertions, 2 deletions
diff --git a/src/srfi-166.scm b/src/srfi-166.scm index 61abf50..e6ce064 100644 --- a/src/srfi-166.scm +++ b/src/srfi-166.scm @@ -44,6 +44,7 @@ justified/list from-file line-numbers + #| as-red as-blue as-green @@ -67,7 +68,7 @@ as-true-color on-color on-true-color - + |# upcased downcased fn @@ -1056,6 +1057,7 @@ (fn ((original var)) (with ((var attribute)) (each attribute fmt original)))) + #| (define (as-red . fmts) (with-attribute foreground "\x1B;[31m" (each-in-list fmts))) (define (as-blue . fmts) @@ -1114,7 +1116,7 @@ (string-append "\x1B;[48;2;" (number->string red) ";" (number->string green) ";" (number->string blue) "m") (each-in-list fmts))) - + |# (define (with-output proc fmt) (fn ((original output)) (with ((output (lambda (str) (proc original str)))) diff --git a/test/srfi.scm b/test/srfi.scm index 561115c..64702fe 100644 --- a/test/srfi.scm +++ b/test/srfi.scm @@ -3579,6 +3579,7 @@ (check-equal " 1 first line\n 2 second line\n 3 third line\n" (show #f (columnar 4 'right 'infinite (line-numbers) " " (from-file "output-166.txt")))) +#| ;; color (check-equal "\x1B;[31mred\x1B;[39m" (show #f (as-red "red"))) (check-equal "\x1B;[31mred\x1B;[34mblue\x1B;[31mred\x1B;[39m" @@ -3589,6 +3590,7 @@ (show #f (as-red (each (as-underline (as-bold "abc") "def") "ghi")))) (check-equal "\x1b;[44m\x1b;[33mabc\x1b;[39mdef\x1b;[49m" (show #f (on-blue (each (as-yellow "abc") "def")))) +|# #| (define-library (srfi 166 test) |