Add a whitespace-mode function.

starter-kit-defuns.el

@@ -64,6 +64,11 @@ Symbols matching the text at point are put first in the completion list."
 
 ;;; These belong in coding-hook:
 
+;; We have a number of turn-on-* functions since it's advised that lambda
+;; functions not go in hooks. Repeatedly evaling an add-to-list with a
+;; hook value will repeatedly add it since there's no way to ensure
+;; that a lambda doesn't already exist in the list.
+
 (defun local-column-number-mode ()
   (make-local-variable 'column-number-mode)
   (column-number-mode t))
@@ -78,6 +83,9 @@ Symbols matching the text at point are put first in the completion list."
 (defun turn-on-save-place-mode ()
   (setq save-place t))
 
+(defun turn-on-whitespace ()
+  (whitespace-mode t))
+
 (add-hook 'coding-hook 'local-column-number-mode)
 (add-hook 'coding-hook 'local-comment-auto-fill)
 (add-hook 'coding-hook 'turn-on-hl-line-mode)