Install the hungry-delete package

elpa/hungry-delete-20151203.1314/hungry-delete-autoloads.el

@@ -0,0 +1,87 @@
+;;; hungry-delete-autoloads.el --- automatically extracted autoloads
+;;
+;;; Code:
+(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
+
+;;;### (autoloads nil "hungry-delete" "hungry-delete.el" (22537 52302
+;;;;;;  995922 540000))
+;;; Generated autoloads from hungry-delete.el
+
+(autoload 'hungry-delete-forward "hungry-delete" "\
+Delete the following character, or all of the following
+whitespace, up to the next non-whitespace character.  See
+\\[c-hungry-delete-forward].
+
+hungry-delete-backward tries to mimic delete-backward-char's
+behavior in several ways: if the region is activate, it deletes
+the text in the region.  If a prefix argument is given, delete
+the following N characters (previous if N is negative).
+
+Optional second arg KILLFLAG non-nil means to kill (save in kill
+ring) instead of delete.  Interactively, N is the prefix arg, and
+KILLFLAG is set if N was explicitly specified.
+
+\(fn N &optional KILLFLAG)" t nil)
+
+(autoload 'hungry-delete-backward "hungry-delete" "\
+Delete the preceding character or all preceding whitespace
+back to the previous non-whitespace character.  See also
+\\[c-hungry-delete-backward].
+
+hungry-delete-backward tries to mimic delete-backward-char's
+behavior in several ways: if the region is activate, it deletes
+the text in the region.  If a prefix argument is given, delete
+the previous N characters (following if N is negative).
+
+In Overwrite mode, single character backward deletion may replace
+tabs with spaces so as to back over columns, unless point is at
+the end of the line.
+
+Optional second arg KILLFLAG, if non-nil, means to kill (save in
+kill ring) instead of delete.  Interactively, N is the prefix
+arg, and KILLFLAG is set if N is explicitly specified.
+
+\(fn N &optional KILLFLAG)" t nil)
+
+(autoload 'hungry-delete-mode "hungry-delete" "\
+Minor mode to enable hungry deletion.  This will delete all
+whitespace after or before point when the deletion command is
+executed.
+
+\(fn &optional ARG)" t nil)
+
+(autoload 'turn-on-hungry-delete-mode "hungry-delete" "\
+Turn on hungry delete mode if the buffer is appropriate.
+
+\(fn)" nil nil)
+
+(defvar global-hungry-delete-mode nil "\
+Non-nil if Global Hungry-Delete mode is enabled.
+See the `global-hungry-delete-mode' command
+for a description of this minor mode.
+Setting this variable directly does not take effect;
+either customize it (see the info node `Easy Customization')
+or call the function `global-hungry-delete-mode'.")
+
+(custom-autoload 'global-hungry-delete-mode "hungry-delete" nil)
+
+(autoload 'global-hungry-delete-mode "hungry-delete" "\
+Toggle Hungry-Delete mode in all buffers.
+With prefix ARG, enable Global Hungry-Delete mode if ARG is positive;
+otherwise, disable it.  If called from Lisp, enable the mode if
+ARG is omitted or nil.
+
+Hungry-Delete mode is enabled in all buffers where
+`turn-on-hungry-delete-mode' would do it.
+See `hungry-delete-mode' for more information on Hungry-Delete mode.
+
+\(fn &optional ARG)" t nil)
+
+;;;***
+
+;; Local Variables:
+;; version-control: never
+;; no-byte-compile: t
+;; no-update-autoloads: t
+;; End:
+;;; hungry-delete-autoloads.el ends here

elpa/hungry-delete-20151203.1314/hungry-delete-pkg.el

@@ -0,0 +1,2 @@
+;;; -*- no-byte-compile: t -*-
+(define-package "hungry-delete" "20151203.1314" "hungry delete minor mode" 'nil :url "http://github.com/nflath/hungry-delete")

elpa/hungry-delete-20151203.1314/hungry-delete.el

@@ -0,0 +1,225 @@
+;;; hungry-delete.el --- hungry delete minor mode
+
+;; Copyright (C) 2009 - 2014 Nathaniel Flath <flat0103@gmail.com>
+
+;; Author: Nathaniel Flath <flat0103@gmail.com>
+;; URL: http://github.com/nflath/hungry-delete
+;; Package-Version: 20151203.1314
+;; Version: 1.1.2
+
+;; This file is not part of GNU Emacs.
+
+;;; Commentary:
+
+;; cc-mode implements hungry deletion for its programming modes.  This
+;; package borrows its implementation in a minor mode, so that hungry
+;; deletion can be used in all modes.
+
+;;; Installation
+
+;; To use this mode, put the following in your init.el:
+;; (require 'hungry-delete)
+
+;; You then need to enable hungry-delete-mode, either in
+;; relevant hooks, with turn-on-hungry-delete-mode, or with
+;; global-hungry-delete-mode.
+
+;;; License:
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License
+;; as published by the Free Software Foundation; either version 3
+;; of the License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Code:
+
+(defvar hungry-delete-mode-map (make-keymap)
+  "Keymap for hungry-delete-minor-mode.")
+
+(if (fboundp 'delete-forward-char)
+    (define-key hungry-delete-mode-map [remap delete-forward-char] 'hungry-delete-forward))
+
+(if (fboundp 'delete-char)
+    (define-key hungry-delete-mode-map [remap delete-char] 'hungry-delete-forward))
+
+(define-key hungry-delete-mode-map [remap delete-backward-char] 'hungry-delete-backward)
+(define-key hungry-delete-mode-map [remap backward-delete-char-untabify] 'hungry-delete-backward)
+
+(defvar hungry-delete-chars-to-skip " \t\n\r\f\v"
+  "String of characters to skip.")
+
+(defun hungry-delete-skip-ws-forward (&optional limit)
+  "Skip over any whitespace following point.
+This function skips over horizontal and vertical whitespace and
+line continuations."
+  (if limit
+      (let ((limit (or limit (point-max))))
+        (while (progn
+                 ;; skip-syntax-* doesn't count \n as whitespace..
+                 (skip-chars-forward hungry-delete-chars-to-skip limit)
+                 (when (and (eq (char-after) ?\\)
+                            (< (point) limit))
+                   (forward-char)
+                   (or (eolp)
+                       (progn (backward-char) nil))))))
+    (while (progn
+             (skip-chars-forward hungry-delete-chars-to-skip)
+             (when (eq (char-after) ?\\)
+               (forward-char)
+               (or (eolp)
+                   (progn (backward-char) nil))))))
+  (while (get-text-property (point) 'read-only)
+    (backward-char)))
+
+(defun hungry-delete-skip-ws-backward (&optional limit)
+  "Skip over any whitespace preceding point.
+This function skips over horizontal and vertical whitespace and
+line continuations."
+  (if limit
+      (let ((limit (or limit (point-min))))
+        (while (progn
+                 ;; skip-syntax-* doesn't count \n as whitespace..
+                 (skip-chars-backward hungry-delete-chars-to-skip limit)
+                 (and (eolp)
+                      (eq (char-before) ?\\)
+                      (> (point) limit)))
+          (backward-char)))
+    (while (progn
+             (skip-chars-backward hungry-delete-chars-to-skip)
+             (and (eolp)
+                  (eq (char-before) ?\\)))
+      (backward-char)))
+  (while (get-text-property (point) 'read-only)
+    (forward-char)))
+
+;;;###autoload
+(defun hungry-delete-forward (n &optional killflag)
+  "Delete the following character, or all of the following
+whitespace, up to the next non-whitespace character.  See
+\\[c-hungry-delete-forward].
+
+hungry-delete-backward tries to mimic delete-backward-char's
+behavior in several ways: if the region is activate, it deletes
+the text in the region.  If a prefix argument is given, delete
+the following N characters (previous if N is negative).
+
+Optional second arg KILLFLAG non-nil means to kill (save in kill
+ring) instead of delete.  Interactively, N is the prefix arg, and
+KILLFLAG is set if N was explicitly specified."
+  (interactive "p\nP")
+  (unless (integerp n)
+    (signal 'wrong-type-argument (list 'integerp n)))
+  (cond ((and
+          (use-region-p)
+	      delete-active-region
+	      (= n 1))
+	 ;; If a region is active, kill or delete it.
+	 (if (eq delete-active-region 'kill)
+	     (kill-region (region-beginning) (region-end))
+	   (delete-region (region-beginning) (region-end))))
+	;; If a prefix argument has been given, delete n characters.
+	(current-prefix-arg (delete-char n killflag))
+	;; Otherwise, call hungry-delete-forward-impl.
+	(t (hungry-delete-forward-impl))))
+
+
+
+
+;;;###autoload
+(defun hungry-delete-backward (n &optional killflag)
+  "Delete the preceding character or all preceding whitespace
+back to the previous non-whitespace character.  See also
+\\[c-hungry-delete-backward].
+
+hungry-delete-backward tries to mimic delete-backward-char's
+behavior in several ways: if the region is activate, it deletes
+the text in the region.  If a prefix argument is given, delete
+the previous N characters (following if N is negative).
+
+In Overwrite mode, single character backward deletion may replace
+tabs with spaces so as to back over columns, unless point is at
+the end of the line.
+
+Optional second arg KILLFLAG, if non-nil, means to kill (save in
+kill ring) instead of delete.  Interactively, N is the prefix
+arg, and KILLFLAG is set if N is explicitly specified."
+  (interactive "p\nP")
+  (unless (integerp n)
+    (signal 'wrong-type-argument (list 'integerp n)))
+  (cond ((and
+          (use-region-p)
+          delete-active-region
+          (= n 1))
+         ;; If a region is active, kill or delete it.
+         (if (eq delete-active-region 'kill)
+             (kill-region (region-beginning) (region-end))
+           (delete-region (region-beginning) (region-end))))
+        ;; In Overwrite mode, maybe untabify while deleting
+        ((null (or (null overwrite-mode)
+                   (<= n 0)
+                   (memq (char-before) '(?\t ?\n))
+                   (eobp)
+                   (eq (char-after) ?\n)))
+         (let ((ocol (current-column)))
+           (delete-char (- n) killflag)
+           (save-excursion
+             (insert-char ?\s (- ocol (current-column)) nil))))
+        ;; If a prefix has been given, delete n characters backwards.
+        (current-prefix-arg (delete-char (- n) killflag))
+        ;; Otherwise, call hungry-delete-backward-impl.
+        (t (hungry-delete-backward-impl))))
+
+(defun hungry-delete-impl (fn n)
+  "Implementation of hungry-delete functionality.
+FN is the function to call to go to the end of whitespace (will
+be either hungry-delete-skip-ws-forward or
+hungry-delete-skip-ws-backwards by default).  N is the number of
+characters to delete if there is no whitespace (will be either 1
+or -1 by default)."
+  (let ((here (point)))
+    (funcall fn)
+    (if (/= (point) here)
+        (delete-region (point) here)
+      (let ((hungry-delete-mode nil))
+        (delete-char n)))))
+
+(defun hungry-delete-forward-impl ()
+  "Do the dirty work of calling hungry-delete-forward."
+  (hungry-delete-impl 'hungry-delete-skip-ws-forward 1))
+
+(defun hungry-delete-backward-impl ()
+  "Do the dirty work of calling hungry-delete-backward."
+  (hungry-delete-impl 'hungry-delete-skip-ws-backward -1))
+
+;;;###autoload
+(define-minor-mode hungry-delete-mode
+  "Minor mode to enable hungry deletion.  This will delete all
+whitespace after or before point when the deletion command is
+executed."
+  :init-value nil
+  :group 'hungry-delete
+  :lighter " h")
+
+;;;###autoload
+(defun turn-on-hungry-delete-mode ()
+  "Turn on hungry delete mode if the buffer is appropriate."
+  (unless (or (window-minibuffer-p (selected-window))
+              (equal (substring (buffer-name) 0 1) " ")
+              (eq major-mode 'help-mode ))
+    (hungry-delete-mode t)))
+
+;;;###autoload
+(define-globalized-minor-mode global-hungry-delete-mode hungry-delete-mode turn-on-hungry-delete-mode)
+
+(provide 'hungry-delete)
+;;; hungry-delete.el ends here

init.el

@@ -95,6 +95,7 @@
      helm-swoop
      helm-unicode
      hungarian-holidays
+     hungry-delete
      hyde
      id-manager
      identica-mode
@@ -603,6 +604,10 @@
 
 (use-package rainbow-mode)
 
+(use-package hungry-delete
+  :config
+  (global-hungry-delete-mode))
+
 ;; Load my own functions
 (load "gnu-c-header.el")
 (load "toggle-window-split.el")