*elisp

Автобекап только что спас мне минут 10 работы (хоть это и единственный случай за последние года 4, а приятно), потому поделюсь еще раз куском конфига:

;;;;Change backup behavior to save in a directory, not in a miscellany
;;;;of files all over the place.
(setq
backup-by-copying t ; don't clobber symlinks
... more →

#ogitie

1 comment

Навелосипедил костыль, при помощи которого в главном канале bitlbee можно не
prepend-ить имя юзера, а чтобы сообщение посылалось юзеру, с которым до этого шел разговор.
(micq-like)

http://pastebin.com/t7qGXtNQ

#osioio

add comment

Every day I'm who the fuck?

(defun хуита ()
(interactive)
(let ((parts (cdr (assoc jabber-group jabber-muc-participants))))
(funcall jabber-send-function jabber-buffer-connection (concat "Every day I'm " (car (nth (random (length parts)) parts))))))

#htthh

3 comments

Адово заебало, что список участников конфы выводится как попало, без сортировки. Я хуею, что всем похуй, кроме меня, так что вот вам пара функций, которые исправят беспредел на хате: http://codepad.org/JjgiRyLz Первая новая, вторая — замена того говна, что уже есть. Нетрудно заметить, что я всего лишь с помощью ... more →

#httth

1 comment

Вот вам автоматическая подрезалка чятов для jabber.el (при больших буферах начинает тормозить и теряется подсветка линков):

(setf jabber-log-lines-to-keep 300) ; тут по вкусу
(add-hook 'jabber-muc-hooks (lambda (nick group buffer text proposed-alert) (jabber-truncate-top buffer)))
(add-hook 'jabber-message-hooks ... more →

#hzezs

4 comments

Да я же просто охуенен! jabber.el, как выяснилось, не умеет работать с юникодными jid'ами, т.е. где не только английские буквы. На самом деле, XMPP такое очень даже допускает (видел у веобу джиды из канзей). У нас в конторе я с самого начала всем раздавал jid == фамилия_имя_отчество@domain.tld, и вот теперь жёстко ... more →

#thsez

18 comments

Написал поддержку ССАНNНЫ для jabber.el:

(defun ssanina (num)
(interactive "nМощность ссанины: ")
(funcall jabber-send-function jabber-buffer-connection (concat (make-string num ?\n) "CCAHNHA")))

#ttiif

21 comment