[emacs] more binding customizations

1 files changed, 27 insertions, 7 deletions

diff --git a/init.org b/init.org
index 9457e5f..b6fe1b8 100644
--- a/init.org
+++ b/init.org
@@ -649,10 +649,6 @@ Enable =winner-mode=.
 
 #+begin_src emacs-lisp
 (bind-keys
- ("C-c F m" . make-frame-command)
- ("C-c F d" . delete-frame)
- ("C-c F D" . delete-other-frames)
-
  ("s-c e b" . eval-buffer)
  ("s-c e r" . eval-region)
 
@@ -727,7 +723,15 @@ customizing it.
 
   ;; fix tab and indentation in src blocks inside org-mode buffer
   ;; also see https://git.sr.ht/~bandali/dotfiles/commit/0e2ffd584aafdd4cf256bcdf2473f01c3aaaed55
-  (unbind-key "TAB" evil-motion-state-map))
+  (unbind-key "TAB" evil-motion-state-map)
+
+  (unbind-key "C-d" evil-insert-state-map)
+  (unbind-key "C-v" evil-insert-state-map)
+  (unbind-key "C-y" evil-insert-state-map)
+  (unbind-key "C-a" evil-insert-state-map)
+  (unbind-key "C-e" evil-insert-state-map)
+  (unbind-key "C-p" evil-insert-state-map)
+  (unbind-key "C-n" evil-insert-state-map))
 #+end_src
 
 #+begin_src emacs-lisp
@@ -755,8 +759,19 @@ customizing it.
   "b k" 'kill-this-buffer
   "b s" 'save-buffer
 
+  "e"   '(:ignore t :wk "eval")
+  "e b" 'eval-buffer
+  "e r" 'eval-region
+
+  "e e" 'shell-pop
+
   "f"   '(:ignore t :wk "files")
 
+  "F"   '(:ignore t :wk "frames")
+  "F m" 'make-frame-command
+  "F d" 'delete-frame
+  "F D" 'delete-other-frames
+
   "h"   '(:ignore t :wk "help(ful)")
   "h c" 'describe-char
   "h f" 'describe-function
@@ -928,6 +943,9 @@ Not just how I do git, but /the/ way to do git.
                           'magit-insert-modules
                           'magit-insert-stashes
                           'append)
+  (setq
+   magit-repository-directories '(("~/.emacs.d/" . 0)
+                                  ("~/src/git/" . 1)))
   :custom-face (magit-diff-file-heading ((t (:weight normal)))))
 #+end_src
 
@@ -1655,8 +1673,10 @@ Emacs package that displays available keybindings in popup
     "f c" 'crux-copy-file-preserve-attributes
     "f d" 'crux-delete-file-and-buffer
     "f r" 'crux-rename-file-and-buffer)
-  :bind (("C-S-j"   . crux-top-join-line)
-         ("C-c j"   . crux-top-join-line)))
+  :bind (("C-c d" . crux-duplicate-current-line-or-region)
+         ("C-c D" . crux-duplicate-and-comment-current-line-or-region)
+         ("C-S-j" . crux-top-join-line)
+         ("C-c j" . crux-top-join-line)))
 #+end_src
 
 ** [[https://github.com/alezost/mwim.el][mwim]]