fnwiyaBlog

EmacsとかLispとか可視化とか

emacsからFacebookのチャット

普段ウェブサイトブロッカーという拡張機能で指定時間にFacebookへのアクセスを禁止してるんですが、
チャットだけは必要なことがあったのでemacsから起動できるように設定しました。

;; Define location of gnutls-cli on OS X, instaled via brew
(setq starttls-use-gnutls t
      starttls-gnutls-program "/usr/local/bin/gnutls-cli"
      starttls-extra-arguments nil)

;; Define a list of my jabber.el accounts
(setq jabber-account-list '(
                            ("****************@chat.facebook.com"  ;;自分のプロフィールページのURLの最後の部分
                             (:network-server . "chat.facebook.com")
                             (:connection-type . starttls)
                             (:port . 5222)
                             (:password . "************"))))

;; Disable jabber.el presence notifications
(remove-hook 'jabber-alert-presence-hooks
             'sr-jabber-alert-presence-func)

;; Connect to all my jabber.el accounts on startup
(jabber-connect-all)

この設定を行った上でM-x jabber-chat-withとコマンドを打って
連絡先を入力するばチャットができるようになります。
立ち上げっぱなしにして通知を受け取るのってどうすれば、、、?探します。