From adba94a76d9411bc52b04bfb9b442f4c6c21c285 Mon Sep 17 00:00:00 2001
From: Amin Bandali <bandali@gnu.org>
Date: Sun, 22 Nov 2020 00:20:17 -0500
Subject: A few accumulated changes

---
 .emacs.d/lisp/bandali-erc.el   | 11 ++++++-----
 .emacs.d/lisp/bandali-gnus.el  |  8 +++++---
 .emacs.d/lisp/bandali-theme.el |  9 +++++----
 3 files changed, 16 insertions(+), 12 deletions(-)

(limited to '.emacs.d/lisp')

diff --git a/.emacs.d/lisp/bandali-erc.el b/.emacs.d/lisp/bandali-erc.el
index dd04abe..ed27df3 100644
--- a/.emacs.d/lisp/bandali-erc.el
+++ b/.emacs.d/lisp/bandali-erc.el
@@ -60,7 +60,8 @@
     "Deop myself from current channel."
     (erc-cmd-DEOP (format "%s" (erc-current-nick))))
   (add-to-list 'erc-modules 'keep-place)
-  (add-to-list 'erc-modules 'notifications)
+  (when (display-graphic-p)
+    (add-to-list 'erc-modules 'notifications))
   (add-to-list 'erc-modules 'smiley)
   (add-to-list 'erc-modules 'spelling)
   (declare-function erc-update-modules "erc")
@@ -95,9 +96,9 @@
   (csetq
    erc-pal-highlight-type 'nick
    erc-pals
-   '("aindilis" "blackbeard" "bremner" "brettgilio" "civodul" "dto"
-     "ggoes" "iank" "jrasata" "mplsCorwin" "quidam" "rwp" "sachac"
-     "sudoman" "technomancy"))
+   '("aindilis" "blackbeard" "bremner" "~brettgilio?@*" "civodul"
+     "dto" "ggoes" "iank" "jrasata" "mplsCorwin" "quidam" "rwp"
+     "sachac" "sudoman" "technomancy"))
   (with-eval-after-load 'erc-match
     (set-face-attribute
      'erc-pal-face nil
@@ -107,7 +108,7 @@
      :background (face-attribute 'font-lock-string-face :background)))
 
   ;; erc-pcomplete
-  (csetq erc-pcomplete-nick-postfix ", ")
+  (csetq erc-pcomplete-nick-postfix ",")
 
   ;; erc-stamp
   (csetq erc-timestamp-only-if-changed-flag nil
diff --git a/.emacs.d/lisp/bandali-gnus.el b/.emacs.d/lisp/bandali-gnus.el
index bdcc501..671a1cb 100644
--- a/.emacs.d/lisp/bandali-gnus.el
+++ b/.emacs.d/lisp/bandali-gnus.el
@@ -77,6 +77,8 @@
                                 (list ".*<\\(.*\\)\\.iana\\.org>.*" "l.\\1")
                                 ;; orbitalfox (e.g. gemini)
                                 (list ".*<\\(.*\\)\\.lists\\.orbitalfox\\.eu>.*" "l.\\1")
+                                ;; haskell
+                                (list ".*<\\(.*\\)\\.haskell\\.org>.*" "l.\\1")
                                 ;; *.lists.sr.ht, omitting one dot if present
                                 ;;    add more \\.?\\([^.]*\\) if needed
                                 (list ".*<~\\(.*\\)/\\([^.]*\\)\\.?\\([^.]*\\)\\.lists\\.sr\\.ht>.*" "l.~\\1.\\2\\3")
@@ -86,7 +88,6 @@
                                 (list ".*atreus.freelists.org" "l.atreus")
                                 (list ".*deepspec.lists.cs.princeton.edu" "l.deepspec")
                                 ;; (list ".*haskell-art.we.lurk.org" "l.haskell.art") ;d
-                                (list ".*haskell-cafe.haskell.org" "l.haskell-cafe")
                                 ;; (list ".*notmuch.notmuchmail.org" "l.notmuch") ;u
                                 (list ".*dev.lists.parabola.nu" "l.parabola-dev")
                                 ;; ----------------------------------
@@ -282,6 +283,7 @@
  nndraft-directory     (concat gnus-home-directory "drafts/")
  gnus-save-newsrc-file nil
  gnus-read-newsrc-file nil
+ gnus-search-use-parsed-queries t
  gnus-interactive-exit nil
  gnus-gcc-mark-as-read t)
 
@@ -310,8 +312,8 @@
 ;; global key bindings
 (global-set-key (kbd "s-m") #'gnus-plugged)
 (global-set-key (kbd "s-M") #'gnus-unplugged)
-(global-set-key (kbd "C-c a m") #'gnus-plugged)
-(global-set-key (kbd "C-c a M") #'gnus-unplugged)
+(global-set-key (kbd "C-c m") #'gnus-plugged)
+(global-set-key (kbd "C-c M") #'gnus-unplugged)
 
 (with-eval-after-load 'gnus-art
   (csetq
diff --git a/.emacs.d/lisp/bandali-theme.el b/.emacs.d/lisp/bandali-theme.el
index 63c15d0..fa5911c 100644
--- a/.emacs.d/lisp/bandali-theme.el
+++ b/.emacs.d/lisp/bandali-theme.el
@@ -24,10 +24,11 @@
 
 ;;; Code:
 
-(add-to-list 'load-path (b/lisp "refinery-theme"))
-(with-eval-after-load 'package
-  (require 'refinery-theme)
-  (load-theme 'refinery t))
+(when (display-graphic-p)
+  (add-to-list 'load-path (b/lisp "refinery-theme"))
+  (with-eval-after-load 'package
+    (require 'refinery-theme)
+    (load-theme 'refinery t)))
 
 ;; (require 'smart-mode-line)
 ;; ;; thanks, but no thanks; don't make fixed-width fills.
-- 
cgit v1.2.3-60-g2f50