From 7c8d787a91e64c33630f940d0b6113aba206478d Mon Sep 17 00:00:00 2001 From: Peng Li Date: Sat, 9 Jul 2016 15:07:57 +0800 Subject: [PATCH] emacs - gnus group settings --- emacs.d/config.org | 57 ++++++++++++++++++++++++++++++++++-------------------- 1 file changed, 36 insertions(+), 21 deletions(-) diff --git a/emacs.d/config.org b/emacs.d/config.org index 2bdb3f8..cffcecd 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -1922,27 +1922,42 @@ Then Run =M-x gnus= ** Group buffer #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (setq gnus-permanently-visible-groups "\.*") - - (cond (window-system - (setq custom-background-mode 'light) - (defface my-group-face-1 - '((t (:foreground "Red" :bold t))) "First group face") - (defface my-group-face-2 - '((t (:foreground "DarkSeaGreen4" :bold t))) - "Second group face") - (defface my-group-face-3 - '((t (:foreground "Green4" :bold t))) "Third group face") - (defface my-group-face-4 - '((t (:foreground "SteelBlue" :bold t))) "Fourth group face") - (defface my-group-face-5 - '((t (:foreground "Blue" :bold t))) "Fifth group face"))) - (setq gnus-group-highlight - '(((> unread 200) . my-group-face-1) - ((and (< level 3) (zerop unread)) . my-group-face-2) - ((< level 3) . my-group-face-3) - ((zerop unread) . my-group-face-4) - (t . my-group-face-5))) + (use-package gnus + :init + (setq gnus-permanently-visible-groups "\.*") + :defer t + :commands gnus + :config + (cond (window-system + (setq custom-background-mode 'light) + (defface my-group-face-1 + '((t (:foreground "Red" :bold t))) "First group face") + (defface my-group-face-2 + '((t (:foreground "DarkSeaGreen4" :bold t))) + "Second group face") + (defface my-group-face-3 + '((t (:foreground "Green4" :bold t))) "Third group face") + (defface my-group-face-4 + '((t (:foreground "SteelBlue" :bold t))) "Fourth group face") + (defface my-group-face-5 + '((t (:foreground "Blue" :bold t))) "Fifth group face"))) + (setq gnus-group-highlight + '(((> unread 200) . my-group-face-1) + ((and (< level 3) (zerop unread)) . my-group-face-2) + ((< level 3) . my-group-face-3) + ((zerop unread) . my-group-face-4) + (t . my-group-face-5)))) + + + ;; key-remapping + (defun sd/gnus-map () + (interactive) + (define-key gnus-group-mode-map "k" 'gnus-group-prev-group) + (define-key gnus-group-mode-map "j" 'gnus-group-next-group) + (define-key gnus-group-mode-map "g" 'gnus-group-jump-to-group) + (define-key gnus-group-mode-map "v" (lambda () (interactive) (gnus-group-select-group t)))) + + (add-hook 'gnus-group-mode-hook 'sd/gnus-map) #+END_SRC #+BEGIN_SRC emacs-lisp :tangle yes :results silent -- 2.11.0