Re: screen and emacs

From: <masa_at_amogha.jp ($B4];3D>>;(B)>
Date: Fri, 31 Mar 2023 00:06:58 UTC
$BApCO(B $B\k(B

$B4];3$G$9!#M-Fq$&$4$6$$$^$9!#(B

Thu, 30 Mar 2023 18:46:11 +0900
Kaoru Kusachi <tika@st.rim.or.jp> writes:

>$BApCO!w%j%`%M%C%H$H?=$7$^$9!#(B
>
>$BIaCJ$O(B FreeBSD$B$r%G%9%/%H%C%W4D6-$H$7$F;H$C$F$O$$$J$$$N$G$9$,!">/$78E$$<j85$G(B
>$BF0$/%G%9%/%H%C%W4D6-(B (FreeBSD 11.4 + xorg 7.7 + xfce4-wm 4.16 + emacs 27.2 +
>screen 4.8.0) $B$G3NG'$9$k$H(B xfce-terminal $B$G(B screen $B$r5/F0$7$F(B emacs -nw $B$r<B(B
>$B9T$9$k$HF1$8MM$K%b!<%I%i%$%s$NI=<($,8+$($J$/$J$k$H8@$&8=>]$O3NG'=PMh$^$7$?!#(B

11 $B$+$i$G$7$?$+!#(B

>$B99$KD4$Y$F$_$k$H$I$&$bIaDL$K%?!<%_%J%kFb$G(B emacs -nw $B$G5/F0$7$?>l9g$H(B screen
>$BFb$G<B9T$7$?>l9g$G$O$I$&$b(B emacs $B$N%+%i!<%^%C%W$,JQ$o$C$F$7$^$&MM$G%b!<%I%i%$(B
>$B%s$N(B background color$B$H(B foreground color$B$,F1$8$K$J$C$F$7$^$C$F8+$($J$$>uBV$K(B
>$B$J$C$F$$$kMM$G$9!#(B

$B$H$$$&$3$H$O!"(B emacs $B$NLdBj$H8@$($=$&$G$9$M!#%+%i!<%^%C%W!"$H$$$&$3$H$J(B
$B$N$G!"(Benv TERM=vt100-color emacs -nw $B$H$d$C$F$_$k$H!"$3$N>l9g$b%b!<%I%i(B
$B%$%s$O8+$($^$;$s$M!#(B

>$B$H$j$"$($:!"(Bemacs $B$r(B screen$BFb$G5/F0$7$?;~$K$@$16/@)E*$K%b!<%I%i%$%s$N?'$rJQ99(B
>$B$9$kMM$J%3!<%I$r=q$$$F$_$^$7$?$N$G!"(B.emacs $B$KDI5-$7$F3NG'$7$F$_$F2<$5$$!#(B
>
>;;
>;; mode-line-color (screen)
>;;
>(when (string= "TERM=screen"
>     (format "%s" (nth 0 (nth 0 (list
>         (mapcan #'(lambda (e) (and (string-match "^TERM=" e) (list e)))
>             initial-environment))))))
>   (progn
>     (set-face-foreground 'mode-line "black")
>     (set-face-background 'mode-line "darkslategrey")
>   )
>)
>
>$B$3$l$G$H$j$"$($:!"(Bemacs $B$N(B mode-line$B$,8+$($kMM$K$O$J$k$N$G$9$,!"(Bemacs$B$N(B
>$B%?!<%_%J%k@_Dj$NLdBj$J$N$+(B screen$B$NLdBj$J$N$+$O860xITL@$G$9!#(B

$B$3$l$G3N$+$K%b!<%I%i%$%s$O8+$($k$h$&$K$J$j$^$7$?!#(B

># $BIaCJ$O(B emacs -nw --color=never $B$G;H$C$F$$$k$N$GA4$/5$$,IU$-$^$;$s$G$7$?!#(B
>
>$B$J$*!"(Bmode-line $B$K;XDj$7$F$$$k?'$K$D$$$F$O(B M-x list-colors-display $B$GI=<((B
>$B$5$l$k?'$NL>A0$r@_Dj$7$F$$$^$9!#(B
>
>$B$H$j$"$($:;29M$^$G!#(B

$B$O$$!";29M$K$J$j$^$9!#JY6/$K$J$j$^$7$?!#M-Fq$&$4$6$$$^$7$?!#(B

--------
$B4];3(B $BD>>;(B $B$^$k$d$^(B $B$J$*$^$5(B
$B%a!<%k%"%I%l%9!'(B masa@amogha.jp