From 91b37053113166803ecfd23e18f7fc1683bc5b36 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 3 Sep 2021 17:23:48 -0500
Subject: Make hungry-delete work with paredit-mode

---
 init.el | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 29c2d66..8cbd75d 100644
--- a/init.el
+++ b/init.el
@@ -1496,8 +1496,23 @@ successive invocations."
            "C-c C-d" helpful-at-point))
 
 (setup (:straight hungry-delete)
-  (:option hungry-delete-join-reluctantly t)
-  (global-hungry-delete-mode +1))       ; TODO: make work with paredit
+  (define-key paredit-mode-map [remap paredit-backward-delete]
+    (defun acdw/paredit-hungry-delete-backward (arg)
+      (interactive "P")
+      (if (looking-back "[ \t]" 1)
+          (hungry-delete-backward (or arg 1))
+        (paredit-backward-delete arg))))
+
+  (define-key paredit-mode-map [remap paredit-forward-delete]
+    (defun acdw/paredit-hungry-delete-forward (arg)
+      (interactive "P")
+      (if (looking-at "[ \t]")
+          (hungry-delete-forward (or arg 1))
+        (paredit-forward-delete arg))))
+
+  (:option hungry-delete-chars-to-skip " \t"
+           hungry-delete-join-reluctantly nil)
+  (global-hungry-delete-mode +1))
 
 (setup (:straight iscroll)
   (define-globalized-minor-mode global-iscroll-mode
-- 
cgit 1.4.1-21-gabe81