From 06e1660015051599b192f89faadc35b4e754f8e2 Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Thu, 23 Aug 2018 16:19:15 -0400 Subject: [PATCH] [emacs] use the standard C-c as my prefix, instead of M-m at least for now --- init.org | 71 +++++++++++++++++++++----------------------------------- 1 file changed, 27 insertions(+), 44 deletions(-) diff --git a/init.org b/init.org index b6d853c..da741f1 100644 --- a/init.org +++ b/init.org @@ -235,16 +235,12 @@ can then be managed with the help of Magit or other tools. (borg-initialize) (with-eval-after-load 'bind-key - ; unbind M-m for use as a personal prefix - (unbind-key "M-m" global-map) - (bind-key "M-m M-m" 'back-to-indentation) - ; add some bindings for Borg (bind-keys :package borg - ("M-m B A" . borg-activate) - ("M-m B a" . borg-assimilate) - ("M-m B b" . borg-build) - ("M-m B c" . borg-clone))) + ("C-c B A" . borg-activate) + ("C-c B a" . borg-assimilate) + ("C-c B b" . borg-build) + ("C-c B c" . borg-clone))) #+end_src *** =use-package= @@ -282,10 +278,10 @@ database, low-level functions for querying the database, and a (use-package epkg :defer t :bind - (("M-m B d" . epkg-describe-package) - ("M-m B p" . epkg-list-packages) - ("M-m B r" . borg-remove) - ("M-m B u" . epkg-update))) + (("C-c B d" . epkg-describe-package) + ("C-c B p" . epkg-list-packages) + ("C-c B r" . borg-remove) + ("C-c B u" . epkg-update))) #+end_src ** No littering in =~/.emacs.d= @@ -610,27 +606,14 @@ Enable =winner-mode=. ** Bindings -#+begin_src emacs-lisp :tangle no +#+begin_src emacs-lisp (bind-keys - ; buffers - ("M-m b b" . ibuffer-list-buffers) - ("M-m b k" . kill-this-buffer) - ("M-m b s" . save-buffer) - - ; help - ("M-m h c" . describe-char) - ("M-m h f" . describe-function) - ("M-m h F" . describe-face) - ("M-m h i" . info) - ("M-m h k" . describe-key) - ("M-m h l" . view-lossage) - ("M-m h m" . describe-mode) - ("M-m h v" . describe-variable) - - ("M-m o" . other-window) - ("M-m w o" . other-window) - - ("M-m q q" . save-buffers-kill-terminal)) + ("C-c b B" . ibuffer-list-buffers) + ("C-c b k" . kill-this-buffer) + ("C-c b s" . save-buffer) + ("C-c S" . save-buffer) + ("C-c o" . other-window) + ("C-c q q" . save-buffers-kill-terminal)) #+end_src ** Packages @@ -694,7 +677,7 @@ Not just how I do git, but /the/ way to do git. (("s-g" . magit-dispatch-popup) ("C-x g" . magit-status) :prefix-map amin--magit-prefix-map - :prefix "M-m g" + :prefix "C-c g" ("SPC" . magit-status) ("s" . magit-status) ("S" . magit-status-prefix) @@ -703,6 +686,7 @@ Not just how I do git, but /the/ way to do git. ("f" . magit-fetch) ("F" . magit-pull) ("P" . magit-push) + ("p" . magit-dispatch-popup) ("c c" . magit-commit) ("c a" . magit-commit-amend) ("b b" . magit-checkout) @@ -729,7 +713,7 @@ There's no way I could top that, so I won't attempt to. (use-package ivy :defer 1 :bind - (("M-m ," . ivy-switch-buffer) + (("C-c b b" . ivy-switch-buffer) :map ivy-minibuffer-map ([escape] . keyboard-escape-quit) ([S-up] . ivy-previous-history-element) @@ -756,9 +740,9 @@ There's no way I could top that, so I won't attempt to. :bind (([remap execute-extended-command] . counsel-M-x) ([remap find-file] . counsel-find-file) ("s-r" . counsel-recentf) - ("M-m SPC" . counsel-M-x) - ("M-m ." . counsel-find-file) - ("M-m f r" . counsel-recentf) + ("C-c x" . counsel-M-x) + ("C-c f ." . counsel-find-file) + ("C-c f r" . counsel-recentf) :map minibuffer-local-map ("C-r" . counsel-minibuffer-history)) :config @@ -1132,10 +1116,10 @@ Emacs package that displays available keybindings in popup (use-package crux :bind (("C-c d" . crux-duplicate-current-line-or-region) ("C-c M-d" . crux-duplicate-and-comment-current-line-or-region) - ("M-m b K" . crux-kill-other-buffers) - ("M-m f c" . crux-copy-file-preserve-attributes) - ("M-m f D" . crux-delete-file-and-buffer) - ("M-m f R" . crux-rename-file-and-buffer))) + ("C-c b K" . crux-kill-other-buffers) + ("C-c f c" . crux-copy-file-preserve-attributes) + ("C-c f D" . crux-delete-file-and-buffer) + ("C-c f R" . crux-rename-file-and-buffer))) #+end_src ** [[https://github.com/alezost/mwim.el][mwim]] @@ -1201,8 +1185,7 @@ See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]]. (use-package notmuch :commands notmuch - :bind (("C-c m" . amin/notmuch) - ("M-m m" . amin/notmuch)) + :bind ("C-c m" . amin/notmuch) :config (setq notmuch-hello-sections '(notmuch-hello-insert-header @@ -1281,7 +1264,7 @@ See [[notmuch:id:87muuqsvci.fsf@fencepost.gnu.org][bug follow-up]]. ) (use-package counsel-notmuch - :bind ("M-m / m" . counsel-notmuch)) + :bind ("C-c s m" . counsel-notmuch)) (after! notmuch-crypto (setq notmuch-crypto-process-mime t)) -- 2.20.1