gistfile1.sls

(define-minor-mode teleprompt2-mode
    "Teleprompt mode"
  nil
  " Teleprompt"
  `((,(kbd "<prior>") . (lambda () (interactive) (scroll-down 1)))
    (,(kbd "<next>") . (lambda () (interactive) (scroll-up 1)))))


(defun teleprompt-roll ()
  (interactive)
  (recenter)
  (dotimes-with-progress-reporter
      (i (count-screen-lines (point) (buffer-end 1)))
      "Rolling, rolling, rolling..."
    (scroll-up 1)
    (sit-for 2.2)))

(provide 'teleprompt2)