From 1fc2772c4da507e4f3200dec8db390a0be7f754a Mon Sep 17 00:00:00 2001
From: Ravi R Kiran <aine.marina@gmail.com>
Date: Sun, 9 Nov 2014 21:53:24 -0800
Subject: Hungry delete everywhere

The commented out line is the preferred version once a newer version of
the package is available from MELPA.

diff --git a/ravi-init-appearance.el b/ravi-init-appearance.el
index f52164a..75a8305 100644
--- a/ravi-init-appearance.el
+++ b/ravi-init-appearance.el
@@ -87,6 +87,25 @@
 ;; Kill the entire line, please
 (setq kill-whole-line t)
 
+;; Delete hungrily
+(use-package hungry-delete
+  :commands (hungry-delete-forward hungry-delete-backward)
+  :bind (("C-d" . hungry-delete-forward))
+  :init
+  (progn
+   (defun jschaf/hungry-delete-backward (n &optional killflag)
+  "Delete non-vertical whitespace backwards on first key press.
+Delete all whitespace on a successive key press."
+  (interactive "p\nP")
+  (if (eq last-command 'jschaf/hungry-delete-backward)
+      (hungry-delete-backward n killflag)
+    (let ((hungry-delete-chars-to-skip " \t\f\v"))
+      (hungry-delete-backward n killflag))))
+   ;;(define-key global-map [remap backward-delete-char-untabify] 'jschaf/hungry-delete-backward)
+   (define-key global-map [remap backward-delete-char-untabify] 'hungry-delete-backward)
+   )
+  :ensure t)
+
 ;; Easily navigate sillycased words
 ;(global-subword-mode 1)
 
-- 
cgit v0.10.1