Add bindings to wrap in brackets, remove mark bindings

Prefer built in 'C-@' and 'C-x C-@/SPC' for mark bindings

diff --git a/re/re-bindings.el b/re/re-bindings.el
index d92708e8463fa9b44142e1dec4a41d7f4d5a3f3f..89ba2776d95f15cac2ed50220677d1af6b5b2cf5 100644 (file)
--- a/re/re-bindings.el
+++ b/re/re-bindings.el
@@ -25,6 +25,9 @@
 (keymap-global-set "<remap> <downcase-word>" #'downcase-dwim) ; M-l
 (keymap-global-set "<remap> <upcase-word>" #'upcase-dwim) ; M-u
 (keymap-global-set "M-'" #'universal-argument) ; C-u used above
+(keymap-global-set "M-[" #'insert-pair) ; wrap region in brackets
+(keymap-global-set "M-<" #'insert-pair) ; wrap region in angle brackets
+(keymap-global-set "M-{" #'insert-pair) ; wrap region in angle brackets
 
 ;; Wayfindiŋ
 (keymap-global-set "<home>" #'beginning-of-buffer)
@@ -41,8 +44,6 @@
 (keymap-set visual-line-mode-map "C-a" #'re/smart-beginning-of-line)
 (keymap-set visual-line-mode-map "C-e" #'re/smart-end-of-line)
 (keymap-global-set "<remap> <goto-line>" #'re/goto-line)
-(keymap-global-set "C-`" #'re/push-mark-no-activate)
-(keymap-global-set "M-`" #'re/jump-to-mark)
 
 ;; Seeking
 (keymap-global-set "M-s ." #'isearch-forward-thing-at-point)