This repository has been archived on 2024-10-22. You can view files and clone it, but cannot push or open issues or pull requests.
spacemacs/layers/+chat/slack/packages.el
Miciah Masters 461a36b981 purpose: Add chat and mail purposes
Map erc, jabber, rcirc, and slack buffers to the "chat" purpose.

Map gnus, mu4e, and notmuch buffers to the "mail" purpose.
2019-06-09 21:47:21 +02:00

101 lines
2.9 KiB
EmacsLisp

;;; packages.el --- slack layer packages file for Spacemacs.
;;
;; Copyright (c) 2012-2018 Sylvain Benner & Contributors
;;
;; Author: Kosta Harlan <kosta@kostaharlan.net>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3
;;; Commentary:
;;; Code:
;; TODO: Integrate company-emoji.
(defconst slack-packages
'(
alert
emoji-cheat-sheet-plus
flyspell
linum
persp-mode
slack
window-purpose
))
(defun slack/init-alert ()
(use-package alert
:defer t
:init (setq alert-default-style 'notifier)))
(defun slack/post-init-emoji-cheat-sheet-plus ()
(add-hook 'slack-mode-hook 'emoji-cheat-sheet-plus-display-mode))
(defun slack/post-init-flyspell ()
(add-hook 'lui-mode-hook 'flyspell-mode))
(defun slack/post-init-linum ()
(add-hook 'slack-mode-hook 'spacemacs/no-linum))
(defun slack/pre-init-persp-mode ()
(spacemacs|use-package-add-hook persp-mode
:post-config
(progn
(add-to-list 'persp-filter-save-buffers-functions
'spacemacs//slack-persp-filter-save-buffers-function)
(spacemacs|define-custom-layout slack-spacemacs-layout-name
:binding slack-spacemacs-layout-binding
:body
(progn
(add-hook 'slack-mode #'spacemacs//slack-buffer-to-persp)
;; TODO: We don't want to slack-start every time someone types `SPC l o s`
(call-interactively 'slack-start)
(call-interactively 'slack-channel-select))))))
(defun slack/init-slack ()
"Initialize Slack"
(use-package slack
:commands (slack-start)
:defer t
:init
(progn
(spacemacs/declare-prefix "aC" "slack")
(spacemacs/set-leader-keys
"aCs" 'slack-start
"aCj" 'slack-channel-select
"aCg" 'slack-group-select
"aCr" 'slack-select-rooms
"aCd" 'slack-im-select
"aCq" 'slack-ws-close)
(setq slack-enable-emoji t))
:config
(progn
(spacemacs/set-leader-keys-for-major-mode 'slack-mode
"j" 'slack-channel-select
"g" 'slack-group-select
"r" 'slack-select-rooms
"d" 'slack-im-select
"p" 'slack-room-load-prev-messages
"e" 'slack-message-edit
"t" 'slack-thread-show-or-create
"q" 'slack-ws-close
"mm" 'slack-message-embed-mention
"mc" 'slack-message-embed-channel
"k" 'slack-select-rooms
"@" 'slack-message-embed-mention
"#" 'slack-message-embed-channel
")" 'slack-message-add-reaction
"(" 'slack-message-remove-reaction)
(evil-define-key 'insert slack-mode-map
(kbd "@") 'slack-message-embed-mention
(kbd "#") 'slack-message-embed-channel))))
(defun slack/pre-init-window-purpose ()
(spacemacs|use-package-add-hook window-purpose
:pre-config
(add-to-list 'purpose-user-mode-purposes '(slack-mode . chat))))
;;; packages.el ends here