Русская планета Emacs

;; Get coding from the file, so diff will output in the correct coding:
(defadvice dired-backup-diff (around my-dired-backup-diff act)
  (let* ((filename (dired-get-filename t))
         (coding-system (with-temp-buffer
                          (insert-file-contents filename nil 0 1024)
                          buffer-file-coding-system))
         (coding-system-for-read coding-system)
         (coding-system-for-write coding-system))
    ad-do-it))

;; Get coding from the file, so diff will output in the correct coding:
(defadvice dired-diff (around my-dired-diff act)
  (let* ((filename (dired-get-filename t))
         (coding-system (with-temp-buffer
                          (insert-file-contents filename nil 0 1024)
                          buffer-file-coding-system))
         (coding-system-for-read coding-system)
         (coding-system-for-write coding-system))
    ad-do-it))

Я давно хотел поделиться интересными сниппетами из моего конфига Emacs. Сам конфиг я публиковать не хочу, потому что в нём половина кода не работает, другая половина содержит какие-то пароли и личные данные, которые я не вынес в отдельный файл. А вот этот сниппет опубликую. Даже не сниппет, а пример конфигурации готового пакета theme-changer.

Есть такой пакет для Emacs: theme-changer. Он умеет переключать цветовую схему по времени восхода и захода солнца. А настраивается он вот так:

``` common-lisp theme-changer config http://emacswiki.org/emacs/ColorTheme#toc18 emacswiki (setq calendar-location-name "Dallas, TX") (setq calendar-latitude 32.85) (setq calendar-longitude -96.85)

(require 'theme-changer) (change-theme 'color-theme-solarized-light 'color-theme-solarized-dark) ```

Значения latitude и longitude можно узнать несколькими способами. Во-первых, можно просто тыкнуть в google maps и скопировать координаты. Кроме того можно найти свой город в википедии и там в шаблоне справа будет ссылка на сервис geohack, откуда нужно скопировать координаты в десятичном формате.

Кстати, лично я предпочитаю схему xemacs днём (самая лучшая схема, по моему мнению) и схему zen-and-art ночью. Последняя не входит в color-theme, установить её можно рецептом el-get.

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

Последнее обновление: Среда, 10. Март 2010

  <p>Описание проблемы: при переключении на не-латинскую раскладку клавиатуры в Emacs не работают горячие клавиши. Также не запоминается своя раскладка для каждого буфера Emacs.</p>

  <p>Варианты решения проблемы:

    <ul>
      <li>Продублировать все горячие клавиши для нужной раскладки и отказаться от
      отдельной для каждого буфера раскладки (плохой выход из ситуации).</li>
      <li>Использовать встроенную в Emacs переключалку (то, что нам нужно).</li>
    </ul>
  </p>

  <!--more-->

  <p>По умолчанию цикличное переключение раскладок в Emacs работает по комбинации C-\<br />
    Очевидно, вы пожелаете настроить в Emacs клавиатурное сочетание для переключения раскладок как в xorg, и тут появляется проблема номер 2:</p>

  <p>Xorg не передает приложению нажатие клавиш, которыми он переключает раскладку. К тому же нет возможности настроить игнорирование иксорговской переключалкой конкретного приложения. Для решения этой проблемы ранее предлагали использовать патченный xxkb, который переключал раскладку в окне Emacs всегда на латиницу и передавал окну нужные клавиатурные сочетания. Как показала практика - работает это решение не всегда и глючит, поэтому появились следующие, более корректные решения этой проблемы:</p>


  <p>
    <ul>
      <li>Хороший человек с псевдонимом Akshaal написал программку, а другой хороший
      человек с псевдонимом Bzek доработал её. К сожалению, все ссылки на описание
      этого метода померли, поэтому я переношу эту информацию сюда (см. ниже). Этот
      метод имеет свои недостатки, но я пользуюсь именно им. Суть метода сводится к
      переключению раскладок сторонней программой, которая сама определяет окно Emacs
      и отправляет ему нужное сочетание клавиш вместо переключения раскладки.</li>
      <li>Использовать для переключения языков альтернативный метод ввода
      ibus (scim). Достаточно отключить его в Emacs и клавиатурные сочетания, которые вы
      настроили в ibus (scim), будут обрабатываться в Emacs. Описание тоже ниже.</li>
    </ul>
  </p>

  <p><h3>Настраиваем ibus (scim)</h3></p>

  <p>
    <ol>
      <li>Устанавливаем scim, scim-m17n и scim-tables (для ibus сами определяйтесь, не
      пользуюсь им). Последние два включают в себя
      приличное количество раскладок клавиатуры для различных языков.</li>
      <li>Прописываем в профиль переменные среды:

        Для scim:

        <pre><code>

