reader-mode.el

;; reader-mode.el
;; [Fri Dec 22 19:24:09 UTC 2017]
;; displays selected buffer continuously flowed
;; into reader-mode-column-count windows side by side
;; in read-only mode

(defvar reader-mode-column-count 4)

(defun reader-mode (buf)
  (interactive "bRead buffer: ")
  (unless (eq (current-buffer) buf)
    (switch-to-buffer buf))
  (delete-other-windows)
  (view-mode)
  (dotimes (count (- reader-mode-column-count 1))
    (split-window-right))
  (balance-windows)
  (follow-mode))