acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Make hungry-delete work with paredit-mode

This commit is contained in:
Case Duckworth 2021-09-03 17:23:48 -05:00
parent c9376d000f
commit 91b3705311
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
init.el
View File

@ -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