follow-this-buffer.el

       (defun follow-this-buffer ()
         "Open the current buffer in `follow-mode`.  Additionally, open
     as many vertical windows as possible with 80 columns in each."
         (interactive)
         (delete-other-windows)
         (while (< 80 (window-width))
           (split-window-horizontally)
           (balance-windows))
         (delete-window)
         (balance-windows)
         (follow-mode t))