emacs functions to simulate ignite talks

ignite.el

(defun ignite-start ()
  "Auto advaince slides"
  (interactive)
  (set 'ignite-interval 15)
  (set 'ignite-t ignite-interval)
  (message (format "Go! (%d sec)" ignite-interval))
  (run-at-time 0 1 (lambda ()
                     (if (<= ignite-t 0)
                         (progn
                           (doc-view-next-page)
                           (set 'ignite-t ignite-interval)
                           )
                       (progn
                         (message "Time: %ds" ignite-t)
                         (set 'ignite-t (- ignite-t 1))
                         )
                       )
                     )
               )
  )

(defun ignite-stop ()
  "Stops all timers"
  (interactive)
  (mapcar 'cancel-timer timer-list)
  )