emacs - add new node text operations
[dotfiles.git] / emacs.d / config.org
index d1eff00..217f64b 100644 (file)
@@ -565,16 +565,26 @@ Use [[https://github.com/DarwinAwardWinner/ido-ubiquitous][ido-ubiquitous]] for
 
 #+END_SRC
 
-* Key bindings
-
-** Remove prefix =ESC=, refer [[http://emacs.stackexchange.com/questions/14755/how-to-remove-bindings-to-the-esc-prefix-key][here]]
-
+* 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))
 
-  ;; (define-key key-translation-map (kbd "ESC") (kbd "C-g"))
-
+  (global-set-key (kbd "s-u") 'undo-tree-visualize)
 #+END_SRC
 
+** Motion
+** Search & highlight
+* Key bindings
+
 ** Esc on Minibuffer
 
 Use =ESC= to exit minibuffer. Also I map =Super-h= the same as =C-g=
@@ -656,18 +666,14 @@ Some global bindings on =Super=, on Mac, it is =Command=
   (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") '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)
 
@@ -677,6 +683,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
@@ -733,7 +741,69 @@ Some global bindings on =Super=, on Mac, it is =Command=
   ;; s-`  -->  other-frame
 #+END_SRC
 
-** =M-s= bindings for searching
+** 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 ()
+      (interactive)
+      (occur-next)
+      (occur-mode-goto-occurrence-other-window)
+      (recenter)
+      (other-window 1)))
+
+  (define-key occur-mode-map (kbd "C-p")
+    (lambda ()
+      (interactive)
+      (occur-prev)
+      (occur-mode-goto-occurrence-other-window)
+      (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)
+
+  (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)
+
+#+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)
@@ -742,47 +812,38 @@ use the prefix =M-s= for searching in buffers
       (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)
+                    ;; ("\M-w" . save-buffer)
+                    ("W" . revert-buffer)
                     ("s" . isearch-forward-regexp)
                     ("r" . isearch-backward-regexp)
-                    ("o" . occur)))
-
-  ;; (define-key isearch-mode-map (kbd "s") 'isearch-repeat-forward)
-  ;; (define-key isearch-mode-map (kbd "r") 'isearch-repeat-forward)
+                    ("." . 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)
 
-  (set-face-background 'ido-first-match "white")
-
-
+  (set-face-background 'ido-first-match "yellow")
 
-  ;; (global-unset-key (kbd "M-s"))
-  ;; (global-set-key (kbd "M-s") 'sd/search-buffer)
-
-  ;; 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-s M-w              eww-search-words
 
   ;; M-c
   ;; M-r
@@ -790,30 +851,6 @@ use the prefix =M-s= for searching in buffers
   ;; M-u, 
 #+END_SRC
 
-Occur search key bindings
-
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  (add-hook 'occur-hook (lambda () (switch-to-buffer-other-window "*Occur*")))
-  ;; auto select occur window
-
-  (define-key occur-mode-map (kbd "C-n")
-    (lambda ()
-      (interactive)
-      (occur-next)
-      (occur-mode-goto-occurrence-other-window)
-      (recenter)
-      (other-window 1)))
-
-  (define-key occur-mode-map (kbd "C-p")
-    (lambda ()
-      (interactive)
-      (occur-prev)
-      (occur-mode-goto-occurrence-other-window)
-      (recenter)
-      (other-window 1)))
-#+END_SRC
-
-
 ** =M-o= as prefix key for windows
 
 ** =M-g= as prefix key for launcher
@@ -1584,47 +1621,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
-
-** 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
@@ -2021,8 +2017,3 @@ See [[https://www.emacswiki.org/emacs/GnusWindowLayout][GnusWindowLayout]]
 - passion
 - vision
 - mission
-
-
-
-
-