X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=37b75c5d4ae3c29dd1314a1fef52f396da0fc423;hb=3d3aa028bd5f10501aaa930b91ab3da56f9b9238;hp=e1a6db3e1b987b73b298c2810821d0a9feec34c9;hpb=9f8fedc6632c2e497d009ff5e53728c43cef6205;p=dotfiles.git

diff --git a/emacs.d/config.org b/emacs.d/config.org
index e1a6db3..37b75c5 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -640,7 +640,6 @@ Use =ESC= to exit minibuffer. Also I map =Super-h= the same as =C-g=
 Some global bindings on =Super=, on Mac, it is =Command=
 
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
   (global-set-key (kbd "s-h") 'keyboard-quit)
   (global-set-key (kbd "s-j") 'ido-switch-buffer)
   (global-set-key (kbd "s-k") 'ido-find-file)
@@ -666,6 +665,8 @@ Some global bindings on =Super=, on Mac, it is =Command=
   (global-set-key (kbd "s-n") 'persp-next)
   (global-set-key (kbd "s-p") 'persp-prev)
 
+  (global-set-key (kbd "s-=") 'text-scale-increase)
+  (global-set-key (kbd "s--") 'text-scale-decrease)
 
 
   ;; someothers default mapping on super (command) key
@@ -1885,3 +1886,56 @@ company mode
     :ensure t)
 #+END_SRC
 
+* Gnus
+Refer [[https://www.emacswiki.org/emacs/GnusGmail][GnusGmail]]
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (setq user-mail-address "seudut@gmail.com"
+        user-full-name "Peng Li")
+
+  (setq gnus-select-method
+        '(nnimap "gmail"
+                 (nnimap-address "imap.gmail.com")
+                 (nnimap-server-port "imaps")
+                 (nnimap-stream ssl)))
+
+  (setq smtpmail-smtp-service 587
+        gnus-ignored-newsgroups "^to\\.\\|^[0-9. ]+\\( \\|$\\)\\|^[\"]\"[#'()]")
+
+  ;; Use gmail sending mail
+  (setq message-send-mail-function 'smtpmail-send-it
+        smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))
+        smtpmail-auth-credentials '(("smtp.gmail.com" 587 "seudut@gmail.com" nil))
+        smtpmail-default-smtp-server "smtp.gmail.com"
+        smtpmail-smtp-server "smtp.gmail.com"
+        smtpmail-smtp-service 587
+        starttls-use-gnutls t)
+#+END_SRC
+
+And put the following in =~/.authinfo= file, replacing =<USE>= with your email address
+and =<PASSWORD>= with the password
+#+BEGIN_EXAMPLE
+  machine imap.gmail.com login <USER> password <PASSWORD> port imaps
+  machine smtp.gmail.com login <USER> password <PASSWORD> port 587
+#+END_EXAMPLE
+
+Then Run =M-x gnus=
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (setq gnus-fetch-old-headers 't)
+
+
+
+  (setq gnus-extract-address-components
+        'mail-extract-address-components)
+
+  (setq gnus-summary-line-format "%U%R%z%I%(%[%-20,20f%]%)  %s%-67=   %11&user-date;\n")
+  (setq gnus-user-date-format-alist '(((gnus-seconds-today) . "%H:%M")
+                                      ((+ 86400 (gnus-seconds-today)) . "%a %H:%M")
+                                      (604800 . "%a, %b %-d")
+                                      (15778476 . "%b %-d")
+                                      (t . "%Y-%m-%d")))
+#+END_SRC
+
+* key
+- passion
+- vision
+- mission