HipChat Jabber Emacs

hipchat.el

;; HipChat 

(setq ssl-program-name "gnutls-cli"
      ssl-program-arguments '("--insecure" "-p" service host)
      ssl-certificate-verification-policy 1)

;; Connect using jabber.el
;; M-x jabber-connect <RET>

;; Config
(setq jabber-account-list '(("USER@chat.hipchat.com")))
(defvar hipchat-number "USERID")
(defvar hipchat-nickname "Owain Lewis")

;; Join a room
(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 "\" ")))

install.md

Setup Emacs with HipChat

• brew install gnutls (for ssl)

Emacs

• M-x package-install jabber
• M-x jabber-connect user_id@chat.hipchat.com

Install package: jabber [no match]