(defun lecture-mode ()
  (interactive)
  (display-time-mode -1)
  (menu-bar-mode -1)
  (tool-bar-mode -1)
  (make-local-variable 'next-screen-context-lines)
  (setq next-screen-context-lines 0)
  (make-local-variable 'truncate-lines)
  (setq truncate-lines t)
  (scroll-bar-mode -1)
  (local-set-key (vector 'insert) 'scroll-up)
  (local-set-key (vector 'Scroll_Lock) 'scroll-down)
  )

(defun lecture-file (file)
  (interactive "fLecture file:")
  (find-file file)
  (lecture-mode))

(defun lecture-view (file)
  (interactive "fLecture file:")
  (save-excursion 
    (let ((buf (current-buffer))
          (lines (+ 26 (if tool-bar-mode 3 0))))
      (find-file file)
      (make-frame `((name . ,(format "%s" file)) (width . 80) (height . ,lines)))
      (lecture-mode)
      (switch-to-buffer buf))))