Como colorir texto no emacs?

Quero vista (e / ou editar) texto a cores em emacs, como é a produção em ls -l --color=always, tree...ou o que quer.

O texto a que me refiro existe em um arquivo. Quando abro esse arquivo no emacs, desejo poder vê-lo colorido ou alterná-lo para mostrar as seqüências de escape ANSI (SGR).

ansi-color.el parece ser o que eu preciso, mas não consegui fazer nenhuma coloração das seqüências de escape ANSi , mas vejo azul-negrito para bytes de controle individuais (por exemplo, ^Ae ^[) ... não estou claro se isso é um recurso ansi-color, mas acho que é.

De acordo com os comentários da ansi-color.el , ele pode funcionar com strings e regiões, mas mesmo isso não parece funcionar. Por exemplo, a função ansi-color-apply-on-regionnão é reconhecida por M-x. Diz: "Sem correspondência"

Eu adicionei (require 'ansi-color)ao meu arquivo .emacs e até mesmo (add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on). Não recebo nenhum erro ou aviso quando o emacs inicia, por isso estou preso.

Como faço para que as funções padrão funcionem e elas podem ser aplicadas automaticamente ao abrir um arquivo cujo nome está com sufixo .col?

Eu acho que a peça que está faltando é a interactiveforma. É assim que o Emacs distingue entre uma função projetada para ser chamada por outras funções e uma função projetada para ser chamada diretamente pelo usuário. Veja o nó Emacs Lisp Intro

Agora, se você ler a definição de ansi-color-apply-on-region, verá que ela não foi projetada para uso interativo. "ansi-color" foi projetado para filtrar a saída de comint. No entanto, é fácil criar um wrapper interativo para ele.

(defun ansi-color-apply-on-region-int (beg end)
  "interactive version of func"
  (interactive "r")
  (ansi-color-apply-on-region beg end))

O próximo passo é que você deseja ativar as cores ansi para a extensão .col. Você pode adicionar uma função de gancho ao modo principal que você deseja usar para editar esses arquivos. A função seria executada sempre que você ativar o modo principal, portanto, será necessário adicionar uma verificação do sufixo do arquivo apropriado.

Como alternativa, você pode hackear um modo derivado rápido com base no modo "fundamental".

(define-derived-mode fundamental-ansi-mode fundamental-mode "fundamental ansi"
  "Fundamental mode that understands ansi colors."
  (require 'ansi-color)
  (ansi-color-apply-on-region (point-min) (point-max)))

e associe-o a essa extensão.

(setq auto-mode-alist
      (cons '("\\.col\\'" . fundamental-ansi-mode) auto-mode-alist))

A solução a seguir permite ler (e não salvar) arquivos contendo seqüências de cores ANSI. Os nomes de arquivos devem ter uma .txtextensão.

Coloque a biblioteca no formato tty~/.emacs.d/site-lisp/ e adicione essas linhas ao seu ~/.emacsarquivo init.

(add-to-list 'load-path "~/.emacs.d/site-lisp/")              
(require 'tty-format)
(add-hook 'find-file-hooks 'tty-format-guess)

Muito obrigado @enzotib pela sua solução!

Como complemento à sua solução, aqui está uma maneira de torná-la explicitamente solicitável pelo usuário:

;; M-x display-ansi-colors to explicitly decode ANSI color escape sequences                                                                                                                                        
(defun display-ansi-colors ()
  (interactive)
  (format-decode-buffer 'ansi-colors))

e automático para arquivos que não sejam apenas * .txt ou README:

;; decode ANSI color escape sequences for .log files                                                                                                                                                               
(add-to-list 'auto-mode-alist '("\\.log\\'" . display-ansi-colors))

Dessa forma, você pode substituir suas seqüências de escape por cores sem alterar o arquivo original, diferentemente das soluções utilizadas ansi-color-apply-on-region.