-** =M-s= bindings for searching
- 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))
-
- (sd/make-keymap "\M-s"
- '(("w" . save-buffer)
- ("\M-w" . save-buffer)
- ("e" . revert-buffer)
- ("s" . isearch-forward-regexp)
- ("r" . isearch-backward-regexp)))
-
- ;; (define-key isearch-mode-map (kbd "s") 'isearch-repeat-forward)
- ;; (define-key isearch-mode-map (kbd "r") 'isearch-repeat-forward)
- (define-key isearch-mode-map (kbd "M-s") 'isearch-repeat-forward)
- (define-key isearch-mode-map (kbd "M-r") 'isearch-repeat-backward)
-
-
-
- (define-key minibuffer-local-map "\M-s" nil)
-
- (set-face-background 'ido-first-match "white")
-
- (defhydra sd/search-buffer (:color red :columns nil)
- "M-s"
- ("w" save-buffer "save" :exit)
- ("s" isearch-forward-regrexp "search-forward" :exit)
- ("r" isearch-backward-regrexp "search-backward" :exit)
- ("s" save-buffer "save" :exit)
- ("s" save-buffer "save" :exit)
- ("s" save-buffer "save" :exit)
- ("s" save-buffer "save" :exit)
- ("s" save-buffer "save" :exit)
- ("s" save-buffer "save" :exit)
- ("s" save-buffer "save" :exit)
- ("s" save-buffer "save" :exit)
- ("q" nil "quil")
- ("f" nil))
-
-
- ;; (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-c
- ;; M-r
- ;; M-t
- ;; M-u,
-#+END_SRC
-