anchor.diff:  
   (define-command toggle-mark ()
     "Toggle the mark."
  -  (if (string= (is-collapsed) "true")
  -    (progn
  -      (setf *mark-set* (not *mark-set*))
  -      (if *mark-set*
  -        (echo "Mark set")
  -        (echo "Mark deactivated")))
  -    (pflet ((collapse-to-focus ()
  -                               (let ((sel (ps:chain window (get-selection))))
  -                                 (ps:chain sel
  -                                           (collapse (ps:@ sel focus-node)
  -                                                     (ps:@ sel focus-offset))))))
  -      (collapse-to-focus)
  -      (echo "Mark set"))))
  +  (let ((mode (find-submode (current-buffer) 'visual-mode)))
  +    (if (string= (is-collapsed) "true")
  +        (progn
  +          (setf (mark-set mode) (not (mark-set mode)))
  +          (if (mark-set mode)
  +              (echo "Mark set")
  +              (echo "Mark deactivated")))
  +        (pflet ((collapse-to-focus ()
  +                                   (let ((sel (ps:chain window (get-selection))))
  +                                     (ps:chain sel
  +                                               (collapse (ps:@ sel focus-node)
  +                                                         (ps:@ sel focus-offset))))))
  +               (collapse-to-focus)
  +               (echo "Mark set")))))
   
   (define-parenscript caret-move (&key action direction scale (n 1))
     (let ((sel (ps:chain window (get-selection))))
  
positive.code:   "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 ()
  
negative.code:       (list
         "up" 'backward-line
         "down" 'forward-line
         "left" 'backward-char
         "right" 'forward-char
         "escape" 'visual-mode
         "keypadend" 'end-line
         "space" 'forward-char
         "backspace" 'backward-char
         "keypadhome" 'beginning-line)
        scheme:emacs
        (list
         "C-h" 'select-paragraph
  