wgreenhouse/emacs-jabber
1
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

Revision: mange@freemail.hu--2005/emacs-jabber--cvs-head--0--patch-193

Browse Source 
Creator:  Magnus Henoch <mange@freemail.hu>

Add avatar to chat buffer header line
This commit is contained in:
Magnus Henoch 2006-01-29 14:31:48 +00:00 committed by Kirill A. Korinskiy
parent fba0dd6923
commit 53ce6d7386
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
jabber-chat.el
View File

@ -38,7 +38,10 @@ with):
:group 'jabber-chat)
(defcustom jabber-chat-header-line-format
'(" " (:eval (jabber-jid-displayname jabber-chatting-with))
'("" (:eval (let ((buddy (jabber-jid-symbol jabber-chatting-with)))
(jabber-propertize " "
'display (get buddy 'avatar))))
(:eval (jabber-jid-displayname jabber-chatting-with))
"\t" (:eval (let ((buddy (jabber-jid-symbol jabber-chatting-with)))
(propertize
(or