在 emacs 里看小说 实现自动阅读功能

IMG_1642686228285

(setq my-forward-point 7)

(defun my-forward-char ()
  (progn
    (remove-overlays (- my-forward-point 7)
                     my-forward-point)
    (overlay-put
     (make-overlay
      my-forward-point
      (+ 7 my-forward-point))
     'face 'error))
  (setq my-forward-point
        (+ 7 my-forward-point)))

(setq f-timer nil)

(defun start-read ()
  (interactive)
  (setq f-timer
        (run-with-timer t 0.5 'my-forward-char)))

(defun stop-read ()
  (interactive)
  (progn (cancel-timer f-timer)
         (setq my-forward-point 7)))

(defun remove-backslash ()
  (interactive)
  (set-display-table-slot standard-display-table 'wrap ?\ ))

6 个赞

(defvar my-forward-point 7)

(defvar f-timer nil)