anchor.diff:    "Add hints to text elements on the page and open a minibuffer for selecting them."
     (query-paragraph-hints "Set caret on element" #'%follow-hint :annotate-visible-only-p t))
   
  -(defvar *mark-set* nil)
  -
   (define-parenscript is-collapsed ()
     ;; returns "true" if mark's start and end are the same value
     (defun is-collapsed ()
  
positive.code:       (list
         "up" 'backward-line
         "down" 'forward-line
         "left" 'forward-char
         "right" 'forward-char
         "escape" 'visual-mode)
        scheme:emacs
        (list
         "C-h" 'select-paragraph
  
negative.code:        "l" 'forward-char
         "w" 'forward-word
         "$" 'end-line
         "0" 'beginning-line
         "v" 'toggle-mark
         "C-c" 'visual-mode)))
     (mark-set nil)
     (destructor
      (lambda (mode)
        (make-page-uneditable)
        (unlock-page-keypresses)
        (setf (mark-set mode) nil)))
     (constructor
      (lambda (mode)
        (make-page-editable)
  