working on bindings

bindings.el

@@ -357,6 +357,7 @@
       "C-M-j" #'next-window-any-frame
       "C-M-k" #'previous-window-any-frame
       "C-M-l" #'centaur-tabs-forward
+      "C-^" #'cua-exchange-point-and-mark ; to make this acessible as a meow bind it needed a new base keybind
       "M-x" #'execute-extended-command
       "<home>" #'beginning-of-buffer
       "<end>" #'end-of-buffer

meow.el

@@ -16,7 +16,8 @@
           (meow--select (not isearch-forward)))))))
 
 (setf meow--kbd-forward-char "<right>"
-      meow--kbd-undo "C-z")
+      meow--kbd-undo "C-z"
+      meow--kbd-exchange-point-and-mark "C-^")
 
 (add-hook 'isearch-mode-end-hook 'meow--post-isearch-function)
 
@@ -73,6 +74,7 @@
    '("l" . meow-right)
    '("L" . meow-right-expand)
    '("m" . meow-join)
+   '("M" . meow-pop-or-unpop-to-mark)
    '("n" . meow-search)
    '("o" . meow-block)
    '("O" . meow-to-block)