(defun set-white-space-line-length (n)
  "Toggle line length, then set white-space-line-column to `n`.
My first emacs-lisp function!!!"
  (global-whitespace-mode -1)
  (setq whitespace-line-column n)
  (global-whitespace-mode 1))