Как раскрасить текст в Emacs?

Я хочу , чтобы просмотреть (и / или редактирования) Раскрашенная текста в Emacs, таких как выводится ls -l --color=always, tree...или любой другой .

Текст, на который я ссылаюсь, существует в файле. Когда я открываю этот файл в emacs, я хочу видеть его раскрашенным или переключать его для отображения escape-последовательностей ANSI (SGR).

ansi-color.el Похоже, это то, что мне нужно, но я не смог заставить его делать какие-либо раскраски escape- последовательностей ANSi , но я вижу выделенный синим цветом для отдельных контрольных байтов (например, ^Aи ^[) ... Я не конечно, если это особенность ansi-color, но я думаю, что это так.

Согласно комментариям ansi-color.el , он может работать со строками и областями, но даже это не похоже на работу. Например, функция ansi-color-apply-on-regionне распознается M-x. Он говорит: «Нет матча»

Я добавил (require 'ansi-color)в мой файл .emacs и даже (add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on). Я не получаю ошибок или предупреждений при запуске emacs, поэтому я застрял.

Как заставить стандартные функции работать, и можно ли сделать так, чтобы они автоматически применялись при открытии файла, к имени которого добавляется суффикс .col?

Я думаю, что часть, которую вы пропускаете, это interactiveформа. Вот как Emacs различает функцию, предназначенную для вызова другими функциями, и функцию, предназначенную для непосредственного вызова пользователем. Смотрите узел Emacs Lisp Intro

Теперь, если вы прочитаете определение ansi-color-apply-on-region, вы увидите, что оно не предназначено для интерактивного использования. «ansi-color» предназначен для фильтрации вывода комет. Однако сделать для него интерактивную оболочку легко.

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

Следующий бит - вы хотите включить цвета ANSI для расширения .col. Вы можете добавить функцию подключения к любому основному режиму, который вы хотите использовать для редактирования этих файлов. Функция будет запускаться всякий раз, когда вы включаете мажорный режим, поэтому вам нужно будет добавить проверку правильности суффикса файла.

В качестве альтернативы вы можете взломать быстрый производный режим, основанный на «фундаментальном» режиме.

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

и связать его с этим расширением.

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

Следующее решение позволяет читать (а не сохранять) файлы, содержащие цветовые последовательности ANSI. Имена файлов должны иметь .txtрасширение.

Поместите библиотеку терминальную-формат в ~/.emacs.d/site-lisp/, затем добавьте эти строки в ~/.emacsфайл инициализации.

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

Большое спасибо @enzotib за ваше решение!

В качестве дополнения к вашему решению, вот способ сделать его явно вызываемым для пользователя:

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

и автоматически для файлов, отличных от * .txt или README:

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

Таким образом, вы можете заменить свои escape-последовательности цветами без изменения исходного файла, в отличие от решений, использующих ansi-color-apply-on-region.