1 files changed, 24 insertions, 8 deletions

@@ -37,7 +37,12 @@
            "M-j" nil
            "C-x o" (lambda () (interactive) (switch-to-buffer nil))
            "C-x C-o" #'+open-paragraph
-           "C-w" #'+kill-word-backward-or-region)
+           "C-w" #'+kill-word-backward-or-region
+           "C-x C-1" #'delete-other-windows
+           "C-x 2" #'+split-window-below-then
+           "C-x C-2" #'+split-window-below-then
+           "C-x 3" #'+split-window-right-then
+           "C-x C-3" #'+split-window-right-then)
   ;; C-h deletes backward - see https://idiomdrottning.org/bad-emacs-defaults
   (global-set-key (kbd "C-h") 'delete-backward-char)
   (keyboard-translate ?\C-h ?\C-?)
@@ -741,11 +746,11 @@
   (:also-load +consult)
   ;; from Consult wiki
   (:option register-preview-delay 0
-           register-preview-function 'consult-register-format
-           xref-show-xrefs-function 'consult-xref
-           xref-show-definitions-function 'consult-xref
+           register-preview-function #'consult-register-format
+           xref-show-xrefs-function #'consult-xref
+           xref-show-definitions-function #'consult-xref
            tab-always-indent 'complete
-           completion-in-region-function 'consult-completion-in-region)
+           completion-in-region-function #'consult-completion-in-region)
   (advice-add #'register-preview :override #'consult-register-window)
   (advice-add #'completing-read-multiple :override
               #'consult-completing-read-multiple)
@@ -819,6 +824,12 @@
     (with-eval-after-load 'orderless
       (:option consult--regexp-compiler 'consult--orderless-regexp-compiler))))
 
+(setup (:straight consult-dir)
+  (:+key "C-x C-d" #'consult-dir)
+  (:with-map vertico-map
+    (:bind "C-x C-d" #'consult-dir
+           "C-x C-j" #'consult-dir-jump-file)))
+
 (setup (:straight crux)
   ;; yes it's silly I have an addon to this addon.
   (:also-load +crux)
@@ -902,7 +913,8 @@ See also `crux-reopen-as-root-mode'."
 (setup (:straight elpher))
 
 (setup (:straight embark)
-  (:option prefix-help-command 'embark-prefix-help-command)
+  (:option prefix-help-command 'embark-prefix-help-command
+           embark-keymap-prompter-key ";")
   (:+key "C-." #'embark-act
          "M-." #'embark-dwim
          "<f1> B" #'embark-bindings)
@@ -1162,8 +1174,10 @@ See also `crux-reopen-as-root-mode'."
 (setup (:straight paredit)
   (:bind "DEL" #'paredit-backward-delete
          "C-<backspace>" #'paredit-backward-kill-word
-         "C-w" (lambda (r) (interactive "P")
-                 (+kill-word-backward-or-region r #'paredit-backward-kill-word)))
+         "C-w" (lambda (arg) (interactive "P")
+                 (+kill-word-backward-or-region arg
+                                                #'paredit-backward-kill-word))
+         "M-s" nil)
   (dolist (hook '(emacs-lisp-mode-hook
                   eval-expression-minibuffer-setup-hook
                   ielm-mode-hook
@@ -1224,6 +1238,8 @@ See also `crux-reopen-as-root-mode'."
   (simple-modeline-mode +1))
 
 (setup (:straight smartscan)
+  (:with-map smartscan-map
+    (:bind "M-'" nil))
   (:hook-into prog-mode))
 
 (setup (:straight (sophomore