Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 13:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #387 from ecraven/add-rxvt-unicode-256color

Browse source 
Return #t from ansi-escapes-enabled? for $TERM rxvt-unicode-256color
This commit is contained in:
Alex Shinn 2017-01-10 00:31:44 +09:00 • committed by GitHub
commit def23d647e
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/chibi/term/ansi.scm
View file

@ -385,9 +385,10 @@
;;> of the latter determines the initial value returned by ;;> of the latter determines the initial value returned by
;;> \scheme{(ansi-escapes-enabled?)}. If the value of \scheme{TERM} ;;> \scheme{(ansi-escapes-enabled?)}. If the value of \scheme{TERM}
;;> is \scheme{"xterm"}, \scheme{"xterm-color"}, \scheme{"xterm-256color"}, ;;> is \scheme{"xterm"}, \scheme{"xterm-color"}, \scheme{"xterm-256color"},
;;> \scheme{"rxvt"}, \scheme{"kterm"}, \scheme{"linux"}, \scheme{"screen"}, ;;> \scheme{"rxvt"}, \scheme{"rxvt-unicode-256color"}, \scheme{"kterm"},
;;> \scheme{"screen-256color"}, or \scheme{"vt100"}, the initial value ;;> \scheme{"linux"}, \scheme{"screen"}, \scheme{"screen-256color"},
;;> is \scheme{#t}, otherwise the initial value is \scheme{#f}. ;;> or \scheme{"vt100"}, the initial value is \scheme{#t}, otherwise
;;> the initial value is \scheme{#f}.
;;> ;;>
;;> If neither of the environment variables \scheme{ANSI_ESCAPES_ENABLED} ;;> If neither of the environment variables \scheme{ANSI_ESCAPES_ENABLED}
;;> and \scheme{TERM} are set, the initial value returned by ;;> and \scheme{TERM} are set, the initial value returned by
@ -401,7 +402,8 @@
(else (else
(member (get-environment-variable "TERM") (member (get-environment-variable "TERM")
'("xterm" "xterm-color" "xterm-256color" "rxvt" "kterm" '("xterm" "xterm-color" "xterm-256color" "rxvt" "kterm"
"linux" "screen" "screen-256color" "vt100")))))) "linux" "screen" "screen-256color" "vt100"
"rxvt-unicode-256color"))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;