diff options
author | Magnus Henoch <mange@freemail.hu> | 2005-06-23 11:40:53 +0000 |
---|---|---|
committer | Kirill A. Korinskiy <catap@catap.ru> | 2005-06-23 11:40:53 +0000 |
commit | e1107bae555c2087c525f42742133c766e344e5e (patch) | |
tree | 34e1ff76ac1c0817640ef14a4c93462186bb571f /jabber-chat.el | |
parent | 3a75488af07fe0ba31271aa94dc10b75cb014537 (diff) |
Revision: mange@freemail.hu--2005/emacs-jabber--cvs-head--0--patch-113
Creator: Magnus Henoch <mange@freemail.hu>
Add goto-address functionality
Diffstat (limited to 'jabber-chat.el')
-rw-r--r-- | jabber-chat.el | 27 |
1 files changed, 7 insertions, 20 deletions
diff --git a/jabber-chat.el b/jabber-chat.el index 7a04a26..b3b533b 100644 --- a/jabber-chat.el +++ b/jabber-chat.el @@ -165,7 +165,8 @@ These fields are available: (defvar jabber-chat-printers '(jabber-chat-print-subject jabber-chat-print-body - jabber-chat-print-url) + jabber-chat-print-url + jabber-chat-goto-address) "List of functions that may be able to print part of a message. Each function receives the entire <message/> stanza as argument.") @@ -426,27 +427,13 @@ TIMESTAMP is the timestamp to print, or nil for now." (car (jabber-xml-get-children x 'desc)))))) (insert (jabber-propertize "URL: " 'face 'jabber-chat-prompt-system)) - - (if (featurep 'button) - (insert-button (if (not (zerop (length desc))) - (format "%s <%s>" desc url) - url) - 'url url - 'action - #'(lambda (button) - (browse-url (button-get button 'url)))) - ;; Simple button replacement - (let ((keymap (make-keymap))) - (define-key keymap "\r" - `(lambda () (interactive) - (browse-url ,url))) - (insert (jabber-propertize - (if (not (zerop (length desc))) - (format "%s <%s>" desc url) - url) - 'keymap keymap)))) + (insert (format "%s <%s>" desc url)) (insert "\n"))))) +(defun jabber-chat-goto-address (&rest ignore) + "Call `goto-address' on the newly written text." + (goto-address)) + (add-to-list 'jabber-jid-chat-menu (cons "Send message" 'jabber-send-message)) |