X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=fb0e3780403107a650e704acd6b03c0d0a40124a;hb=3b1cbb1e77020f84f07811dbd30a8afed2076225;hp=ce7d3bb8bec652078e203dbc3dd5dfe1dcb1f20c;hpb=2a7e1a0e0b1b7a67b32170de542f7df40d7a7bb4;p=dotfiles.git diff --git a/emacs.d/config.org b/emacs.d/config.org index ce7d3bb..fb0e378 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 @@ -1335,11 +1336,13 @@ Refer [[https://github.com/abo-abo/hydra/blob/master/hydra-examples.el][hydra-ex (windmove-down)) "horz" :exit t) ("o" delete-other-windows "one" :exit t) + ("C-o" delete-other-windows "one" :exit t) ("a" ace-window "ace") ("s" ace-swap-window "swap") ("d" ace-delete-window "ace-one" :exit t) ("i" ace-maximize-window "ace-one" :exit t) - ("b" ido-switch-buffer "buf") + ("b" ido-switch-buffer "buf" :exit t) + ("C-b" ido-switch-buffer "buf" :exit t) ;; ("m" headlong-bookmark-jump "bmk") ("q" nil "cancel") ("u" (progn (winner-undo) (setq this-command 'winner-undo)) "undo") @@ -1357,6 +1360,30 @@ Refer [[https://github.com/abo-abo/hydra/blob/master/hydra-examples.el][hydra-ex #+END_SRC +*** hydra misc +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (defhydra sd/hydra-misc () + "Miscellaneous Commands" + ("e" eshell "eshell" :color red :exit t) + ("p" (lambda () + (interactive) + (if (sd/buffer-exist "*Packages*") + (switch-to-buffer "*Packages*") + (package-list-packages))) + "list-package" :color red :exit t) + ("g" magit-status "git-status" :color red :exit t)) +#+END_SRC + +*** hydra launcher +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (defhydra hydra-launcher (:color blue :columns 2) + "Launch" + ("h" man "man") + ("s" eshell "eshell") + ("p" package-list-packages "Package") + ("q" nil "cancel")) +#+END_SRC + ** Line Number Enable linum mode on programming modes @@ -1657,16 +1684,15 @@ In Lisp Mode, =M-o= is defined, but I use this for global hydra window. So here bindings in =lispy-mode-map= after loaded. see [[http://stackoverflow.com/questions/298048/how-to-handle-conflicting-keybindings][here]] #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package lispy :ensure t :init (eval-after-load 'lispy - '(progn - (define-key lispy-mode-map (kbd "M-o") nil))) + `(progn + (define-key lispy-mode-map (kbd "M-o") nil) + (define-key lispy-mode-map (kbd "C-d") nil))) :config (add-hook 'emacs-lisp-mode-hook (lambda () (lispy-mode 1)))) - #+END_SRC *** Perl @@ -1861,3 +1887,127 @@ company mode :ensure t) #+END_SRC +* Gnus +** Gmail setting +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 == with your email address +and == with the password +#+BEGIN_EXAMPLE + machine imap.gmail.com login password port imaps + machine smtp.gmail.com login password port 587 +#+END_EXAMPLE + +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))))) +#+END_SRC + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (setq gnus-fetch-old-headers 't) + + + + (setq gnus-extract-address-components + 'mail-extract-address-components) + ;; summary buffer + (setq gnus-summary-line-format "%U%R%z%I%(%[%-20,20f%]%) %s%-80= %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"))) + + (setq gnus-thread-sort-functions '((not gnus-thread-sort-by-number))) + (setq gnus-unread-mark ?\.) + (setq gnus-use-correct-string-widths t) + + ;; thread + (setq gnus-thread-hide-subtree t) + + + +#+END_SRC + +** Windows layout +See [[https://www.emacswiki.org/emacs/GnusWindowLayout][GnusWindowLayout]] +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (gnus-add-configuration + '(summary + (horizontal 1.0 + (vertical 35 + (group 1.0)) + (vertical 1.0 + (summary 1.0 poine))))) + + (gnus-add-configuration + '(article + (horizontal 1.0 + (vertical 35 + (group 1.0)) + (vertical 1.0 + (summary 0.50 point) + (article 1.0))))) + + ;; (add-hook 'gnus-group-mode-map (lambda () + ;; (gnus-group-select-group "INBOX"))) +#+END_SRC + +* key +- passion +- vision +- mission