diff options
-rw-r--r-- | init.el | 13 | ||||
-rw-r--r-- | lisp/+slack.el | 27 |
2 files changed, 40 insertions, 0 deletions
diff --git a/init.el b/init.el index c06e44d..78e271c 100644 --- a/init.el +++ b/init.el | |||
@@ -739,6 +739,9 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers." | |||
739 | (:with-mode adaptive-wrap-prefix-mode | 739 | (:with-mode adaptive-wrap-prefix-mode |
740 | (:hook-into visual-column-mode))) | 740 | (:hook-into visual-column-mode))) |
741 | 741 | ||
742 | (setup (:straight alert) | ||
743 | (:option alert-default-style 'libnotify)) | ||
744 | |||
742 | (setup (:straight anzu) | 745 | (setup (:straight anzu) |
743 | (:option anzu-cons-mode-line-p nil) | 746 | (:option anzu-cons-mode-line-p nil) |
744 | (:+key [remap query-replace] #'anzu-query-replace-regexp | 747 | (:+key [remap query-replace] #'anzu-query-replace-regexp |
@@ -1641,6 +1644,16 @@ See also `crux-reopen-as-root-mode'." | |||
1641 | +modeline-position))) | 1644 | +modeline-position))) |
1642 | (simple-modeline-mode +1)) | 1645 | (simple-modeline-mode +1)) |
1643 | 1646 | ||
1647 | (setup (:straight slack) | ||
1648 | (:also-load +slack) | ||
1649 | (:option slack-prefer-current-team t | ||
1650 | slack-buffer-emojify t | ||
1651 | slack-buffer-create-on-notify t | ||
1652 | slack-enable-wysiwyg t | ||
1653 | slack-file-dir "~/var/download/") | ||
1654 | (with-eval-after-load '+slack | ||
1655 | (+slack-register-teams))) | ||
1656 | |||
1644 | (setup (:straight-when sly | 1657 | (setup (:straight-when sly |
1645 | (defvar +lisp-bin (executable-find "sbcl"))) | 1658 | (defvar +lisp-bin (executable-find "sbcl"))) |
1646 | (:also-load sly-autoloads | 1659 | (:also-load sly-autoloads |
diff --git a/lisp/+slack.el b/lisp/+slack.el new file mode 100644 index 0000000..cdf2747 --- /dev/null +++ b/lisp/+slack.el | |||
@@ -0,0 +1,27 @@ | |||
1 | ;;; +slack.el --- Slack customizations and extras -*- lexical-binding: t; -*- | ||
2 | |||
3 | ;;; Commentary: | ||
4 | |||
5 | ;;; Code: | ||
6 | |||
7 | (require 'slack) | ||
8 | |||
9 | (defgroup +slack nil | ||
10 | "Extra slack customizations." | ||
11 | :group 'slack | ||
12 | :prefix "+slack-") | ||
13 | |||
14 | (defcustom +slack-teams nil | ||
15 | "Teams to register using `slack-register-team'. | ||
16 | This is a list of plists that are passed directly to | ||
17 | `slack-register-team'." | ||
18 | ;;TODO: type | ||
19 | ) | ||
20 | |||
21 | (defun +slack-register-teams () | ||
22 | "Register teams in `+slack-teams'." | ||
23 | (dolist (team +slack-teams) | ||
24 | (apply #'slack-register-team team))) | ||
25 | |||
26 | (provide '+slack) | ||
27 | ;;; +slack.el ends here | ||