anchor.diff:      (define-scheme "reading-line-mode"
         scheme:cua
         (list
  -       "M-up" 'line-cursor-up
  -       "M-down" 'line-cursor-down)
  +       "M-up" 'reading-line-cursor-up
  +       "M-down" 'reading-line-cursor-down)
         scheme:emacs
         (list
  -       "M-p" 'line-cursor-up
  -       "M-n" 'line-cursor-down)))
  +       "M-p" 'reading-line-cursor-up
  +       "M-n" 'reading-line-cursor-down)))
      (style :accessor style
             :initform (cl-css:css
                        '(("#reading-line-cursor"
  
positive.code:       (setf (ps:@ (ps:chain document (query-selector "#reading-line-cursor")) style top)
              (+ (+ original-position (ps:lisp step-size)) "px")))))
      (with-current-buffer buffer
        (cursor-down))))
  
  (defmethod initialize-display ((mode reading-line-mode))
    (let* ((content (markup:markup
  
negative.code:     (lambda (mode)
        (initialize-display mode)))))
  
  (define-command jump-to-reading-line-cursor (&key (buffer (current-buffer)))
    "Move the view port to show the reading line cursor."
    (pflet ((jump-to-cursor ()
      (ps:chain (ps:chain document (query-selector "#reading-line-cursor")) (scroll-into-view-if-needed))))
      (with-current-buffer buffer
        (jump-to-cursor))))
  
  (define-command reading-line-cursor-up (&key (step-size 10) (buffer (current-buffer)))
    "Move the reading line cursor up. If scrolling off screen, move the
  screen as well."
    (pflet ((cursor-up ()
  