export XMODIFIERS=@im=SCIM export GTK_IM_MODULE=xim export QT_IM_MODULE=xim

        </code></pre>

        Для ibus видимо будет как-то так:

        <pre><code>

export GTK_IM_MODULE=ibu export QT_IM_MODULE=ibu

        </code></pre>

      </li>
      <li>Отключаем ibus (scim) в Emas, для этого пишем в .Xdefaults:

        <pre><code>Emacs*useXIM:false</code></pre>

        (не знаю правда, как тут с ibus; если кто-то знает - пишите мне)

      </li>
      <li>Запускаем scim-setup и настраиваем всё что нужно. Останавливаться на этом не
      буду - если не разберетесь, то можете спросить в xmpp-конференции
      emacs@conference.jabber.ru.</li>
      <li>Настраиваем в Emacs обработку этих сочетаний клавиш. Например так:

        

  
</code></pre>

<p>(global-set-key (kbd "C-1")</p>

<pre><code>    (lambda ()
      (inactivate-input-method)))
</code></pre>

<p>(global-set-key (kbd "C-2")</p>

<pre><code>    (lambda ()
      (set-input-method 'russian-computer)))



      </li>
    </ol></p>

  <p>Вы можете добавить сюда переключение словаря flyspell, например. Или настроить
    цикличное переключение, в этом вам поможет функция toggle-input-method.</p>

  <p><h3>Использование emxkb</h3></p>

  <p>Замечание к этому методу: с его помощью нельзя настроить раскладку на цикличное
  переключение (хотя, можно просто модифицировать программу). У меня, например,
  группа "us" включается по нажатию C-1, а "ru" - C-2.</p>

  <p>Первое, что нам понадобится - программа emxkb. Её нужно <a href="http://paul.elms.pro/files/emxkb.c">скачать</a> и скомпилировать
  вот так:</p>

    <p><pre><code>

gcc -L/usr/X11R6/lib -lX11 -o emxkb emxkb.c

    </code></pre></p>

  <p>При выполнении emxkb 0 раскладка переключается на первую группу, emxkb 1 -
  вторую и т.д. Если же значение WM_CLASS текущего окна равно "emacs", то вместо
  переключения групп emxkb шлёт нажатие виртуальных клавиш F31, F32, F33 и
  т.д. Остается только обрабатывать эти нажатия в emacs.</p>

  <p>Итак, вы уже настроили в своём wm (или xbindkeys) какие-либо сочетания клавиш на
  выполнение комманд emxkb 0 и emxkb 1. Но ещё не все готово для настройки
  emacs. Дело в том, что клавиш F31, F32 и т.д. не существует и нужно их виртуально
  "создать" с помощью xmodmap:</p>

  <p><pre><code>

keycode 431=F31 keycode 432=F32 keycode 433=F33

  </code></pre></p>

  <p>431, 432, 433 можно заменить на любые другие свободные кейкоды.</p>

  <p>Теперь можно настраивать emacs:</p>

  <p>

  
</code></pre>

<p>(defun reset-flyspell-with-new-dict (dict)
  "Set new dictionary and restart flyspell"</p>

<p>  (unless (equal dict ispell-local-dictionary)</p>

<pre><code>(setq ispell-local-dictionary dict)
(when flyspell-mode
  (flyspell-mode)
  (flyspell-mode)))
</code></pre>

<p>  (when flyspell-mode</p>

<pre><code>(save-excursion
  (flyspell-region (window-start) (window-end))))
</code></pre>

<p>  (message nil))</p>

<p>(global-set-key [(f31)]</p>

<pre><code>            (lambda ()
              (interactive)
              ;; (reset-flyspell-with-new-dict "american")
              (inactivate-input-method)))
</code></pre>

<p>(global-set-key [(f32)]</p>

<pre><code>            (lambda ()
              (interactive)
              ;; (reset-flyspell-with-new-dict "russian")
              (set-input-method 'russian-computer)))
</code></pre>

<p>(global-set-key [(f33)]</p>

<pre><code>            (lambda ()
              (interactive)
              ;; (reset-flyspell-with-new-dict "italian")
              (set-input-method 'italian-keyboard)))
</code></pre>

<p>(defun toggle-specified-isearch-input-method (new-input-method)
  "Toggle specified input method in interactive search."
  (interactive)
  (let ((overriding-terminal-local-map nil)))</p>

<p>  (if (eq new-input-method 'default-method)</p>

<pre><code>  (inactivate-input-method)
(set-input-method new-input-method))
</code></pre>

<p>  (setq isearch-input-method-function input-method-function</p>

<pre><code>isearch-input-method-local-p t)
</code></pre>

<p>  (setq input-method-function nil)
  (isearch-update))</p>

<p>(add-hook 'isearch-mode-hook</p>

<pre><code>      (lambda ()
        (define-key isearch-mode-map (kbd "&lt;f31&gt;")
          (lambda ()
            (interactive)
            (toggle-specified-isearch-input-method 'default-method)))

        (define-key isearch-mode-map (kbd "&lt;f32&gt;")
          (lambda ()
            (interactive)
            (toggle-specified-isearch-input-method 'russian-computer)))

        (define-key isearch-mode-map (kbd "&lt;f33&gt;")
          (lambda ()
            (interactive)
            (toggle-specified-isearch-input-method 'italian-keyboard)))))

</p>

  <p>Внимательно (или не очень) изучите приведенный кусок кода на elisp и настройте
  его под свои нужды.</p>

  <p>P.S. Если у вас что-то не получилось, <strike>вы можете найти меня в конференции
    emacs@conference.jabber.ru</strike>. Приветствуются любые дополнения и правки к статье.<br />
    P.P.S. Для консольной версии Emacs проблема всё ещё актуальна.</p>

1. 3 года гарантии.
   Каждая следующая версия выходит не реже, чем через 3 года разработки. В марте в честь юбилея RMS вышла новая версия 24.3. Гарантируется исправление ошибок в версии не старше, чем 3 года - просто опишите найденную ошибку в письме и отправьте по адресу bug-gnu-emacs@gnu.org. Если используете старую версию, рекомендуется обновиться до самой новой (оптимальный вариант - установка snapshot).
   


2. Настоящая мощность.
   Вдобавок к большому количеству встроенных пакетов, в emacs 24 также добавился менеджер пакетов, позволяющий устанавливать еще большее количество внешних пакетов, обеспечивающих настоящую мощность, недостижимую в других редакторах. Существует даже возможность использования бабочек для изменения нужного бита.
   


3. Подлинная безопасность.
   Весь код выполняется в виртуальной среде, основанной на интерпретаторе Лиспа. Безопасность обеспечивается рядом встроенных возможностей, в том числе safe-local-variable и т.д. Поэтому не существует вирусов, распространяющихся через файлы Emacs Lisp.
   

Для сортировки без повторений выполняем:

• выделить область
• C-u M-| sort -u RET

С включенными режимами transient-mark-mode и delete-selection-mode можно сразу заменить выделенную область отсортированными без повторения строками:

• выделить область
• M-| sort -u RET

Побаловался с googlecl. Умудрился случайно наделать множество постов, состоящих всего лишь из одного слова в своем читальном блоге. Сейчас вроде бы все исправил. Постараюсь подобное предотвращать в будущем. Но главное — проверил, что googlecl работает. Далее хочу обсудить варианты публикации сообщений из Emacs.

Ранее для написания заметок я использовал muse-mode. Каждая muse-заметка экспортировалась в html. А далее я ручками копировал в форму Блоггера нужный контент. Долго я пользовался именно этой схемой. Muse в какой-то момент перестал удовлетворять моим требованиям. Были у него некоторые проблемы со вложенными списками и вставками кода. А всякие списки я ой как люблю. Это наверное последствия долгого использования org-mode. Ну а потом я вообще перестал что-либо публиковать в сети.

Также когда-то я пробовал наладить google интерфейс, который шел в поставке с emacsspeak. Но безуспешно. Интересно в каком состоянии он сейчас? Давно не слышал.

Теперь я собираюсь изобрести новый велосипед. В его основе Markdown и Googlecl. Собственно смысл в том, чтобы написать мини скрипт на bash, который переведет md-файл в html (python-markdown). При этом он должен вырезать избыточные поля. Например, заголовок, который в блоггере в отдельное поле вводится. Далее отправить это добро в googlecl, который успешно опубликует новую заметку с правильным заголовком и тегами в нужном месте. То есть из Emacs надо будет дернуть этот скриптик и собственно все.

Как вариант можно написать полностью тоже самое на elisp, но хочется простой возможности публиковать файлы из консоли. Также я пока не совсем понимаю, как настроить раскраску кода при конвертировании md в html, но думаю с этим больших проблем не должно быть.

Как вам такая схема? Не слишком ли я заворачиваю? Сейчас буду реализовывать это добро.

Начало

Несколько ключевых моментов:

• mode-line-mule-info
  о сдной стороны не слишком красива и информативна, зато позволяет переключать кодировки и символ завершения строк мышкой (и да, я польуюсь мышкой в emacs :)).
• buffer-file-coding-system
  все что нужно для красивого описания текущей кодировки.
• mode-line-buffer-identification
  имя буфера (как в стандартой mode-line)
• mode-line-modes
  еще одна важная деталь из стандартной mode-line, которая отображает список minor-mode, сужения и ассоциированный с буфером процесс.
• Положение курсора в буфере, идентификация режима Insert/Overwrite взята из emacs-fu.

В итоге получилось так:

* TODO task 1
  SCHEDULED: <2011-06-16 Thu>
* task 2
  SCHEDULED: <2011-06-16 Thu>
** TODO subtask 2-1
* task 3
  SCHEDULED: <2011-06-16 Thu>

  NOTES:      Scheduled:  TODO task 1
  NOTES:      Scheduled:  task 3

1. maemo является полноценным линуксом
2. n900 оснащается хардварной клавиатурой-слайдером

1. Скачиваем пакет на устройство отсюда или с моего зеркала.
2. Под рутом выполняем dpkg -i emacs_23.1.1_armel.deb.
3. Обновляем apt и доставляем недостающие пакеты: apt-get -f install

cp /usr/share/X11/xkb/symbols/nokia_vndr/rx-51 /usr/share/X11/xkb/symbols/nokia_vndr/rx-51.orig
cp rx-51.qole /usr/share/X11/xkb/symbols/nokia_nvdr/rx-51
setxkbmap

(add-to-list 'load-path "/path/to/maxframe")
(require 'maxframe)
(add-hook 'window-setup-hook 'maximize-frame t)
(maximize-frame)

(global-set-key (kbd "C-c c") 'clipboard-kill-ring-save)
(global-set-key (kbd "C-c v") 'clipboard-yank)

(defun insert-less-symbol ()
  (interactive)
  (insert "<"))

(defun insert-more-symbol ()
  (interactive)
  (insert ">"))

(global-set-key (kbd "C-c C-,") 'insert-less-symbol)
(global-set-key (kbd "C-c C-.") 'insert-more-symbol)

Я собрал несколько из них.

Итак посмотрите на указанные переменные:

Тоже из старых заметок. На N810 интенсивно пользуюсь emacs из консоли. Но при нажатии C-e в таком случае появляется окно поиска maemo. Это естественно не удобно. Для отключения надо сделать следующее:

$ gconftool -s /apps/osso/keybindings/global/osso-global-search --type=string ''