Add picom config

[~bandali/configs] / .emacs.d / lisp / bandali-gnus.el

diff --git a/.emacs.d/lisp/bandali-gnus.el b/.emacs.d/lisp/bandali-gnus.el
index bdcc501..671a1cb 100644 (file)
--- 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")
                                 (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")
                                 ;; *.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 ".*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")
                                 ;; ----------------------------------
                                 ;; (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
  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)
 
  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 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
 
 (with-eval-after-load 'gnus-art
   (csetq