anchor.diff:      (lambda (mode)
         (initialize-display mode)))))
   
  -(define-command line-cursor-up (&key (step-size 10) (buffer (current-buffer)))
  +(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 ()
  
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:                         :left "0"
                          :width "100%"
                          :background-color "gray"
                          :z-index "2147483647" ; 32 bit unsigned integer max
                          :opacity "15%"
                          :height "20px")))
            :documentation "The CSS applied to the reading line.")
     (constructor
  