emacs: update packages

[~bandali/configs] / .emacs.d / init.el

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index c5a5bdf..b02ab90 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -445,6 +445,10 @@ For disabling the behaviour for certain buffers and/or modes."
 ;; allow scrolling in Isearch
 (setq isearch-allow-scroll t)
 
+;; open read-only file buffers in view-mode
+;; (enables niceties like `q' for quit)
+(setq view-read-only t)
+
 (use-feature vc
   :bind ("C-x v C-=" . vc-ediff))
 
@@ -486,6 +490,15 @@ For disabling the behaviour for certain buffers and/or modes."
 (when (display-graphic-p)
   (unbind-key "C-z" global-map))
 
+(bind-keys
+ ;; for back and forward mouse keys
+ ("<mouse-8>"      . previous-buffer)
+ ("<drag-mouse-8>" . previous-buffer)
+ ("<mouse-9>"      . next-buffer)
+ ("<drag-mouse-9>" . next-buffer)
+ ("<drag-mouse-2>" . kill-this-buffer)
+ ("<drag-mouse-3>" . ivy-switch-buffer))
+
 (bind-keys
  :prefix-map a/straight-prefix-map
  :prefix "C-c p s"
@@ -964,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)
@@ -1528,16 +1541,60 @@ 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))
 
-(use-package ivy-xref
-  :init
-  (setq xref-show-xrefs-function #'ivy-xref-show-xrefs))
-
 ;; (use-package fill-column-indicator)
 
+(use-package emojify
+  :hook (erc-mode . emojify-mode))
+
 \f
 ;;; Email (with Gnus)
 
@@ -1620,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"
@@ -2004,25 +2061,19 @@ https://csclub.uwaterloo.ca/~abandali/")
       (gnus-harvest-install))))
 
 \f
-;;; 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
@@ -2042,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)