From 9d098b3ab71fc005e846e7baf7a574b876d7a44c Mon Sep 17 00:00:00 2001 From: Peng Li Date: Sun, 10 Jul 2016 02:48:35 +0800 Subject: [PATCH] emacs - M-s bindings --- emacs.d/config.org | 46 ++++++++++++++++++++++++++++++++++------------ 1 file changed, 34 insertions(+), 12 deletions(-) diff --git a/emacs.d/config.org b/emacs.d/config.org index aa393a6..f587ecd 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -727,31 +727,53 @@ Some global bindings on =Super=, on Mac, it is =Command= #+END_SRC ** =M-s= bindings for searching - -I use the prefix =M-s= for searching in buffers + use the prefix =M-s= for searching in buffers #+BEGIN_SRC emacs-lisp :tangle yes :results silent - - (defun pl-make-keymap (key bindings) + (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)) - (define-key minibuffer-local-map "\M-s" nil) + (sd/make-keymap "\M-s" + '(("w" . save-buffer) + ("\M-w" . save-buffer) + ("e" . revert-buffer) + ("s" . isearch-forward-regexp) + ("r" . isearch-backward-regexp))) - (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) + ;; (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) - (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) + (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 -- 2.11.0