← All posts tagged Emacs

"каким нужно быть христанутым чтобы ещё не использовать лисп. А конечно я понимаю професура в шарагах у вас лабы на крестоговне поди принимает, поэтому вы и не используете лисп. Один из самых распрастранённых редакторов GNU/Emacs написан на диалекте лиспа, и он очень расширяем в отличии от сублимаговна, которое только и умеет что тырить темы из текстмайт."

anonymous

к багу с defunct-ом child-ов: если запускать из консольки, то всё отрабатывает нормально, стоит один раз что-нибудь форкнуть из иксового — сразу все дети начинают дефунктиться
и непонятно, блин, куда копать

офигеть, прошло чуть больше половины месяца, а уже набрали 99% от суммы за месяц. Обычно не набирали и за весь.
Вот что 3 версия с людьми делает!

// и, к предыдущему:
(require 'osc)
(setq ardour (osc-make-client "localhost" 3819))
(osc-send-message ardour "/ardour/transport_start")

работает! Ща будем пилить бинды.

адский глюк словил:
открываем на редактирование файл, ревертим в koi8-r, можем редактировать, сохранять, всё такое. Всё ок, до тех пор, пока не появляется символ "№" — после этого файл внезапно сохраняется как utf-8.

Ну шо, поцоны, на приём работает:

(defun jabber-chat-print-encrypted (xml-data who mode)
"Decrypts and prints encrypted message"
(let ((foundp nil))
(dolist (x (jabber-xml-node-children xml-data))
(when (and (listp x) (eq (jabber-xml-node-name x) 'x)
(string= (jabber-xml-get-xmlns x) "jabber:x:encrypted"))
(setq foundp t)

(when (eql mode :insert)
(let* ((enc-b64-multi (car (split-string (caddr x) "\n=")))
(enc-b64 (replace-regexp-in-string "\n" "" enc-b64-multi))
(enc (base64-decode-string enc-b64))
(context (epg-make-context epa-protocol))
(dec (epg-decrypt-string context enc)))
(insert "\n"
(jabber-propertize
"encrypted message: " 'face 'jabber-chat-prompt-system)
(format "%s" (jabber-unhex dec)))))))
foundp))

Немного переусложнённо, но блин, спасибо XEP-ам

Чтобы постоянно не спрашивал пароли — gpg-agent в помощь