Unix Way

Elisp: twit.el bury-buffer

2009-07-13T22:36:00.002+06:00

Добавил пару строк в инициализационный файл emacs:


;; Закрывать окно при сворачивании буфера в twit.el
(defun my-twit-bury-buffer ()
  (interactive)
  (bury-buffer)
  (delete-window))
(setf (cdr (assoc 113 twit-status-mode-map)) 'my-twit-bury-buffer)
(setf (cdr (assoc 113 twit-followers-mode-map)) 'my-twit-bury-buffer)

Conkeror - включение/отключение картинок

2009-07-09T15:43:00.003+06:00

Как-то так:


interactive("toggle-images", "0 (default): Load all images; 1: Load images from same (originating) server only; 2: Do not load any images",
     function (I) {
         user_pref('permissions.default.image', parseInt(yield I.minibuffer.read($prompt = "0, 1 or 2: ");));
     });

Elisp: аплоад файлов на twitpic для twit.el

2009-07-03T18:50:00.001+06:00

Сделал загрузку изображений на twitpic. Логин и пароль от twitter используются из настроек twit.el. Если эти настройки не установлены, спрашивает в минибуффере.

Для отправки post-запросов просмотрел несколько вариантов и проще всего для этой задачи оказалось дергать curl через shell-command.

Функция twitpic-upload-and-post загружает изображение и отправляет сообщение в twitter (с описанием, которое пользователь может ввести в минибуффер).

Функция twitpic-upload только загружает.

Скачать

Elisp: меняем настройки Wanderlust при переходе по папкам

2009-06-29T12:10:00.002+06:00

Я использую два разных imap-ящика и не нашёл в wanderlust способа настроить отдельную папку Trash для каждого из них. Пришлось выкручиваться.

Функция для получения petname (название, alias) текущей папки:


(wl-folder-get-petname (elmo-folder-name-internal
        wl-summary-buffer-elmo-folder))

Использовать можно как-то так:


(defun vyazovoi/wl-folder-switch ()
  (setq my-wl-current-petname (wl-folder-get-petname (elmo-folder-name-internal
            wl-summary-buffer-elmo-folder)))
  (cond ((equal my-wl-current-petname "INBOX@domain")
         (message "Настройки для domain"))
 ((equal my-wl-current-petname "INBOX@gmail")
         (message "Настройки для gmail"))
 (t
  (message "Настройки по умолчанию"))))

(add-hook 'wl-summary-prepared-hook 'vyazovoi/wl-folder-switch)

Я таким образом перенастраиваю папки Trash и Drafts, настройки smtp, поле from, подпись и др.

P.S. Можно также использовать переменную wl-draft-parent-folder, но она локальная в буфере draft, так что, например, папку Trash с её помощью менять смысла нет.

Хинт для ввода lisp-скобочек

2009-06-22T16:36:00.002+06:00

Теперь я всерьез взялся за изучение лиспа. Начал с common lisp и прочтения PCL. Первым делом после изучения примеров из книги решил настроить Slime. Откопал туториал, из которого меня очень порадовал такой хинт:

 (define-key slime-mode-map (kbd "[") 'insert-parentheses)
(define-key slime-mode-map (kbd "]") 'move-past-close-and-reindent)
(define-key slime-mode-map (kbd "(") (lambda () (interactive) (insert "[")))
(define-key slime-mode-map (kbd ")") (lambda () (interactive) (insert "]")))

Там ещё есть интересные хинты, отличный материал =)

Подписка на rss в conkeror с помощью greasemonkey-скрипта

2009-06-21T11:17:00.006+06:00

Захотелось сделать в conkeror подписку на rss.
С google reader все просто - можно использовать букмарклет, но иногда нужно просто получить ссылку на rss.

Для выковыривания rss-ссылок из хедера воспользовался примером из greasemonkey-скрипта и вот что получилось (добавлять в конфиг): rss.txt

Хорошо бы вызывать эту функцию хуком. Только я не понял как можно в функции обращаться к объекту document, единственный увиденный мной способ: передать I.buffer.document в функцию. Но I.buffer.document это объект, доступный только в контексте интерактивных функций, как поступать в случае с хуком я пока не разобрался.

Emacs и google wave

2009-06-19T18:07:00.001+06:00

А в emacswiki уже обсуждают интеграцию google wave в Emacs. =)

На этой wiki-страничке дали ссылку на уже существующую систему, похожую на google wave, для которой есть клиент на emacs lisp: LysKOM.

Кто-нибудь видел это?

Сессии в conkeror

2009-06-18T20:56:00.002+06:00

В emacs-like браузере conkeror появились зачатки работы с сессиями.

Уже сейчас можно вручную или автоматически сохранить все открытые буферы. Правда автоматическое сохранение работает только при выходе из conkeror через функцию quit. Если просто закрыть окно или, тем более, упадут иксы - сессия не сохранится.

Теперь хоть можно браузер закрыть, не запоминая что там было открыто. Страница с описанием модуля сессий.

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

Не-интерактивный jabber-read-account

2009-02-07T15:28:00.003+05:00

Я часто пользуюсь некоторыми jabber-ботами в emacs-jabber и мне захотелось забиндить хоткеи для быстрого вызова чата с ними.
Для этого служит функция jabber-chat-with, которая в качестве аргумента принимает jc и jid.
С jid все понятно - это string аргумент с jid получателя, а вот с jc ситуация сложнее. jc это список jabber-connections, каждый элемент коготорого в свою очередь список из параметров jabber-соединения. Все усложняется тем, что этот список каждый раз меняется, он зависит от порядка, в котором соединились ваши аккаунты.
Для получения этого jc из jabber-connections используется функция jabber-read-account. Если у вас больше одного аккаунта, то эта функция может взять jabber connection из положения курсора в ростере, активного буффера или интерактивно спрашивает jid. Работать не-интерактивно, принимая в качестве аргумента ваш jid, она не умеет.

Для биндинга клавиш понадобился не-интерактивный вариант, который принимает в качестве аргумента jid и возвращает jc, вот он:

(defun my-jabber-read-account (my-jid)
  (let ((my-jid-list
         (mapcar (lambda (c)
                   (cons
                    (jabber-connection-bare-jid c)
                    c))
                 jabber-connections)))
    (cdr (assoc my-jid my-jid-list))))

Использовать например так:

 ; Открыть буффер чата с juick@juick.com через аккаунт vyazovoi@jabber.ru
(global-set-key "\C-x\C-jj" '(lambda ()
             (interactive)
         (jabber-chat-with (my-jabber-read-account "vyazovoi@jabber.ru") "juick@juick.com")))

UPD: в cvs-версию emacs-jabber добавили функцию jabber-find-account