Как установить кодировку вывода команды shell-command-on-region? - PullRequest
Новая
       12

Как установить кодировку вывода команды shell-command-on-region?

2 голосов
/ 01 декабря 2009

У меня есть небольшой сценарий elisp, который применяет Perl :: Tidy к региону или целому файлу. Для справки вот скрипт (заимствованный из EmacsWiki): 

(defun perltidy-command(start end)
"The perltidy command we pass markers to."
(shell-command-on-region start 
                       end 
                       "perltidy" 
                       t
                       t
                       (get-buffer-create "*Perltidy Output*")))

(defun perltidy-dwim (arg)
"Perltidy a region of the entire buffer"
(interactive "P")
(let ((point (point)) (start) (end))
(if (and mark-active transient-mark-mode)
    (setq start (region-beginning)
          end (region-end))
  (setq start (point-min)
        end (point-max)))
(perltidy-command start end)
(goto-char point)))

(global-set-key "\C-ct" 'perltidy-dwim)

Я использую текущий Emacs 23.1 для Windows (EmacsW32). Проблема, с которой я сталкиваюсь, заключается в том, что, если я применяю этот сценарий к файлу с кодировкой UTF-8 («U (Unix)» в строке состояния), вывод возвращается с кодировкой Latin-1, то есть двумя или более символами для каждого Исходный символ ASCII.

Можно ли как-нибудь это исправить?

РЕДАКТИРОВАТЬ : Кажется, проблема решена с помощью (set-terminal-coding-system 'utf-8-unix) в моем init.el. У кого-нибудь есть другие решения, пишите!

Ответы [ 2 ]

2 голосов
/ 22 ноября 2012

Ниже приведены shell-command-on-region документы 

To specify a coding system for converting non-ASCII characters
in the input and output to the shell command, use C-x RET c
before this command.  By default, the input (from the current buffer)
is encoded using coding-system specified by `process-coding-system-alist',
falling back to `default-process-coding-system' if no match for COMMAND
is found in `process-coding-system-alist'.

Во время выполнения он сначала ищет систему кодирования с process-coding-system-alist, если он равен нулю, то выглядит с default-process-coding-system.

Если вы хотите изменить кодировку, вы можете добавить опцию конвертации в process-coding-system-alist, содержание которой приведено ниже. 

Value: (("\\.dz\\'" no-conversion . no-conversion)
 ...
("\\.elc\\'" . utf-8-emacs)
("\\.utf\\(-8\\)?\\'" . utf-8)
("\\.xml\\'" . xml-find-file-coding-system)
 ...
("" undecided))

Или, если вы не установили process-coding-system-alist, это ноль, вы можете назначить опцию кодирования для default-process-coding-system,

например: 

(setq default-process-coding-system '(utf-8 . utf-8))

(Если вход кодируется как utf-8, то выход кодируется как utf-8)

Или 

(setq default-process-coding-system '(undecided-unix . iso-latin-1-unix))

Я также написал пост об этом, если вам нужны подробности.

2 голосов
/ 03 августа 2011

Цитирование документации для shell-command-on-region (C-h f shell-command-on-region RET):

Чтобы указать систему кодирования для преобразования не-ASCII символов во вводе и выводе команды оболочки используйте C-x RET c до этой команды. По умолчанию ввод (из текущего буфера) кодируется в той же системе кодирования, которая будет использоваться для сохранения файла, `Буфер-файл-кодирования-системы. Если выход собирается заменить регион, затем он декодируется из той же системы кодирования.

Неинтерактивными аргументами являются START, END, COMMAND, ВЫХОД-БУФЕР, ЗАМЕНА, ОШИБКА-БУФЕР и ОТОБРАЖЕНИЕ-ОШИБКА-БУФЕР. Неинтерактивные абоненты могут указывать системы кодирования, связывая `coding-system-for-read 'и` coding-system-for-write'.

Другими словами, вы бы сделали что-то вроде 

(let ((coding-system-for-read 'utf-8-unix))
  (shell-command-on-region ...) )

Это не проверено, не уверен, какое значение coding-system-for-read (или, возможно, -write вместо? Или также?) Должно быть в вашем случае. Я думаю, вы также можете использовать аргумент OUTPUT-BUFFER и направить вывод в буфер, система кодирования которого настроена на то, что вам нужно.

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

...