emacs: erc: put customizations into their own sub-packages

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

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index c5a5bdf..e490014 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)
 
 ;; 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))
 


@@ -486,6 +490,15 @@ For disabling the behaviour for certain buffers and/or modes."
 (when (display-graphic-p)
   (unbind-key "C-z" global-map))
 
 (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"
 (bind-keys
  :prefix-map a/straight-prefix-map
  :prefix "C-c p s"


@@ -1532,12 +1545,11 @@ For disabling the behaviour for certain buffers and/or modes."
   :commands (alert)
   :init (setq alert-default-style 'notifications))
 
   :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 fill-column-indicator)
 

+(use-package emojify
+  :hook (erc-mode . emojify-mode))
+

 \f
 ;;; Email (with Gnus)
 
 \f
 ;;; Email (with Gnus)
 


@@ -1620,8 +1632,8 @@ For disabling the behaviour for certain buffers and/or modes."
              (nnimap-split-fancy (|
                                   (: gnus-registry-split-fancy-with-parent)
                                   ;; se463-s19
              (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"
                                   ;; catch-all
                                   "INBOX")))
      (nnimap "csc"


@@ -2004,25 +2016,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


@@ -2042,6 +2048,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)