emacs: gnus: subscribe to guile-user & disable gnus-registry for now
[~bandali/configs] / .emacs.d / init.el
index b67efd0..bcb3a3b 100644 (file)
@@ -445,6 +445,10 @@ For disabling the behaviour for certain buffers and/or modes."
 ;; allow scrolling in Isearch
 (setq isearch-allow-scroll t)
 
 ;; 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))
 
 (use-feature vc
   :bind ("C-x v C-=" . vc-ediff))
 
@@ -973,7 +977,7 @@ For disabling the behaviour for certain buffers and/or modes."
 
 (use-package company
   :defer 0.6
 
 (use-package company
   :defer 0.6
-  :delight " company"
+  :delight " comp"
   :bind
   (:map company-active-map
         ([tab]    . company-complete-common-or-cycle)
   :bind
   (:map company-active-map
         ([tab]    . company-complete-common-or-cycle)
@@ -1537,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/"))
 
    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 alert
   :commands (alert)
   :init (setq alert-default-style 'notifications))
@@ -1580,7 +1629,7 @@ For disabling the behaviour for certain buffers and/or modes."
             (nnimap-inbox "INBOX")
             (nnimap-split-methods 'nnimap-split-fancy)
             (nnimap-split-fancy (|
             (nnimap-inbox "INBOX")
             (nnimap-split-methods 'nnimap-split-fancy)
             (nnimap-split-fancy (|
-                                 (: gnus-registry-split-fancy-with-parent)
+                                 ;; (: gnus-registry-split-fancy-with-parent)
                                  ;; (: gnus-group-split-fancy "INBOX" t "INBOX")
                                  ;; gnu
                                  (list ".*emacs-devel.gnu.org" "l.gnu.emacs.devel")
                                  ;; (: gnus-group-split-fancy "INBOX" t "INBOX")
                                  ;; gnu
                                  (list ".*emacs-devel.gnu.org" "l.gnu.emacs.devel")
@@ -1595,6 +1644,7 @@ For disabling the behaviour for certain buffers and/or modes."
                                  (list ".*bug-gnuzilla.gnu.org" "l.gnu.gnuzilla.bug")
                                  (list ".*gnuzilla-dev.gnu.org" "l.gnu.gnuzilla.dev")
                                  (list ".*guile-devel.gnu.org" "l.gnu.guile.devel")
                                  (list ".*bug-gnuzilla.gnu.org" "l.gnu.gnuzilla.bug")
                                  (list ".*gnuzilla-dev.gnu.org" "l.gnu.gnuzilla.dev")
                                  (list ".*guile-devel.gnu.org" "l.gnu.guile.devel")
+                                 (list ".*guile-user.gnu.org" "l.gnu.guile.user")
                                  (list ".*guix-devel.gnu.org" "l.gnu.guix.devel")
                                  (list ".*info-guix.gnu.org" "l.gnu.guix.info")
                                  (list ".*savannah-hackers-public.gnu.org" "l.gnu.savannah.hackers.public")
                                  (list ".*guix-devel.gnu.org" "l.gnu.guix.devel")
                                  (list ".*info-guix.gnu.org" "l.gnu.guix.info")
                                  (list ".*savannah-hackers-public.gnu.org" "l.gnu.savannah.hackers.public")
@@ -1626,10 +1676,10 @@ For disabling the behaviour for certain buffers and/or modes."
              (nnimap-inbox "INBOX")
              (nnimap-split-methods 'nnimap-split-fancy)
              (nnimap-split-fancy (|
              (nnimap-inbox "INBOX")
              (nnimap-split-methods 'nnimap-split-fancy)
              (nnimap-split-fancy (|
-                                  (: gnus-registry-split-fancy-with-parent)
+                                  ;; (: gnus-registry-split-fancy-with-parent)
                                   ;; se463-s19
                                   ;; 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"
                                   ;; catch-all
                                   "INBOX")))
      (nnimap "csc"
@@ -1686,6 +1736,9 @@ For disabling the behaviour for certain buffers and/or modes."
      ("l\\.gnu\\.guile\\.devel"
       (to-address . "guile-devel@gnu.org")
       (to-list    . "guile-devel@gnu.org"))
      ("l\\.gnu\\.guile\\.devel"
       (to-address . "guile-devel@gnu.org")
       (to-list    . "guile-devel@gnu.org"))
+     ("l\\.gnu\\.guile\\.user"
+      (to-address . "guile-user@gnu.org")
+      (to-list    . "guile-user@gnu.org"))
      ("l\\.gnu\\.guix\\.devel"
       (to-address . "guix-devel@gnu.org")
       (to-list    . "guix-devel@gnu.org"))
      ("l\\.gnu\\.guix\\.devel"
       (to-address . "guix-devel@gnu.org")
       (to-list    . "guix-devel@gnu.org"))
@@ -1757,7 +1810,7 @@ For disabling the behaviour for certain buffers and/or modes."
   (require 'ebdb-mua)
   (require 'ebdb-gnus)
 
   (require 'ebdb-mua)
   (require 'ebdb-gnus)
 
-  (gnus-registry-initialize)
+  ;; (gnus-registry-initialize)
 
   (with-eval-after-load 'recentf
     (add-to-list 'recentf-exclude gnus-home-directory)))
 
   (with-eval-after-load 'recentf
     (add-to-list 'recentf-exclude gnus-home-directory)))
@@ -2012,25 +2065,19 @@ https://csclub.uwaterloo.ca/~abandali/")
       (gnus-harvest-install))))
 
 \f
       (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
 
 (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-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-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
   :config
   (with-eval-after-load 'ivy
     ;; ignore channel buffer names
@@ -2050,6 +2097,25 @@ https://csclub.uwaterloo.ca/~abandali/")
   (add-to-list 'erc-modules 'scrolltoplace)
   (erc-update-modules))
 
   (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)
 
 (use-package erc-hl-nicks
   :after erc)