Skip to content

Instantly share code, notes, and snippets.

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

This comment has been minimized.

Copy link

bitops commented Apr 30, 2015

I had to do a bit more to get this working:

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.