2008-11-09 1 views

답변

1

Emacs를 시작하기 전에 단색 터미널에 해당하는 "TERM"변수를 설정하십시오. 당신이 xterm을 사용중인 경우 예를 들어, "콘솔"에 의해 텍스트 모드에서 리눅스 콘솔을 의미하는 경우

TERM=xterm-mono emacs -nw 

, 당신은 대신 (또는 "VT320") "VT100"을 사용하여 시도 할 수 있습니다.

 
(defun mrc-xwin-look (frame) 
    "Setup to use if running in an X window" 
    (color-theme-deep-blue)) 

(defun mrc-terminal-look (frame) 
    "Setup to use if running in a terminal" 
    (color-theme-charcoal-black)) 

(defun mrc-setup-frame (frame) 
    (set-variable 'color-theme-is-global nil) 
    (select-frame frame) 
    (cond 
    ((window-system) 
    (mrc-xwin-look frame) 
    (tool-bar-mode -1) 
    (mrc-maximize-frame)) 
    (t (mrc-terminal-look frame)))) 

(add-hook 'after-make-frame-functions 'mrc-setup-frame) 

(add-hook 'after-init-hook 
     (lambda() 
     (mrc-setup-frame (selected-frame)))) 

그것은 프레임이 콘솔에서 실행 또는 여부에 따라 다른 색상 테마를 선택합니다 :

1

내가 이맥스 CVS (향후 23)에서 multi-tty 재료를 사용하여도 있기 때문에 어떤 작품이 사용 X 윈도우. (I는 콘솔의 색상 구문 강조를 잃고 싶지 않아.) 그런데

,이 같은 모습을 극대화 :

 
(defun mrc-maximize-frame() 
    "Toggle frame maximized state" 
    ;; from http://paste.lisp.org/display/54627/raw 
    (interactive) 
    (cond 
    ((eq 'x (window-system)) 
    (progn 
     (x-send-client-message nil 0 nil "_NET_WM_STATE" 32 
       '(2 "_NET_WM_STATE_MAXIMIZED_HORZ" 0)) 
     (x-send-client-message nil 0 nil "_NET_WM_STATE" 32 
       '(2 "_NET_WM_STATE_MAXIMIZED_VERT" 0)))) 
    (t 
    (message "Window system %s is not supported by maximize" 
     (symbol-name (window-system)))))) 
13

그 사람들보다 약간 짧게, 변수 window-system입니다 something 당신은 윈도우 시스템에 있다면nil 터미널에 있다면, 그래서 내가 컬러 테마 darkblue2를로드하기를 원한다면 난 것 :

(if window-system 
    (progn 
     (load "color-theme") 
     (color-theme-darkblue2))) 

이며 터미널의 기본 색상 만 사용합니다.

(load "color-theme") 
(if window-system 
    (color-theme-darkblue2) 
    (some-term-theme))) 
0

내가 사용하는 또 다른 간단한 :

(when window-system 
    (load-theme '<myThemeName>)) 

그래서이 모든에 테마를로드를 당신이 원한다면 물론, 당신은 분명히 다른 부분에서 용어 친화적 인 테마를로드 할 수 window-system이 nil이 아닌 경우, 기본적으로 모든 종류의 gui입니다.

관련 문제