Set the emacs load path
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
- (add-to-list 'load-path "~/.emacs.d/elisp")
-
+ ;; (add-to-list 'load-path "~/.emacs.d/elisp")
#+END_SRC
** Package Initialization
#+END_SRC
-** General Setting
+** Window Setting
Disable scroll bar, tool-bar and menu-bar
(tool-bar-mode 0)
(menu-bar-mode 1)
- (setq debug-on-error t)
+ ;; (setq debug-on-error t)
(setq inhibit-startup-message t)
(defalias 'yes-or-no-p 'y-or-n-p)
; (global-set-key (kbd "C-.") 'scoll-right)
#+END_SRC
+Set default window size
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (setq initial-frame-alist
+ '((width . 120)
+ (height . 50)))
+#+END_SRC
+
+Stop auto save
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (setq auto-save-default nil)
+
+ ;; restore last session
+ (desktop-save-mode t)
+#+END_SRC
+
* Package Management Tools
** Use-package
(auto-revert-mode . "")
;; default is Ind
(org-indent-mode . "")
+ ;; default is Fly
+ (flyspell-mode . "")
;; Major modes
(lisp-interaction-mode . "λ")
(hi-lock-mode . "")
#+END_SRC
** IDO-vertically
-
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
(use-package ido-vertical-mode
:ensure t
:init
(setq ido-vertical-define-keys 'C-n-C-p-up-and-down)
:config
(ido-vertical-mode 1))
-
#+END_SRC
** SMEX
#+END_SRC
** Ido-exit-target
-
[[https://github.com/waymondo/ido-exit-target][ido-exit-target]] let you open file/buffer on =other-windows= when call =ido-switch-buffer=
-
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
(use-package ido-exit-target
:ensure t
:init
- (define-key ido-common-completion-map (kbd "C-j") #'ido-exit-target-split-window-right)
- (define-key ido-common-completion-map (kbd "C-l") #'ido-exit-target-split-window-below))
+ (mapcar (lambda (map)
+ (define-key map (kbd "C-j") #'ido-exit-target-split-window-right)
+ (define-key map (kbd "C-k") #'ido-exit-target-split-window-below))
+ (list ido-buffer-completion-map
+ ;; ido-common-completion-map
+ ido-file-completion-map
+ ido-file-dir-completion-map)))
+#+END_SRC
+
+* Normal Text Operation
+** Edit
+*** undo-tree
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (use-package undo-tree
+ :ensure t
+ :config
+ (define-key undo-tree-visualizer-mode-map "j" 'undo-tree-visualize-redo)
+ (define-key undo-tree-visualizer-mode-map "k" 'undo-tree-visualize-undo)
+ (define-key undo-tree-visualizer-mode-map "h" 'undo-tree-visualize-switch-branch-left)
+ (define-key undo-tree-visualizer-mode-map "l" 'undo-tree-visualize-switch-branch-right)
+ (global-undo-tree-mode 1))
+ (global-set-key (kbd "s-u") 'undo-tree-visualize)
#+END_SRC
-* Key bindings
+*** flyspell
+Stolen from [[https://github.com/redguardtoo/emacs.d/blob/master/lisp/init-spelling.el][here]], hunspell will search dictionary in =DICPATH=
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (setenv "DICPATH" "/usr/local/share/hunspell")
+
+ (when (executable-find "hunspell")
+ (setq-default ispell-program-name "hunspell")
+ (setq ispell-really-hunspell t))
+
+ ;; (defun text-mode-hook-setup ()
+ ;; ;; Turn off RUN-TOGETHER option when spell check text-mode
+ ;; (setq-local ispell-extra-args (flyspell-detect-ispell-args)))
+ ;; (add-hook 'text-mode-hook 'text-mode-hook-setup)
+ (add-hook 'text-mode-hook 'flyspell-mode)
+
+ ;; enable flyspell check on comments and strings in progmamming modes
+ (add-hook 'prog-mode-hook 'flyspell-prog-mode)
+
+ ;; I don't use the default mappings
+ (with-eval-after-load 'flyspell
+ (define-key flyspell-mode-map (kbd "C-;") nil)
+ (define-key flyspell-mode-map (kbd "C-,") nil)
+ (define-key flyspell-mode-map (kbd "C-.") nil))
+#+END_SRC
+
+Make flyspell enabled for org-mode, see [[http://emacs.stackexchange.com/questions/9333/how-does-one-use-flyspell-in-org-buffers-without-flyspell-triggering-on-tangled][here]]
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ ;; NO spell check for embedded snippets
+ (defadvice org-mode-flyspell-verify (after org-mode-flyspell-verify-hack activate)
+ (let ((rlt ad-return-value)
+ (begin-regexp "^[ \t]*#\\+begin_\\(src\\|html\\|latex\\)")
+ (end-regexp "^[ \t]*#\\+end_\\(src\\|html\\|latex\\)")
+ old-flag
+ b e)
+ (when ad-return-value
+ (save-excursion
+ (setq old-flag case-fold-search)
+ (setq case-fold-search t)
+ (setq b (re-search-backward begin-regexp nil t))
+ (if b (setq e (re-search-forward end-regexp nil t)))
+ (setq case-fold-search old-flag))
+ (if (and b e (< (point) e)) (setq rlt nil)))
+ (setq ad-return-value rlt)))
+#+END_SRC
-** Remove prefix =ESC=, refer [[http://emacs.stackexchange.com/questions/14755/how-to-remove-bindings-to-the-esc-prefix-key][here]]
+*** Expand-region
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (use-package expand-region
+ :ensure t
+ :config
+ (global-set-key (kbd "C-=") 'er/expand-region))
+#+END_SRC
+** Motion
+*** Avy
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (use-package avy
+ :ensure t
+ :config
+ (avy-setup-default))
+#+END_SRC
+
+*** =M-g= prefix
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (global-set-key (kbd "M-g j") 'avy-goto-line-below)
+ (global-set-key (kbd "M-g k") 'avy-goto-line-above)
+ (global-set-key (kbd "M-g w") 'avy-goto-word-1-below)
+ (global-set-key (kbd "M-g b") 'avy-goto-word-1-above)
+ (global-set-key (kbd "M-g e") 'avy-goto-word-0)
+ (global-set-key (kbd "M-g f") 'avy-goto-char-timer)
+ (global-set-key (kbd "M-g c") 'avy-goto-char-in-line)
- ;; (define-key key-translation-map (kbd "ESC") (kbd "C-g"))
+ ;; M-g TAB move-to-column
+ ;; M-g ESC Prefix Command
+ ;; M-g c goto-char
+ ;; M-g g goto-line
+ ;; M-g n next-error
+ ;; M-g p previous-error
+ ;; M-g M-g goto-line
+ ;; M-g M-n next-error
+ ;; M-g M-p previous-error
#+END_SRC
+
+** Search & highlight
+* Key bindings
+
** Esc on Minibuffer
Use =ESC= to exit minibuffer. Also I map =Super-h= the same as =C-g=
;; C-7
;; C-Space
-
-
-
-
-
-
-
#+END_SRC
** =Super= bindings for file, buffer and windows
Some global bindings on =Super=, on Mac, it is =Command=
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (defun sd/delete-current-window ()
+ (interactive)
+ (if (> (length (window-list)) 1)
+ (delete-window)
+ (message "Only one Windows now!")))
+
(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)
- ;; s-k --> kill-this-buffer
- (global-set-key (kbd "s-l") (lambda ()
- (interactive)
- (if (> (length (window-list)) 1)
- (delete-window)
- (message "Only one Windows now!"))))
+ (global-set-key (kbd "s-l") 'sd/delete-current-window)
;; s-l --> goto-line
- (global-set-key (kbd "s-;") 'swiper)
+ ;; (global-set-key (kbd "s-/") 'swiper)
;; s-; -->
;; s-' --> 'next-multiframe-window
(global-set-key (kbd "<s-return>") 'toggle-frame-fullscreen)
- ;; (global-set-key (kbd "s-y") 'projectile-find-file)
(global-set-key (kbd "s-f") 'projectile-find-file)
- ;; (global-set-key (kbd "s-[") 'persp-next)
- ;; (global-set-key (kbd "s-]") 'persp-prev)
(global-set-key (kbd "s-`") 'mode-line-other-buffer)
(global-set-key (kbd "s-=") 'text-scale-increase)
(global-set-key (kbd "s--") 'text-scale-decrease)
+ ;; (global-set-key (kbd "s-u") 'undo-tree-visualize)
+
;; someothers default mapping on super (command) key
;; s-s save-buffer
;; s-` --> other-frame
#+END_SRC
-** =M-s= bindings for searching
-
-I use the prefix =M-s= for searching in buffers
-
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
- (defun pl-make-keymap (key bindings)
- (setq keymap (make-sparse-keymap))
- (dolist (binding bindings)
- (define-key keymap (car binding) (cdr binding)))
- (global-set-key key keymap))
-
- (define-key minibuffer-local-map "\M-s" nil)
-
- (global-set-key (kbd "M-s s") 'isearch-forward-regexp)
- (define-key isearch-mode-map "\M-s" 'isearch-repeat-forward)
- (global-set-key (kbd "M-s r") 'isearch-backward-regexp)
- (define-key isearch-mode-map "\M-r" 'isearch-repeat-backward)
-
- (global-set-key (kbd "s-/") 'isearch-forward-regexp)
- (define-key isearch-mode-map (kbd "s-/") 'isearch-repeat-forward)
- (define-key isearch-mode-map (kbd "C-n") 'isearch-repeat-forward)
-
-
- (set-face-background 'ido-first-match "white")
-
- ;; M-s o --> occur
- ;; M-s s --> isearch-forward-regexp
- ;; M-s r --> isearch-backward-regexp
- ;; M-s w --> isearch-forward-word
- ;; M-s . --> isearch-forward-symbol-at-point
- ;; M-s _ --> isearch-forward-symbol
-
- ;; highlight bindings
- ;; M-s h . --> highlight-symbol-at-point
- ;; M-s h r --> highlight-regexp
- ;; M-s h u --> unhighlight-regexp
- ;; M-s h l --> highlight-lines-match-regexp
- ;; M-s h p --> highlight-phrase
- ;; M-s h f --> hi-lock-find-patterns
-
- ;;
- ;; (global-set-key (kbd "M-s M-r") 'isearch-backward-regexp)
- ;;
-
- ;; M-c
- ;; M-r
- ;; M-t
- ;; M-u,
-#+END_SRC
-
+** Search Replace and highlight
+*** Occur
Occur search key bindings
-
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (add-hook 'occur-hook (lambda ()
+ (switch-to-buffer-other-window "*Occur*")
+ (define-key occur-mode-map (kbd "C-o") nil)))
+ ;; auto select occur window
(define-key occur-mode-map (kbd "C-n")
(lambda ()
(recenter)
(other-window 1)))
+ (use-package color-moccur
+ :ensure t
+ :commands (isearch-moccur isearch-all)
+ :init
+ (setq isearch-lazy-highlight t)
+ :config
+ (use-package moccur-edit))
#+END_SRC
+*** swiper
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (use-package swiper
+ :ensure t)
-** =M-o= as prefix key for windows
-
-** =M-g= as prefix key for launcher
+ (ivy-mode 1)
+ (setq ivy-use-virtual-buffers t)
+ (global-set-key (kbd "s-/") 'swiper)
+ ;;*
+ ;; (global-set-key "\C-s" 'swiper)
+ ;; (global-set-key (kbd "C-c C-r") 'ivy-resume)
+ ;; (global-set-key (kbd "<f6>") 'ivy-resume)
+ ;; ;; (global-set-key (kbd "M-x") 'counsel-M-x)
+ ;; ;; (global-set-key (kbd "C-x C-f") 'counsel-find-file)
+ ;; (global-set-key (kbd "<f1> f") 'counsel-describe-function)
+ ;; (global-set-key (kbd "<f1> v") 'counsel-describe-variable)
+ ;; (global-set-key (kbd "<f1> l") 'counsel-load-library)
+ ;; (global-set-key (kbd "<f2> i") 'counsel-info-lookup-symbol)
+ ;; (global-set-key (kbd "<f2> u") 'counsel-unicode-char)
+ ;; (global-set-key (kbd "C-c g") 'counsel-git)
+ ;; (global-set-key (kbd "C-c j") 'counsel-git-grep)
+ ;; (global-set-key (kbd "C-c k") 'counsel-ag)
+ ;; (global-set-key (kbd "C-x l") 'counsel-locate)
+ ;; (global-set-key (kbd "C-S-o") 'counsel-rhythmbox)
+ ;; ;; (define-key read-expression-map (kbd "C-r") 'counsel-expression-history)
-** others
+#+END_SRC
+*** =M-s= prefix
+use the prefix =M-s= for searching in buffers
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (defun sd/make-keymap (key bindings)
+ (setq keymap (make-sparse-keymap))
+ (dolist (binding bindings)
+ (define-key keymap (car binding) (cdr binding)))
+ (global-set-key key keymap))
+
+ (use-package highlight-symbol
+ :ensure t)
+ (sd/make-keymap "\M-s"
+ '(("w" . save-buffer)
+ ;; ("\M-w" . save-buffer)
+ ("e" . revert-buffer)
+ ("s" . isearch-forward-regexp)
+ ("r" . isearch-backward-regexp)
+ ("." . isearch-forward-symbol-at-point)
+ ("o" . occur)
+ ;; ("h" . highlight-symbol-at-point)
+ ("h" . highlight-symbol)
+ ("m" . highlight-regexp)
+ ("l" . highlight-lines-matching-regexp)
+ ("M" . unhighlight-regexp)
+ ("f" . keyboard-quit)
+ ("q" . keyboard-quit)))
+
+ ;; search and replace and highlight
+ (define-key isearch-mode-map (kbd "M-s") 'isearch-repeat-forward)
+ (define-key isearch-mode-map (kbd "M-r") 'isearch-repeat-backward)
+ (global-set-key (kbd "s-[") 'highlight-symbol-next)
+ (global-set-key (kbd "s-]") 'highlight-symbol-prev)
+ (global-set-key (kbd "s-\\") 'highlight-symbol-query-replace)
+
+
+ (define-key minibuffer-local-map "\M-s" nil)
- ;; C-' undefined
- ;; C-. undefined
+ (set-face-background 'ido-first-match "yellow")
+
+ ;; M-s M-w eww-search-words
+
+ ;; M-c
+ ;; M-r
+ ;; M-t
+ ;; M-u,
#+END_SRC
+** =M-o= as prefix key for windows
+
+** =M-g= as prefix key for launcher
+
* Org-mode Settings
** Org-mode Basic setting
Always indents header, and hide header leading starts so that no need type =#+STATUP: indent=
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
(use-package org
:ensure t
:init
;; use current window for org source buffer editting
(setq org-src-window-setup 'current-window )
+ (define-key org-mode-map (kbd "C-'") nil)
#+END_SRC
** Org-bullets
(org-bullets-mode t))))
(setq org-bullets-bullet-list '("⦿" "✪" "◉" "○" "►" "◆"))
+
+ ;; increase font size when enter org-src-mode
+ (add-hook 'org-src-mode-hook (lambda () (text-scale-increase 2)))
#+END_SRC
** Worf Mode
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(use-package magit
:ensure t
+ :init
+ ;; don't ask me to confirm the unsaved change
+ (setq magit-save-repository-buffers nil)
:commands magit-status magit-blame
:config
(dolist (map (list magit-status-mode-map
magit-staged-section-map))
(define-key map "j" 'magit-section-forward)
(define-key map "k" 'magit-section-backward)
- (define-key map "D" 'magit-discard-file)
+ (define-key map "D" 'magit-discard)
+ (define-key map "O" 'magit-discard-file)
(define-key map "n" nil)
(define-key map "p" nil)
(define-key map "v" 'recenter-top-bottom)
#+END_SRC
*** Font Zoom
-
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (defhydra sd/font-zoom (global-map "<f2>")
-
+ (defhydra sd/font-zoom (global-map "<f2>")
"zoom"
("g" text-scale-increase "in")
("l" text-scale-decrease "out"))
#+END_SRC
*** hydra-window
-
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(winner-mode 1)
(windmove-down))
"horz" :exit t)
("o" delete-other-windows "one" :exit t)
+ ("C-o" ido-switch-buffer "buf" :exit t)
+ ("C-k" sd/delete-current-window "del" :exit t)
+ ("'" other-window "other" :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")
(global-unset-key (kbd "C-o"))
(global-set-key (kbd "C-o") 'sd/hydra-window/body)
-
- (defun triggle-windows-max-size ()
- (interactive)
- (if (> (length (window-list)) 1)
- (delete-other-windows)
- (winner-undo)))
-
#+END_SRC
*** hydra misc
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (defhydra sd/hydra-misc ()
+ (defhydra sd/hydra-misc (:color red :columns nil)
"Miscellaneous Commands"
- ("e" eshell "eshell" :color red :exit t)
+ ("e" eshell "eshell" :exit t)
("p" (lambda ()
(interactive)
- (if (sd/buffer-exist "*Packages*")
+ (if (not (eq nil (get-buffer "*Packages*")))
(switch-to-buffer "*Packages*")
(package-list-packages)))
- "list-package" :color red :exit t)
- ("g" magit-status "git-status" :color red :exit t))
+ "list-package" :exit t)
+ ("g" magit-status "git-status" :exit t)
+ ("'" mode-line-other-buffer "last buffer" :exit t)
+ ("C-'" mode-line-other-buffer "last buffer" :exit t)
+ ("m" man "man" :exit t)
+ ("d" dired-jump "dired" :exit t)
+ ("b" ibuffer "ibuffer" :exit t)
+ ("q" nil "quit")
+ ("f" nil "quit"))
+
+ (global-set-key (kbd "C-'") 'sd/hydra-misc/body)
#+END_SRC
*** hydra launcher
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (defhydra hydra-launcher (:color blue :columns 2)
+ (defhydra sd/hydra-launcher (:color blue :columns 2)
"Launch"
- ("h" man "man")
- ("s" eshell "eshell")
- ("p" package-list-packages "Package")
+ ("e" emms "emms" :exit t)
("q" nil "cancel"))
#+END_SRC
#+END_SRC
-** undo-tree
-
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
- (use-package undo-tree
- :ensure t
- :config
- (global-undo-tree-mode 1))
-
-#+END_SRC
-
-** swiper
-
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
- (use-package swiper
- :ensure t)
-
-
- (ivy-mode 1)
- (setq ivy-use-virtual-buffers t)
- ;; (global-set-key "\C-s" 'swiper)
- ;; (global-set-key (kbd "C-c C-r") 'ivy-resume)
- ;; (global-set-key (kbd "<f6>") 'ivy-resume)
- ;; ;; (global-set-key (kbd "M-x") 'counsel-M-x)
- ;; ;; (global-set-key (kbd "C-x C-f") 'counsel-find-file)
- ;; (global-set-key (kbd "<f1> f") 'counsel-describe-function)
- ;; (global-set-key (kbd "<f1> v") 'counsel-describe-variable)
- ;; (global-set-key (kbd "<f1> l") 'counsel-load-library)
- ;; (global-set-key (kbd "<f2> i") 'counsel-info-lookup-symbol)
- ;; (global-set-key (kbd "<f2> u") 'counsel-unicode-char)
- ;; (global-set-key (kbd "C-c g") 'counsel-git)
- ;; (global-set-key (kbd "C-c j") 'counsel-git-grep)
- ;; (global-set-key (kbd "C-c k") 'counsel-ag)
- ;; (global-set-key (kbd "C-x l") 'counsel-locate)
- ;; (global-set-key (kbd "C-S-o") 'counsel-rhythmbox)
- ;; ;; (define-key read-expression-map (kbd "C-r") 'counsel-expression-history)
-
-#+END_SRC
-
** Tabbar
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
#+END_SRC
-** dired
-=C-o= is defined as a global key for window operation, here unset it in dired mode
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (add-hook 'dired-mode-hook (lambda ()
- (local-unset-key (kbd "C-o"))
- (local-set-key (kbd "o") 'dired-display-file)))
-#+END_SRC
-
** Info plus
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(el-get-bundle info+
** TODO bookmark
** TODO Calendar
+** advice info
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (defun sd/info-mode ()
+ (interactive)
+ (unless (equal major-mode 'Info-mode)
+ (unless (> (length (window-list)) 1)
+ (split-window-right))
+ (other-window 1)
+ ;; (info)
+ ))
+
+ ;; (global-set-key (kbd "C-h i") 'sd/info-mode)
+
+ ;; open Info buffer in other window instead of current window
+ (defadvice info (before my-info (&optional file buf) activate)
+ (sd/info-mode))
+
+ (defadvice Info-exit (after my-info-exit activate)
+ (sd/delete-current-window))
+#+END_SRC
+
+** TODO Man mode
+Color for Man-mode
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ ;; (add-hook 'Man-mode-hook (lambda ()
+ ;; (interactive)
+ ;; (setenv "GROFF_NO_SRG")))
+#+END_SRC
+
+** TODO swiper to occur
+
+** TODO UTF8
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ ;; (set-language-environment "UTF-8")
+ ;; (set-default-coding-systems 'utf-8)
+#+END_SRC
+
+** Demo It
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ ;; (el-get-bundle howardabrams/demo-it)
+
+ (use-package org-tree-slide
+ :ensure t)
+
+ ;; (use-package yasnippet
+ ;; :ensure t)
+#+END_SRC
+
+** Presentation
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (use-package org-tree-slide
+ :ensure
+ :config
+ ;; (define-key org-mode-map "\C-ccp" 'org-tree-slide-mode)
+ (define-key org-tree-slide-mode-map (kbd "<ESC>") 'org-tree-slide-content)
+ (define-key org-tree-slide-mode-map (kbd "<SPACE>") 'org-tree-slide-move-next-tree)
+ (define-key org-tree-slide-mode-map [escape] 'org-tree-slide-move-previous-tree))
+#+END_SRC
+
+* dired
+=C-o= is defined as a global key for window operation, here unset it in dired mode
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (use-package dired
+ :config
+ (require 'dired-x)
+ (setq dired-omit-mode t)
+ (setq dired-omit-files (concat dired-omit-files "\\|^\\..+$"))
+ (add-hook 'dired-mode-hook (lambda ()
+ (define-key dired-mode-map (kbd "C-o") nil)
+ (define-key dired-mode-map (kbd "H") 'dired-omit-mode)
+ (define-key dired-mode-map (kbd "DEL") (lambda () (interactive) (find-alternate-file "..")))
+ (dired-omit-mode))))
+#+END_SRC
+
+Dired+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (use-package dired+
+ :ensure t
+ :init
+ (setq diredp-hide-details-initially-flag nil)
+ :config
+ (define-key dired-mode-map (kbd "j") 'diredp-next-line)
+ (define-key dired-mode-map (kbd "k") 'diredp-previous-line)
+ (define-key dired-mode-map (kbd "g") 'dired-goto-file))
+#+END_SRC
* Programming
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
+ (eval-after-load "lispy"
+ `(progn
(define-key lispy-mode-map (kbd "M-o") nil)))
:config
(add-hook 'emacs-lisp-mode-hook (lambda () (lispy-mode 1))))
-
#+END_SRC
*** Perl
#+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"
(use-package gnus
:init
(setq gnus-permanently-visible-groups "\.*")
- :defer t
- :commands gnus
:config
(cond (window-system
(setq custom-background-mode 'light)
(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)
+ ;; 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-extract-address-components
'mail-extract-address-components)
-
- (setq gnus-summary-line-format "%U%R%z%I%(%[%-20,20f%]%) %s%-67= %11&user-date;\n")
+ ;; 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)
+
+ ;; (with-eval-after-load 'gnus-summary-mode
+ ;; (define-key gnus-summary-mode-map (kbd "C-o") 'sd/hydra-window/body))
+
+ (add-hook 'gnus-summary-mode-hook (lambda ()
+ (define-key gnus-summary-mode-map (kbd "C-o") nil)))
+
+
+#+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)))))
+
+ (with-eval-after-load 'gnus-group-mode
+ (gnus-group-select-group "INBOX"))
+ ;; (add-hook 'gnus-group-mode-map (lambda ()
+ ;; (gnus-group-select-group "INBOX")))
+#+END_SRC
+
+* Blog
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
#+END_SRC
* key