blob: 912cd14572b4ec0aad37427d3bac742b3c04f912 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
;;; slack.el --- Slack settings -*- lexical-binding: t -*-
;; Author: William Carroll <wpcarro@gmail.com>
;;; Commentary:
;; Wrangling the Slack client in Emacs
;;; Code:
;; Griffin's Slack plugin
;;(defconst slack/token (wpc/read-file-as-string "~/dotfiles/configs/secrets/slack_token.txt"))
;;(defconst wpc/slack-client-secret (wpc/read-file-as-string "~/dotfiles/configs/secrets/slack-client-secret"))
(defconst wpc/slack-client-secret "uncomment above line one day")
(load-file "~/.emacs.d/vendor/slack-snippets.el")
;; Slack client
(use-package slack
:general
(n slack-info-mode-map
:prefix ","
"u" 'slack-room-update-messages)
(n slack-mode-map
:prefix ","
"c" 'slack-buffer-kill
"ra" 'slack-message-add-reaction
"rr" 'slack-message-remove-reaction
"rs" 'slack-message-show-reaction-users
"pl" 'slack-room-pins-list
"pa" 'slack-message-pins-add
"pr" 'slack-message-pins-remove
"mm" 'slack-message-write-another-buffer
"me" 'slack-message-edit
"md" 'slack-message-delete
"u" 'slack-room-update-messages
"2" 'slack-message-embed-mention
"3" 'slack-message-embed-channel)
(n slack-mode-map
"C-n" 'slack-buffer-goto-next-message
"C-p" 'slack-buffer-goto-prev-message)
(n slack-edit-message-mode-map
:prefix ","
"k" 'slack-message-cancel-edit
"s" 'slack-message-send-from-buffer
"2" 'slack-message-embed-mention
"3" 'slack-message-embed-channel)
:commands (slack-start)
:init
(setq slack-buffer-emojify t) ;; if you want to enable emoji, default nil
(setq slack-prefer-current-team t)
:config
(add-hook 'slack-mode-hook (disable company-mode))
(setq slack-buffer-function #'switch-to-buffer)
(slack-register-team
:name "urbint"
:default t
:client-id "william@urbint.com"
:client-secret wpc/slack-client-secret
:token slack-token
:subscribed-channels '(dev dev_questions general random recruiting)
:full-and-display-names t))
(use-package circe)
(use-package emojify)
(provide 'wpc-slack)
;;; wpc-slack.el ends here
|
