- brew install gnutls (for ssl)
- M-x package-install jabber
- M-x jabber-connect [email protected]
Created
May 8, 2013 10:58
-
-
Save owainlewis/5539754 to your computer and use it in GitHub Desktop.
HipChat Jabber Emacs
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;; 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 '(("[email protected]"))) | |
| (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 "\" "))) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
I had to do a bit more to get it working: https://gist.github.com/bitops/77308b347bceb54302a2