2015-07-24 00:23:22 +00:00
|
|
|
;;; packages.el --- jabber Layer packages File for Spacemacs
|
|
|
|
;;
|
2016-01-12 02:40:54 +00:00
|
|
|
;; Copyright (c) 2012-2016 Sylvain Benner & Contributors
|
2015-07-24 00:23:22 +00:00
|
|
|
;;
|
|
|
|
;; Author: Tosh Lyons <tosh.lyons@gmail.com>
|
|
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
|
|
;;
|
|
|
|
;; This file is not part of GNU Emacs.
|
|
|
|
;;
|
|
|
|
;;; License: GPLv3
|
|
|
|
|
|
|
|
(setq jabber-packages '(jabber))
|
|
|
|
|
|
|
|
(defun jabber/init-jabber ()
|
|
|
|
(use-package jabber
|
|
|
|
:defer t
|
2015-11-18 00:38:05 +00:00
|
|
|
:init (spacemacs/set-leader-keys "aj" 'jabber-connect-all)
|
2016-04-07 07:57:01 +00:00
|
|
|
:config
|
|
|
|
(progn
|
|
|
|
(spacemacs/set-leader-keys-for-major-mode 'jabber-roster-mode
|
|
|
|
"a" 'jabber-send-presence
|
|
|
|
"b" 'jabber-get-browse
|
|
|
|
"d" 'jabber-disconnect
|
|
|
|
"e" 'jabber-roster-edit-action-at-point
|
|
|
|
"g" 'jabber-display-roster
|
|
|
|
"i" 'jabber-get-disco-items
|
|
|
|
"j" 'jabber-muc-join
|
|
|
|
"q" 'bury-buffer
|
|
|
|
"r" 'jabber-roster-toggle-offline-display
|
|
|
|
"s" 'jabber-send-subscription-request
|
|
|
|
"v" 'jabber-get-version
|
|
|
|
"RET" 'jabber-roster-ret-action-at-point)
|
|
|
|
(evilified-state-evilify jabber-roster-mode jabber-roster-mode-map
|
|
|
|
"j" 'jabber-go-to-next-roster-item
|
|
|
|
"k" 'jabber-go-to-previous-roster-item))))
|
2016-06-07 18:21:35 +00:00
|
|
|
|
|
|
|
(defun jabber/jabber-connect-hook (jc)
|
|
|
|
(jabber-send-presence "" "Online" 10)
|
|
|
|
(jabber-whitespace-ping-start)
|
|
|
|
|
|
|
|
;; Disable the minibuffer getting jabber messages when active
|
|
|
|
;; See http://www.emacswiki.org/JabberEl
|
|
|
|
(define-jabber-alert echo "Show a message in the echo area"
|
|
|
|
(lambda (msg)
|
|
|
|
(unless (minibuffer-prompt)
|
|
|
|
(message "%s" msg)))))
|
|
|
|
|
|
|
|
(defun jabber/post-init-jabber ()
|
|
|
|
(add-hook 'jabber-post-connect-hooks 'jabber/jabber-connect-hook))
|