2008-11-09 6 views

Répondre

1

Définissez une variable "TERM" correspondant à un terminal monochrome avant de lancer Emacs. Par exemple, si vous êtes dans un xterm, utilisez:

TERM=xterm-mono emacs -nw 

Si par « console » vous voulez dire la console Linux en mode texte, vous pouvez essayer d'utiliser « VT100 » (ou « VT320 ») à la place.

1

J'utilise ce qui fonctionne bien parce que j'utilise les trucs Emacs CVS (le futur 23) multi-tty:

 
(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)))) 

Il choisit un thème de couleur différente selon que le cadre est en cours d'exécution dans une console ou une fenêtre X (Je ne veux pas perdre la couleur surlignage de syntaxe dans une console.)

Par ailleurs, maximiser ressemble à ceci:

 
(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

être légèrement plus courte que ces gars-là, la variable window-system est something si vous êtes dans une fenêtre système, et nil si vous êtes dans un terminal, donc si je voulais charger-darkblue2-thème couleur que j'aurais:

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

et il utilisera simplement les couleurs par défaut dans le terminal. Bien sûr, vous pouvez évidemment charger un thème à long terme de l'environnement dans le reste partie si vous vouliez:

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

Un autre simple que j'utilise:

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

donc cette charge le thème dans tous les cas où le système de fenêtre n'est pas nul, ce qui est fondamentalement n'importe quel type de GUI.

Questions connexes