diff options
Diffstat (limited to '')
| -rw-r--r-- | .emacs.d/lisp/bandali-erc.el | 11 | ||||
| -rw-r--r-- | .emacs.d/lisp/bandali-gnus.el | 8 | ||||
| -rw-r--r-- | .emacs.d/lisp/bandali-theme.el | 9 |
3 files changed, 16 insertions, 12 deletions
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. |