Jak pokolorować tekst w emacsie?

Chcę widzenia (i / lub edytować) kolorowanie tekstu w emacs, takiego jakie jest wyjście przez ls -l --color=always, tree...lub cokolwiek.

Tekst, o którym mówię, istnieje w pliku. Kiedy otwieram ten plik w emacsie, chcę mieć możliwość zobaczenia go pokolorowanego lub przełączenia go, aby pokazać sekwencje specjalne ANSI (SGR).

ansi-color.el wydaje się być tym, czego potrzebuję, ale nie byłem w stanie zmusić go do kolorowania sekwencji ucieczki ANSi , ale widzę niebieską pogrubienie dla poszczególnych bajtów contol (np. ^Ai ^[) ... Nie jestem jasne, czy jest to cecha ansi-color, ale myślę, że tak.

Zgodnie z komentarzami ansi-color.el może on działać z ciągami znaków i regionami, ale nawet to nie działa. Na przykład funkcja ansi-color-apply-on-regionnie jest rozpoznawana przez M-x. Mówi: „Brak dopasowania”

Dodałem (require 'ansi-color)do mojego pliku .emacs , a nawet (add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on). Nie pojawia się żaden błąd ani ostrzeżenie, gdy zaczyna się emacs, więc utknąłem.

Jak sprawić, by standardowe funkcje działały i czy można je ustawić tak, aby były automatycznie stosowane podczas otwierania pliku, którego nazwa zawiera przyrostek .col?

Myślę, że brakuje ci interactiveformy. W ten sposób Emacs rozróżnia funkcję zaprojektowaną do wywoływania przez inne funkcje, a funkcję zaprojektowaną do wywoływania bezpośrednio przez użytkownika. Zobacz węzeł Emacs Lisp Intro

Teraz, jeśli przeczytasz definicję ansi-color-apply-on-region, zobaczysz, że nie jest ona przeznaczona do użytku interaktywnego. „ansi-color” służy do filtrowania wyjścia komendy. Łatwo jest jednak stworzyć interaktywne opakowanie.

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

Następnym krokiem jest włączenie kolorów ansi dla rozszerzenia .col. Możesz dodać funkcję przechwytującą do dowolnego trybu głównego, którego chcesz użyć do edycji tych plików. Funkcja będzie uruchamiana za każdym razem, gdy włączysz tryb główny, więc będziesz musiał dodać sprawdzanie poprawności sufiksu pliku.

Alternatywnie możesz zhakować szybki tryb oparty na trybie „podstawowym”.

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

i powiąż to z tym rozszerzeniem.

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

Poniższe rozwiązanie umożliwia odczyt (i nie zapisanie) plików zawierających sekwencje kolorów ANSI. Nazwy plików muszą mieć .txtrozszerzenie.

Umieść bibliotekę w formacie tty~/.emacs.d/site-lisp/ , a następnie dodaj te wiersze do ~/.emacspliku init.

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

Dziękuję bardzo @enzotib za twoje rozwiązanie!

Jako dodatek do Twojego rozwiązania, oto sposób, aby użytkownik mógł je wyraźnie wywołać:

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

i automatyczne dla plików innych niż tylko * .txt lub README:

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

W ten sposób możesz zastąpić sekwencje specjalne kolorami bez zmiany oryginalnego pliku, w przeciwieństwie do rozwiązań wykorzystujących ansi-color-apply-on-region.