Various ERC customizations
authorAmin Bandali <bandali@gnu.org>
Sat, 15 Aug 2020 03:22:56 +0000 (23:22 -0400)
committerAmin Bandali <bandali@gnu.org>
Sat, 15 Aug 2020 03:22:56 +0000 (23:22 -0400)
* lisp/bandali-erc.el: Make 'erc-pal-face more subtle, with a slight
yellow background.  Also, set erc-pal-highlight-type to the
newly-added `message' type [1: e365b9ab7b], which in contrast to
`all', only highlights the message body and not the nick.  Lastly, add
the tilde.chat network.

[1: e365b9ab7b]: 2020-08-14 22:12:02 -0400
  Add `message' to erc-match.el highlight types
  https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=e365b9ab7b989c0587c0f2c0f05d35b4d67920dd

lisp/bandali-erc.el

index 94b5013..4fe50b0 100644 (file)
@@ -27,6 +27,7 @@
 (use-package erc
   :bind ("C-c w e" . erc-switch-to-buffer-other-window)
   :custom
 (use-package erc
   :bind ("C-c w e" . erc-switch-to-buffer-other-window)
   :custom
+  (erc-auto-query 'bury)
   (erc-autojoin-domain-only nil)
   (erc-format-nick-function 'erc-format-@nick)
   (erc-join-buffer 'bury)
   (erc-autojoin-domain-only nil)
   (erc-format-nick-function 'erc-format-@nick)
   (erc-join-buffer 'bury)
 
 (use-package erc-match
   :after erc
 
 (use-package erc-match
   :after erc
+  :config
+  (set-face-attribute
+   'erc-pal-face nil
+   :foreground 'unspecified
+   :weight 'unspecified
+   ;; :inherit 'font-lock-string-face
+   ;; :background (face-attribute 'font-lock-string-face :background)
+   :background "#ffffed")
   :custom
   :custom
+  (erc-pal-highlight-type 'message)
   (erc-pals
    '("aindilis" "blackbeard" "bremner" "brettgilio" "civodul" "dto"
      "ggoes" "jrasata" "jxself" "mplsCorwin" "quiliro" "rindolf" "rwp"
   (erc-pals
    '("aindilis" "blackbeard" "bremner" "brettgilio" "civodul" "dto"
      "ggoes" "jrasata" "jxself" "mplsCorwin" "quiliro" "rindolf" "rwp"
           `(("znc.emacsconf.org" 6697 t
              ((freenode "bandali/freenode" ,pwd)))
             ("znc.emacsconf.org" 6697 t
           `(("znc.emacsconf.org" 6697 t
              ((freenode "bandali/freenode" ,pwd)))
             ("znc.emacsconf.org" 6697 t
-             ((oftc "bandali/oftc" ,pwd)))))))
+             ((oftc "bandali/oftc" ,pwd)))
+            ("znc.emacsconf.org" 6697 t
+             ((tildechat "bandali/tildechat" ,pwd)))))))
 
 (provide 'bandali-erc)
 ;;; bandali-erc.el ends here
 
 (provide 'bandali-erc)
 ;;; bandali-erc.el ends here