From: Peng Li <seudut@gmail.com>
Date: Sat, 9 Jul 2016 07:07:57 +0000 (+0800)
Subject: emacs - gnus group settings
X-Git-Url: http://47.100.26.94:8080/?a=commitdiff_plain;h=7c8d787a91e64c33630f940d0b6113aba206478d;p=dotfiles.git

emacs - gnus group settings
---

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