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:                         :left "0"
                          :width "100%"
                          :background-color "gray"
                          :z-index "2147483647"
                          :opacity "10%"
                          :height "20px")))
            :documentation "The CSS applied to the reading line.")
     (constructor
  
negative.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-up)))
    (jump-to-reading-line-cursor :buffer buffer))
  
  (define-command reading-line-cursor-down (&key (step-size 10) (buffer (current-buffer)))
    "Move the reading line cursor down. If scrolling off screen, move
  the screen as well."
    (pflet ((cursor-down ()
  