Add slack package for accessing Slack from Emacs

diff --git a/.emacs.d/esy.org b/.emacs.d/esy.org
index 57c90d1a7a9ccd12ce31e908982b40fe814755c0..67332e0a6d4ff8bbfa58c06e6c74ec2c78be44b1 100644 (file)
--- a/.emacs.d/esy.org
+++ b/.emacs.d/esy.org
@@ -152,8 +152,8 @@ For further information about Elisp headers, see [[info:elisp#Library
           ialign keyfreq keycast iedit lin list-unicode-display
           lorem-ipsum magit marginalia markdown-mode move-dup
           no-littering ns-auto-titlebar ob-prolog orderless paredit
-          pdf-tools rainbow-delimiters rg smtpmail-multi tramp typit
-          vterm vundo which-key whitespace-cleanup-mode yaml-mode))
+          pdf-tools rainbow-delimiters rg slack smtpmail-multi tramp
+          typit vterm vundo which-key whitespace-cleanup-mode yaml-mode))
 
   (package-install-selected-packages)
 #+end_src
@@ -924,6 +924,25 @@ does in the shell.
     (setq bbdb-phone-style nil))
 #+end_src
 
+** Slack
+#+begin_src emacs-lisp
+  (defun esy/slack-start ()
+    (interactive)
+    (require 'slack)
+    (require 'auth-source)
+    (slack-register-team :name "Dazz"
+                         :default t
+                         :token (auth-source-pick-first-password
+                                 :host "dazz-io.slack.com"
+                                 :user "eshel")
+                         :cookie (auth-source-pick-first-password
+                                  :host "dazz-io.slack.com"
+                                  :user "eshel^cookie"))
+    (setq slack-prefer-current-team t
+          slack-buffer-emojify t)
+    (slack-start))
+#+end_src
+
 * Display weekly agenda on startup
 :PROPERTIES:
 :CUSTOM_ID: agenda-on-startup