X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/b99010747f3f4ab1421cedb7fc77f81db44a8856..b65084819f9be778b2acf94bdfeecdf3aeab0a06:/.emacs.d/init.el

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 9ccc3bb..b02ab90 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -977,7 +977,7 @@ For disabling the behaviour for certain buffers and/or modes."
 
 (use-package company
   :defer 0.6
-  :delight " company"
+  :delight " comp"
   :bind
   (:map company-active-map
         ([tab]    . company-complete-common-or-cycle)
@@ -1541,6 +1541,51 @@ For disabling the behaviour for certain buffers and/or modes."
    org-ref-bibliography-notes "~/usr/org/notes.org"
    org-ref-pdf-directory "~/usr/org/bibtex-pdfs/"))
 
+;; ugh, temporary (still better than using the proprietary web app)
+(use-package slack
+  :commands (slack-start)
+  :init
+  (eval-when-compile                    ; silence the byte-compiler
+    (defvar url-http-data nil)
+    (defvar url-http-extra-headers nil)
+    (defvar url-http-method nil)
+    (defvar url-callback-function nil)
+    (defvar url-callback-arguments nil)
+    (defvar oauth--token-data nil))
+  (setq slack-buffer-emojify t
+        slack-prefer-current-team t)
+  :config
+  (slack-register-team
+   :name "nday-students"
+   :default t
+   :token nday-students-token
+   :subscribed-channels '(general)
+   :full-and-display-names t)
+  (add-to-list 'swiper-font-lock-exclude 'slack-message-buffer-mode t)
+  (setq lui-time-stamp-format "[%Y-%m-%d %H:%M:%S]"
+        lui-time-stamp-only-when-changed-p t
+        lui-time-stamp-position 'right)
+  :bind
+  (("C-c s s" . slack-start)
+   ("C-c s u" . slack-select-unread-rooms)
+   ("C-c s b" . slack-select-rooms)
+   ("C-c s t" . slack-change-current-team)
+   ("C-c s c" . slack-ws-close)
+   :map slack-mode-map
+   ("M-p"     . slack-buffer-goto-prev-message)
+   ("M-n"     . slack-buffer-goto-next-message)
+   ("C-c e"   . slack-message-edit)
+   ("C-c k"   . slack-message-delete)
+   ("C-c C-k" . slack-channel-leave)
+   ("C-c r a" . slack-message-add-reaction)
+   ("C-c r r" . slack-message-remove-reaction)
+   ("C-c r s" . slack-message-show-reaction-users)
+   ("C-c p l" . slack-room-pins-list)
+   ("C-c p a" . slack-message-pins-add)
+   ("C-c p r" . slack-message-pins-remove)
+   ("@"       . slack-message-embed-mention)
+   ("#"       . slack-message-embed-channel)))
+
 (use-package alert
   :commands (alert)
   :init (setq alert-default-style 'notifications))
@@ -1632,8 +1677,8 @@ For disabling the behaviour for certain buffers and/or modes."
              (nnimap-split-fancy (|
                                   (: gnus-registry-split-fancy-with-parent)
                                   ;; se463-s19
-                                  ("subject" "SE\\s-?463" "course.se463-s19")
-                                  (from "\\(SE\\s-?463\\|Gema\\)" "course.se463-s19")
+                                  ("subject" "\\(SE\\s-?463\\|Deliverable\\)" "course.se463-s19")
+                                  (from "\\(SE\\s-?463\\|Gema\\|Hemant\\|Davood\\|Camilo\\|Reza\\|Michael\\|Sandy\\)" "course.se463-s19")
                                   ;; catch-all
                                   "INBOX")))
      (nnimap "csc"
@@ -2016,25 +2061,19 @@ https://csclub.uwaterloo.ca/~abandali/")
       (gnus-harvest-install))))
 
 
-;;; IRC
+;;; IRC (with ERC and ZNC)
 
 (use-feature erc
   :bind (("C-c a e b" . erc-switch-to-buffer)
          :map erc-mode-map
          ("M-a" . erc-track-switch-buffer))
   :custom
-  (erc-fill-function 'erc-fill-static)
-  (erc-fill-static-center 18)
   (erc-join-buffer 'bury)
   (erc-lurker-hide-list '("JOIN" "PART" "QUIT"))
   (erc-nick "bandali")
-  (erc-pcomplete-nick-postfix ",")
   (erc-rename-buffers t)
   (erc-server-reconnect-attempts 5)
   (erc-server-reconnect-timeout 3)
-  (erc-track-exclude-types '("JOIN" "MODE" "NICK" "PART" "QUIT"
-                             "324" "329" "332" "333" "353" "477"))
-  (erc-track-priority-faces-only 'all)
   :config
   (with-eval-after-load 'ivy
     ;; ignore channel buffer names
@@ -2054,6 +2093,25 @@ https://csclub.uwaterloo.ca/~abandali/")
   (add-to-list 'erc-modules 'scrolltoplace)
   (erc-update-modules))
 
+(use-feature erc-fill
+  :after erc
+  :custom
+  (erc-fill-function 'erc-fill-static)
+  (erc-fill-static-center 18))
+
+(use-feature erc-pcomplete
+  :after erc
+  :custom
+  (erc-pcomplete-nick-postfix ","))
+
+(use-feature erc-track
+  :after erc
+  :custom
+  (erc-track-exclude-types '("JOIN" "MODE" "NICK" "PART" "QUIT"
+                             "324" "329" "332" "333" "353" "477"))
+  (erc-track-priority-faces-only 'all)
+  (erc-track-shorten-function nil))
+
 (use-package erc-hl-nicks
   :after erc)