Treat whitespace as a word when removing by word

2 files changed, 48 insertions, 0 deletions

diff --git a/config.org b/config.org
index f658ab9..de3dc0b 100644
--- a/config.org
+++ b/config.org
@@ -138,6 +138,17 @@ to it.
 ;; Use ibuffer for the buffer list
 (global-set-key (kbd "C-x C-b") 'ibuffer)
 #+END_SRC
+
+I want to treat whitespace as a word when removing words because I end
+up reformatting new lines and indents a lot (python doc strings).
+
+#+BEGIN_SRC emacs-lisp
+(global-set-key (kbd "<C-backspace>") 'maybe-backward-kill-word)
+(global-set-key (kbd "<M-delete>") 'maybe-backward-kill-word)
+(global-set-key (kbd "M-d") 'maybe-kill-word)
+(global-set-key (kbd "<C-delete>") 'maybe-kill-word)
+#+END_SRC
+
 * Package Initalization
 Define the package repositories
 
diff --git a/local-lib/zzq-funcs.el b/local-lib/zzq-funcs.el
index 3d38b11..c1bb4a9 100644
--- a/local-lib/zzq-funcs.el
+++ b/local-lib/zzq-funcs.el
@@ -14,4 +14,41 @@
   "Convert the output of (current-time) to epoch in milliseconds"
   (truncate (* 1000 (+ (+ (* (nth 0 time) (expt 2 16)) (nth 1 time)) (* (nth 2 time) (expt 10 -6))))))
 
+(defun kill-whitespace ()
+  "Remove all whitepspace seperating two non-whitespace characters"
+  (interactive "*")
+  (save-excursion
+    (save-restriction
+      (progn
+        ;; Move backward to the last non-whitespace character
+        (re-search-backward "[^ \t\r\n]" nil)
+        ;; Then search for all whitespace to the next non-whitespace character
+        (re-search-forward "[ \t\r\n]+")
+        ;; Replace everything from the last match (all whitespace) with nothing
+        (replace-match "")))))
+
+(defun maybe-backward-kill-word (arg)
+  "Removes all whitespace backward up to the next non-whitespace character. If
+the first character left of the cursor is not whitespace then remove the word. I
+like to bind  this to C-backspace."
+  (interactive "p")
+  (if (looking-back "[ \t\r\n]")
+      (let ((start (point)))
+        (re-search-backward "[^ \t\r\n]" nil)
+        (forward-char 1)
+        (delete-region (point) start))
+    (backward-kill-word arg)))
+
+(defun maybe-kill-word (arg)
+  "Removes all whitespace up to the next non-whitespace character. If the first
+character right of the cursor is not whitespace then remove the word. I like to
+bind this to C-delete and M-d"
+  (interactive "p")
+  (if (looking-at "[ \t\r\n]")
+      (let ((start (point)))
+        (re-search-forward "[\t\r\n]+" nil)
+        (delete-region (point) start))
+    (kill-word arg)))
+
+
 (provide 'zzq-funcs)