Add slack
This commit is contained in:
parent
b19c1f98fa
commit
fe79856349
13
init.el
13
init.el
|
@ -739,6 +739,9 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers."
|
|||
(:with-mode adaptive-wrap-prefix-mode
|
||||
(:hook-into visual-column-mode)))
|
||||
|
||||
(setup (:straight alert)
|
||||
(:option alert-default-style 'libnotify))
|
||||
|
||||
(setup (:straight anzu)
|
||||
(:option anzu-cons-mode-line-p nil)
|
||||
(:+key [remap query-replace] #'anzu-query-replace-regexp
|
||||
|
@ -1641,6 +1644,16 @@ See also `crux-reopen-as-root-mode'."
|
|||
+modeline-position)))
|
||||
(simple-modeline-mode +1))
|
||||
|
||||
(setup (:straight slack)
|
||||
(:also-load +slack)
|
||||
(:option slack-prefer-current-team t
|
||||
slack-buffer-emojify t
|
||||
slack-buffer-create-on-notify t
|
||||
slack-enable-wysiwyg t
|
||||
slack-file-dir "~/var/download/")
|
||||
(with-eval-after-load '+slack
|
||||
(+slack-register-teams)))
|
||||
|
||||
(setup (:straight-when sly
|
||||
(defvar +lisp-bin (executable-find "sbcl")))
|
||||
(:also-load sly-autoloads
|
||||
|
|
|
@ -0,0 +1,27 @@
|
|||
;;; +slack.el --- Slack customizations and extras -*- lexical-binding: t; -*-
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'slack)
|
||||
|
||||
(defgroup +slack nil
|
||||
"Extra slack customizations."
|
||||
:group 'slack
|
||||
:prefix "+slack-")
|
||||
|
||||
(defcustom +slack-teams nil
|
||||
"Teams to register using `slack-register-team'.
|
||||
This is a list of plists that are passed directly to
|
||||
`slack-register-team'."
|
||||
;;TODO: type
|
||||
)
|
||||
|
||||
(defun +slack-register-teams ()
|
||||
"Register teams in `+slack-teams'."
|
||||
(dolist (team +slack-teams)
|
||||
(apply #'slack-register-team team)))
|
||||
|
||||
(provide '+slack)
|
||||
;;; +slack.el ends here
|
Loading…
Reference in New Issue