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." (: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 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 @@ +;;; +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