intro: "MY" == Mikhail Yakshin <yakshin(a)online.ru&gt; writes: MY> Здравствуйте всем! Либо я что-то не получаю, либо тут подозрительно MY> тихо. MY> Я так понимаю, тут планируется обсуждать XEmacs во всяких его MY> проявлениях, так что я отважусь наверное задать вопрос спецам по XEmacs. MY> Вопрос такой: есть англо-русский словарь в текстовом (почти) файле. Есть MY> консольная програмка, которая умеет по нему быстро искать заданное слово, MY> запускается она примерно так: MY> findword слово MY> и на stdout она выводит статью в словаре, связанную с этим словом или MY> близким к нему. Вопрос состоит в следующем - как бы так хитро прикрутить MY> все это дело в XEmacs? MY> Я в силу своих скромных познаний сделал буквально следующее: MY> (global-set-key [(control f2)] 'dictionary-er) MY> (defun dictionary-er() "Translates one word from english into russian." MY> (interactive) (get-buffer-create "Dictionary") (call-process MY> "/work/dict/findword" nil "Dictionary" nil (read-string "English word: ") MY> ) ) Попробуй такую функцию: (defun dictionary-er (word) (interactive "sEnter word: ") (let ((buf (get-buffer-create "Dictionary"))) (erase-buffer buf) (call-process "program" nil buf nil word) (dictionary-fontify buf) (set-buffer buf) (setq buffer-file-coding-system 'koi8-r) (pop-to-buffer buf t t))) Здесь надо написать функцию `dictionary-fontify', которая разрисовывает буфер нужным образом. Идея такая -- ищешь регулярным выражением текст, который надо разрировать, затем поверх этого текста натягиваешь extent. Если не знаешь, что такое extent -- см инфо (lispref)Extents. У extent'а можно установить фейс (ака face), которым extent должен отображаться. О том, что такое фейсы и как ему присвоить шрифт, см. инфо (lispref)Faces. MY> Как-то худо-бедно работает, но плохо, что: MY> 1) Статья показывается как есть - в plain text. Неплохо было бы вычленять MY> из нее кусок с транскрипцией (я могу написать соотв. regex, вопрос его MY> применить в e-lisp'е?) и показывать его нужным фонтом (фонт в системе MY> поставлен). Неплохо бы вылавливать конструкции типа "_текст", которые MY> являются условным обозначением жирного текста и выделять и их тоже. И MY> т.п. Пиши `dictionary-fontify' MY> 2) Основная проблема, косвенно связанная с п.1 - у меня XEmacs с MULE и MY> если в тексте статьи (а значит в транскрипции) встречается символ, MY> которого нет в наборе koi8-r в MULE, XEmacs такой текст не считает MY> русским и показывает *весь* в кодировке iso8859-1, что делает его MY> абсолютно нечитабельным. (setq buffer-file-coding-system 'koi8-r) MY> 3) Желательно бы, чтобы буфер с переводом появлялся "обстоятельно", как, MY> например, при make - чтобы сам делил окно пополам, сам если нужно ловил MY> фокус и т.п. (pop-to-buffer buf t t) Коля.