From c61cd65419d3e3eedd1d147495a68edc680ecc85 Mon Sep 17 00:00:00 2001 From: Peng Li Date: Sun, 19 Feb 2017 01:35:49 +0800 Subject: [PATCH] emacs - disable gnus --- emacs.d/config.org | 62 +++++++++++++++++++++++++++--------------------------- 1 file changed, 31 insertions(+), 31 deletions(-) diff --git a/emacs.d/config.org b/emacs.d/config.org index 7d3b154..25136a4 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -2605,37 +2605,37 @@ Then Run =M-x gnus= ** Group buffer #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package gnus - :init - (setq gnus-permanently-visible-groups "\.*") - :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- - (add-hook 'gnus-group-mode-hook (lambda () - (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))))) + ;; (use-package gnus + ;; :init + ;; (setq gnus-permanently-visible-groups "\.*") + ;; :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- + ;; (add-hook 'gnus-group-mode-hook (lambda () + ;; (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))))) #+END_SRC #+BEGIN_SRC emacs-lisp :tangle yes :results silent -- 2.11.0