Emacs, Wie ändert man einige Farben in M-x-Shell?

Question

Ich benutze Emacs 24 und möchte eine Farbe von Verzeichnissen und Dateien ändern, während ich im Shell-Modus bin (ls Befehl). Im Idealfall - abhängig von den Rechten der Datei.

Wie kann ich das tun?

habe ich versucht, mit

(setq ansi-color-names-vector 
     ["black" "red" "green" "yellow" "PaleBlue" "magenta" "cyan" "white"]) 
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on) 

spielen, aber ich denke, es ist nicht für mich zu arbeiten.
Ich habe jetzt Solarized Farbschema. Aber ich möchte seine Farben nicht ändern, nur für den Shell-Modus.

Edit:
Als ich Farben für meinen System-Terminal (mit .dircolrs Datei in meinem Home-Verzeichnis) ändern - Emacs liest, aber es (Emacs) leicht veränderte Farben - es macht eine Farbe etwas dunkler oder leichter im Shell-Modus.

Und ich weiß nicht, warum Emacs es tut.

Verschiedene dirs Farben (Spiele, Öffentliche ...:
Das ist Systemterminal:
Und das ist Emacs:

Diese Farben geändert werden, mit Standardfarben und solari-Thema Emacs gemacht blau dirs auf einem blauen Hintergrund.

ich verstehe, dass es kein großes Problem ist ein Hack zu finden, möchte nur wissen, warum Emacs Farben ein wenig verändert.

Answer 1

H Das ist, was ich verwende, um Solarized-Farben für Emacs zu setzen. Ich ging weiter und postete meine gesamte Ansi-Term-Konfiguration für den Fall, dass andere Einstellungen nützlich sein könnten.

(use-package ansi-term 
    :defer t 
    :init 
    (progn 

    ;; ;; Use variable width font faces in current buffer 
    (defun my-buffer-face-mode-variable() 
    ;; "Set font to a variable width (proportional) fonts in current buffer" 
     (interactive) 
     (setq buffer-face-mode-face '(:family "Menlo For Powerline" :height 100)) 
     (text-scale-adjust 1) 
     (buffer-face-mode)) 

    (setq system-uses-terminfo nil) 
    (add-hook 'term-mode-hook 
       '(lambda() 
       (linum-mode 0) 
       (term-set-escape-char ?\C-z) 
       (term-set-escape-char ?\C-x) 
       (define-key term-raw-map "\C-c" 'term-interrupt-subjob) 
       (define-key term-raw-map (kbd "M-x") 'execute-extended-command) 
       (setq autopair-dont-activate t) 
       (setq ac-auto-start nil) 
       (visual-line-mode -1) 
       ;; (my-buffer-face-mode-variable) 
       )) 

    (defun my-term-paste (&optional string) 
     (interactive) 
     (process-send-string 
     (get-buffer-process (current-buffer)) 
     (if string string (current-kill 0)))) 

    (defun my-term-pasteboard-paste() 
     (interactive) 
     (process-send-string 
     (get-buffer-process (current-buffer)) 
     (ns-get-pasteboard))) 

    (add-hook 'term-exec-hook '(lambda() 
           (set-buffer-process-coding-system 'utf-8-unix 'utf-8-unix) 
           (goto-address-mode) 
           (define-key term-raw-map (kbd "C-y") 'my-term-paste) 
           (define-key term-raw-map (kbd "s-v") 'my-term-pasteboard-paste) 
           (let ((base03 "#002b36") 
             (base02 "#073642") 
             (base01 "#586e75") 
             (base00 "#657b83") 
             (base0 "#839496") 
             (base1 "#93a1a1") 
             (base2 "#eee8d5") 
             (base3 "#fdf6e3") 
             (yellow "#b58900") 
             (orange "#cb4b16") 
             (red "#dc322f") 
             (magenta "#d33682") 
             (violet "#6c71c4") 
             (blue "#268bd2") 
             (cyan "#2aa198") 
             (green "#859900")) 
            (setq ansi-term-color-vector 
             (vconcat `(unspecified ,base02 ,red ,green ,yellow ,blue 
                   ,magenta ,cyan ,base2)))))) 

Answer 2

Irgendwo fand ich das, und es half mir (ich einen kompletten Neuling bin, aber ich dachte, dass setq ansi-color-names-vector genug wäre):

(setq ansi-color-names-vector 
     ["black" "tomato" "PaleGreen2" "gold1" 
     "DeepSkyBlue1" "MediumOrchid1" "cyan" "white"]) 
(setq ansi-color-map (ansi-color-make-color-map))  # this helped 

Jetzt ansi-color-names-vector Werke in der Schale.

Answer 3

M-x customize-variable RET ansi-color-names-vector RET

Bestehende Text nicht betroffen, aber neu Text (auch in dem gleichen Shell-Puffer) gedruckt wird die neuen Farben zeigen.