X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=391f3801036602a676dcf54fcdb79e4d646f43e2;hb=40a0fb350e4baa200b6560e07d899a8e462275f8;hp=4bb27f3a8b06aaecec601fd8d72b7d18e726ef6f;hpb=e9f8cf5aebc72e88a52def678753c3e3ff291882;p=dotfiles.git

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 4bb27f3..391f380 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -350,6 +350,8 @@ clean mode line, Refer to [[https://www.masteringemacs.org/article/hiding-replac
       (auto-revert-mode . "")
       ;; default is Ind
       (org-indent-mode . "")
+      ;; default is  Fly
+      (flyspell-mode . "")
       ;; Major modes
       (lisp-interaction-mode . "λ")
       (hi-lock-mode . "")
@@ -565,16 +567,104 @@ Use [[https://github.com/DarwinAwardWinner/ido-ubiquitous][ido-ubiquitous]] for
 
 #+END_SRC
 
-* Key bindings
+* 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
+
+*** 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))
 
-** Remove prefix =ESC=, refer [[http://emacs.stackexchange.com/questions/14755/how-to-remove-bindings-to-the-esc-prefix-key][here]]
+  ;; (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)
+#+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
+
+*** 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=
@@ -633,13 +723,6 @@ 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
@@ -673,6 +756,8 @@ Some global bindings on =Super=, on Mac, it is =Command=
   (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
@@ -806,7 +891,7 @@ use the prefix =M-s= for searching in buffers
   (sd/make-keymap "\M-s"
                   '(("w" . save-buffer)
                     ;; ("\M-w" . save-buffer)
-                    ("W" . revert-buffer)
+                    ("e" . revert-buffer)
                     ("s" . isearch-forward-regexp)
                     ("r" . isearch-backward-regexp)
                     ("." . isearch-forward-symbol-at-point)
@@ -1214,7 +1299,8 @@ and Defined keys, using vi keybindings, Refer abo-abo's setting [[https://github
                        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)
@@ -1609,18 +1695,6 @@ Play Go in Emacs, gnugo xpm refert [[https://github.com/okanotor/dotemacs/blob/f
 
 #+END_SRC
 
-** 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))
-#+END_SRC
-
 ** Tabbar
 
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
@@ -1658,6 +1732,26 @@ Play Go in Emacs, gnugo xpm refert [[https://github.com/okanotor/dotemacs/blob/f
 ** 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
 
 * Programming