461a36b981
Map erc, jabber, rcirc, and slack buffers to the "chat" purpose. Map gnus, mu4e, and notmuch buffers to the "mail" purpose.
50 lines
1.6 KiB
EmacsLisp
50 lines
1.6 KiB
EmacsLisp
;;; packages.el --- jabber Layer packages File for Spacemacs
|
|
;;
|
|
;; Copyright (c) 2012-2018 Sylvain Benner & Contributors
|
|
;;
|
|
;; 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
|
|
window-purpose
|
|
))
|
|
|
|
(defun jabber/init-jabber ()
|
|
(use-package jabber
|
|
:defer t
|
|
:init
|
|
(progn
|
|
(add-hook 'jabber-post-connect-hooks 'spacemacs/jabber-connect-hook)
|
|
(spacemacs/set-leader-keys "aj" 'jabber-connect-all))
|
|
: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))))
|
|
|
|
(defun jabber/pre-init-window-purpose ()
|
|
(spacemacs|use-package-add-hook window-purpose
|
|
:pre-config
|
|
(dolist (mode '(jabber-browse-mode
|
|
jabber-chat-mode
|
|
jabber-console-mode
|
|
jabber-roster-mode))
|
|
(add-to-list 'purpose-user-mode-purposes (cons mode 'chat)))))
|