diff --git a/common/_global.el b/common/_global.el index e970bd2..7f92275 100644 --- a/common/_global.el +++ b/common/_global.el @@ -146,6 +146,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Setup global keys (cua-mode 1) +(global-set-key (kbd "C-g") 'goto-line) (global-set-key (kbd "") 'keyboard-escape-quit) (global-set-key (kbd "C-c m") 'menu-bar-open) (global-set-key (kbd "C-c .") 'rotate-frame-clockwise) @@ -165,6 +166,26 @@ ;; for this in lisp modes. (global-set-key (kbd "C-c C-d") #'helpful-at-point) +; more vscode/gui styled find/replace +(defun query-replace-region-or-from-top () + "If marked, query-replace for the region, else for the whole buffer (start from the top)" + (interactive) + (progn + (let ((orig-point (point))) + (if (use-region-p) + (call-interactively 'query-replace) + (save-excursion + (goto-char (point-min)) + (call-interactively 'query-replace))) + (message "Back to old point.") + (goto-char orig-point)))) +(bind-key* "M-%" 'query-replace-region-or-from-top) +(global-set-key (kbd "C-h") 'query-replace-region-or-from-top) + +; more vscode/gui styled find/replace +(global-set-key (kbd "C-s") 'isearch-forward) +(global-set-key (kbd "C-f") 'isearch-forward) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; Set some global config (setq inhibit-splash-screen t) ; why do you need to tell me things i know by default