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
|
(:with-mode adaptive-wrap-prefix-mode
|
||||||
(:hook-into visual-column-mode)))
|
(:hook-into visual-column-mode)))
|
||||||
|
|
||||||
|
(setup (:straight alert)
|
||||||
|
(:option alert-default-style 'libnotify))
|
||||||
|
|
||||||
(setup (:straight anzu)
|
(setup (:straight anzu)
|
||||||
(:option anzu-cons-mode-line-p nil)
|
(:option anzu-cons-mode-line-p nil)
|
||||||
(:+key [remap query-replace] #'anzu-query-replace-regexp
|
(:+key [remap query-replace] #'anzu-query-replace-regexp
|
||||||
|
@ -1641,6 +1644,16 @@ See also `crux-reopen-as-root-mode'."
|
||||||
+modeline-position)))
|
+modeline-position)))
|
||||||
(simple-modeline-mode +1))
|
(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
|
(setup (:straight-when sly
|
||||||
(defvar +lisp-bin (executable-find "sbcl")))
|
(defvar +lisp-bin (executable-find "sbcl")))
|
||||||
(:also-load sly-autoloads
|
(: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