slick-shrink-whitespace.el

(defun slick-shrink-whitespace ()
  "Replaces three Emacs functions in just one:
- Calls `delete-blank-lines' when used in a blank line
- Calls `just-one-space' when used in a sequence of whitespaces
- Calls `delete-horizontal-space' when used in one whitespace
"
  (interactive)
  (skip-chars-forward " \t")
  (let ((endcol (current-column))
	(iseol (eolp)))
    (skip-chars-backward " \t")
    (let ((isbol (bolp)))
      (if (and iseol isbol)
	  (delete-blank-lines)
	(if (> (- endcol (current-column)) 1)
	    (just-one-space)
	  (delete-horizontal-space))))))