about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-01-31 17:26:39 -0600
committerCase Duckworth2022-01-31 17:26:39 -0600
commitfe79856349b35893f1e2920b418de59051a0dc7e (patch)
tree3976a9e07f4a9e3fcee879ebac81b30119067e2a
parentUpdate `+eshell-quit-or-delete-char' (diff)
downloademacs-fe79856349b35893f1e2920b418de59051a0dc7e.tar.gz
emacs-fe79856349b35893f1e2920b418de59051a0dc7e.zip
Add slack
-rw-r--r--init.el13
-rw-r--r--lisp/+slack.el27
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'.
16This 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