Add slack

2 files changed, 40 insertions, 0 deletions

@@ -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