Hi, all опять! Спасибо еще раз всем откликнувшимся. Привожу на ваш суд то, что получилось в результате сидения сегодняшней ночью... Столько интересного про e- и common lisp узнаешь в результате :) Функция которая dictionary-er запрашивает слово и выдает его перевод из англо-русского словаря Мюллера (кстати, сам словарь по-моему можно скачать на http://muller.chat.ru или что-то вроде того)... Если кого заинтересовало - все остальное могу дать либо лично, либо в лист - там маленькая програмка findword для облегчения поиска с кое-каким индексированием... Ну, естественно, с ростом кода растут и амбиции. Хотелось бы высказать следующие пожелания и услышать вариант, предлагаемые народом по поводу того, как это можно сделать: 1) Запрашиваемое слово через (interactive). Хотелось бы чтобы по умолчанию в запросе стояло то слово, что под курсором (ну типа как, когда C-h, f делаешь - по умолчанию стоит на той функции, что под курсором). Как это делается? 2) pop-to-buffer для показывания буфера в принципе действует неплохо, но все-равно как-то слишком искусственно. Например, когда окно уже поделено на две части, в верхней - рабочий буфер, снизу - буфер со словарем и курсор в буфере со словарем, то почему-то после отработки словаря появляется еще такой же буфер со словарем сверху, замещая рабочий - что не удобно... Можно, конечно, отделаться if-ом проверять, но это все как-то имхо глуповато выглядит... Готовой функции для этого нету? 3) Перспективы на будущее уже совсем из области фантастики - отлавливать отдельные слова и выражения (я слабо представляю, какой же там может быть regex... жуть), эти самые отдельные слова и выражения делать подсвечиваемыми мышкой и при нажатии по ним mouse3 вставлять переводы автоматом в текст рабочего буфера... Так же см. мои комментарии ниже по тексту - буду признателен, если кто скажет пару умных слов по поводу... ============================================= dict.el ; Muller dictionary add-on (defun dictionary-fontify (buf) "Fontifies dictionary buffer." (interactive) (goto-char (point-min)) (while (re-search-forward "[0-9]+>" nil t) (set-extent-face (make-extent (match-beginning 0) (match-end 0)) 'bold) ) (goto-char (point-min)) (while (re-search-forward "_\\(.*?\\) " nil t) (replace-match "\\1 ") (set-extent-face (make-extent (match-beginning 0) (match-end 1)) 'bold) ;; Вот здесь я обрабатываю конструкцию типа "_слово ", сначала убирая ;; подчеркивание, а потом выделяя все жирным. Проблема в том, что жирным бы ;; надо выделять не все вместе, а только слово - а так захватывается еще ;; пробел от него (а в перспективе на месте пробела может стоять например ;; скобка). Можно конечно вручную вычесть единичку из (match-end 1), но нет ;; ли способа получше? А то юзать regex, только для того, чтобы потом руками ;; высчитывать длины строк - как-то очень варварски... ) (goto-char (point-min)) (while (re-search-forward "[IV]+ " nil t) (replace-match "\n\n\\&") ) (goto-char (point-min)) (while (re-search-forward "[0-9]+\\. " nil t) (replace-match "\n\\&") ) ) (defun dictionary-er (word) "Translates one word from english into russian." (interactive "sEnglish word: ") (let ((buf (get-buffer-create "Dictionary"))) (erase-buffer buf) (set-buffer buf) (setq buffer-file-coding-system 'koi8-r) ;; Вот здесь есть другая проблема. Когда в транскрипции встречаются некоторые ;; символы (типа \215, которых нет в koi8-r), все в буфере становится в ;; кодировке Noconv и соответственно iso8859-1, то есть все русские буквы ;; летят. К сожалению, установка выше вообще ни на что не влияет, так как ;; судя по всему вывод call-process'а идет монолитным куском а-ля загрузка ;; нового файла и кодировка в любом случае определяется по этому куску. Что ;; делать? (call-process "/work/dict/findword" nil buf nil word) (dictionary-fontify buf) (pop-to-buffer buf t nil)) ) ============================================= dict.el -- WBR, Mikhail Yakshin AKA GreyCat http://3d.onego.ru/ mailto:yakshin＠online.ru

Alexey Mahotkin wrote: : >>>>> "MY" == Mikhail Yakshin <yakshin(a)online.ru&gt; writes: : : MY> P.S. Просветите меня, плз - народ, нафига вы когда отвечаете в : MY> список делаете To: человеку, а Cc: в список? Так же два письма Не обязательно -- это зависит от почтаря и как отвечал -- "Ответить", "Ответить Всем Получателям" или "Ответить в Список Рассылки" ([Personal] Reply, Group Reply или List Reply соответственно), если почтарь поддерживает все это, а так же от наличия поля заголовка Mail-Followup-To (опять-таки, если почтарь его поддерживает). : MY> приходит одинаковых просто? И фильтровать такую почту как : MY> правильно? : : Через заголовок List-Id: -- он однозначен. Угу. : : Если не хочешь получать копии писем из списка рассылки, то добавляй к : своим письмам : : Mail-Copies-To: never : : Для некоторых комбинаций чужих читалок/отвечалок может сработать, и : копий тебе приходить не станет. : Я правильно понял, что Михаил интересуется, как добиться, чтобы отвечающие на его письма в списке, отвечали только в список и не добавляли CC: к нему самому (или, как альтернатива, наоборот, обязательно добавляли его в CC:)? Если правильно, то второй вариант -- через Mail-Followup-To (как пример -- это письмо). Если будет Mail-Followup-To: xemacs-users-ru(a)xemacs.org то List Reply сгенерирует только `To: xemacs-users-ru(a)xemacs.org&#39;, если же Mail-Followup-To: xemacs-users-ru(a)xemacs.org, yakshin(a)online.ru то List Reply сгенерирует `To: xemacs-users-ru(a)xemacs.org&#39;, а `CC: yakshin(a)online.ru&#39; Вариант, когда Mail-Followup-To отсутствует -- это хороший вопрос... По крайней мере Mutt-1.3.xx отвечает в таких случаях только в список. Но если мне пямять не изменяет, более древние версии (0.95 или около того) делали group-reply. -- Andrew W. Nosenko (awn(a)bcs.zp.ua) Фамильный призрак (c) Елена Носенко

Hi, all! Спасибо всем, кто откликнулся на просьбу помочь со словарем. Тем, кто интересовался, показываю пример статьи. Все нижеследующее идет на самом деле в одну строчку: list _I [lIst] 1. _n. 1> список, перечень, реестр; инвентарь; to enter in a list вносить в список; to make a list составлять список; duty list расписание дежурств 2> кромка, каёмка; кайма, оторочка, бордюр; край 3> _pl. огороженное место; арена (турнира, состязания); to enter the list s а> бросить вызов; б> принять вызов; в> участвовать в состязании 4> _архит. листель 5> _ам. _с-х. борозда, сделанная листером 6> _attr. сделанный из каймы, полос, обрезков; list slippers комнатные туфли из обрезков (кожи, материи) 2. _v. 1> вносить в список; составлять список; to list for service вносить в списки военнообязанных 2> _разг. см. enlist 1 3> _ам. обрабатывать землю листером _II [lIst] _мор. 1. _n. крен, наклон; to take a list накрениться 2. _v. крениться, накреняться Как желательно это отформатировать: В квадратных скобках regex /\[(.*?)\]/ (извиняюсь, regex'ы везде перловские, ограниченные слешами) - это транскрипция, ее надо показывать отдельным шрифтом и без всяких перекодировок (в MULE это называется Noconv). Каждое слово, начинаяющееся с подчеркивания regex /\_(.*?) /- желательно выделить жирным шрифтом. Римской цифрой с подчеркиванием regex /\_([IV]+ ) / выделяется отдельный класс переводов слова, принципиально никак не связанный с другими переводами. Такие вещи желательно выделять на отдельную строчку, даже может стоит пропускать лишнюю строку. Арабской цифрой с точкой regex /[0-9]+\. / выделяется отдельный перевод, различающийся по части речи. Такое тоже желательно выделять на отдельную строку. Привожу то, как я думаю в идеале должна была бы выглядеть приведенная выше статья (смотреть, естественно, в непропорциональном фонте) - конечно это сильно наворочено с форматированием, для начала хоть как-нибудь попроще бы: list I [lIst] 1. n. 1> список, перечень, реестр; инвентарь; to enter in a list вносить в список; to make a list составлять список; duty list расписание дежурств 2> кромка, каёмка; кайма, оторочка, бордюр; край 3> pl. огороженное место; арена (турнира, состязания); to enter the list s а> бросить вызов; б> принять вызов; в> участвовать в состязании 4> архит. листель 5> ам. с-х. борозда, сделанная листером 6> attr. сделанный из каймы, полос, обрезков; list slippers комнатные туфли из обрезков (кожи, материи) 2. v. 1> вносить в список; составлять список; to list for service вносить в списки военнообязанных 2> разг. см. enlist 1 3> ам. обрабатывать землю листером II [lIst] мор. 1. n. крен, наклон; to take a list накрениться 2. v. крениться, накреняться Теперь все-таки о том, как это делать вопросы. Я так понимаю, так и так придется создавать major mode. Вопрос - как это делать - может кто поможет или сразу кодом, или хотя бы кинет в меня примером? Как в major mode можно будет задавать подсветку, то есть это как-то надо будет настраивать font-lock? И как хотя бы в самом примитивном виде использовать regular expressions в (X)Emacs для правки полученной строки хотя бы в приблизительно читаемый вид? P.S. Просветите меня, плз - народ, нафига вы когда отвечаете в список делаете To: человеку, а Cc: в список? Так же два письма приходит одинаковых просто? И фильтровать такую почту как правильно? -- WBR, Mikhail Yakshin AKA GreyCat http://3d.onego.ru/ mailto:yakshin＠online.ru