Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
HipChat + jabber.el
;; Connect using jabber-connect
;; My username from the HipChat configuration
;; from https://www.hipchat.com/account/xmpp
(setq jabber-account-list '(("10804_81219@chat.hipchat.com")))
;; To join HipChat rooms easily
(defvar hipchat-number "10804")
(defvar hipchat-nickname "Brian McKenna")
(defun hipchat-join (room)
(interactive "sRoom name: ")
(jabber-groupchat-join
(jabber-read-account)
(concat hipchat-number "_" room "@conf.hipchat.com")
hipchat-nickname
t))
;; Mention nicknames in a way that HipChat clients will pickup
(defun hipchat-mention (nickname)
(interactive
(list (jabber-muc-read-nickname jabber-group "Nickname: ")))
(insert (concat "@\"" nickname "\" ")))
@bitops

This comment has been minimized.

Copy link

bitops commented Apr 30, 2015

I had to do a bit more to get this working: https://gist.github.com/bitops/77308b347bceb54302a2

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.