gistfile1.txt

;; 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 (quote (("[email protected]"
                                   (:password . "yourpassword")
                                   (:network-server . "chat.hipchat.com")
                                   (:port . 5223)
                                   (:connection-type . ssl)))))
(defvar hipchat-number "25328")
(defvar hipchat-nickname "First Last")

;; 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 "\" ")))

;; Make buffers name pretty
(setq jabber-groupchat-buffer-format "%n"
      jabber-chat-buffer-format "%n"
      jabber-roster-buffer "hipchat")
(provide 'mine-hipchat)