1 files changed, 48 insertions, 1 deletions

diff --git a/emacs/.config/emacs/init.el b/emacs/.config/emacs/init.el
index 4e407fc..c8aab0a 100644
--- a/emacs/.config/emacs/init.el
+++ b/emacs/.config/emacs/init.el
@@ -445,12 +445,59 @@
 
 (use-package smartparens
   :straight t
-  ;; See: (sp-cheat-sheet) and make some cool keybinds :)
   :init
   (defun arkta/disable-sp-strictness ()
     (smartparens-strict-mode -1)
     (smartparens-mode +1))
+
+  (defun arkta/delete-region-or-backchar (&optional arg)
+    "Delete the previous character as per `sp-backward-delete-char'.  If
+Transient Mark mode is enabled, the mark is active, delete the text in
+the region and deactivate the mark instead.  To disable this set option
+`delete-active-region' to nil.  Essentially like a weird mix of
+`delete-backward-char' and `sp-backward-delete-char'."
+    (interactive "*P")
+    (if (and (use-region-p) delete-active-region)
+        (if (eq delete-active-region 'kill)
+            (sp-kill-region (region-beginning) (region-end))
+          (sp-delete-region (region-beginning) (region-end)))
+      (sp-backward-delete-char arg)))
+  :bind (:map smartparens-mode-map
+         ("C-M-f" . sp-forward-sexp)
+         ("C-M-b" . sp-backward-sexp)
+         ("C-M-d" . sp-down-sexp)
+         ("C-M-a" . sp-backward-down-sexp)
+         ("C-S-d" . sp-beginning-of-sexp)
+         ("C-S-a" . sp-end-of-sexp)
+         ("C-M-e" . sp-up-sexp)
+         ("C-M-u" . sp-backward-up-sexp)
+         ("C-M-n" . sp-next-sexp)
+         ("C-M-p" . sp-previous-sexp)
+         ("C-M-k" . sp-kill-sexp)
+         ("C-M-w" . sp-copy-sexp)
+         ("M-<delete>" . sp-unwrap-sexp)
+         ("M-<backspace>" . sp-backward-unwrap-sexp)
+         ("M-<right>" . sp-forward-slurp-sexp)
+         ("M-<left>" . sp-forward-barf-sexp)
+         ("C-M-<left>" . sp-backward-slurp-sexp)
+         ("C-M-<right>" . sp-backward-barf-sexp)
+         ("M-D" . sp-splice-sexp)
+         ("C-M-<delete>" . sp-splice-sexp-killing-forward)
+         ("C-M-<backspace>" . sp-splice-sexp-killing-backward)
+         ("C-S-<backspace>" . sp-splice-sexp-killing-around)
+         ("C-]" . sp-select-next-thing-exchange)
+         ("C-M-]" . sp-select-next-thing)
+         ("C-M-SPC" . sp-mark-sexp)
+         ("M-F" . sp-forward-symbol)
+         ("M-B" . sp-backward-symbol)
+         :map smartparens-strict-mode-map
+         ("<backspace>" . arkta/delete-region-or-backchar)
+         ([remap backward-delete-char-untabify] . arkta/delete-region-or-backchar)
+         ([remap backward-delete-char] . arkta/delete-region-or-backchar)
+         ([remap delete-backward-char] . arkta/delete-region-or-backchar))
   :hook (prog-mode . smartparens-strict-mode)
+  :custom
+  (sp-base-key-bindings nil)
   :config
   (require 'smartparens-config))