anchor.diff:                 (>= (ps:chain rect left) 0)
                  (<= (ps:chain rect right) (ps:chain window inner-width))
                  (<= (ps:chain rect bottom) (ps:chain window inner-height)))
  -        t nil)))
  +          t nil)))
   
     (defun object-create (element hint)
       (ps:create "type" "p" "hint" hint "identifier" hint "body" (ps:@ element |innerHTML|)))
  
positive.code: ;;;; SPDX-License-Identifier: BSD-3-Clause
  
  (uiop:define-package :nyxt/visual-mode
      (:use :common-lisp :nyxt)
    (:import-from #:keymap #:define-key #:define-scheme)
    (:documentation "Visual mode."))
  (in-package :nyxt/visual-mode)
  
negative.code: 
  (define-command forward-char ()
    "Move caret forward by a character."
    (let ((mode (find-submode (current-buffer) 'visual-mode)))
      (caret-move :action (if (mark-set mode)
                              "extend"
                              "move")
                  :direction "forward"
                  :scale "character")))
  
  (define-command backward-char ()
    "Move caret backward by a character."
    (let ((mode (find-submode (current-buffer) 'visual-mode)))
      (caret-move :action (if (mark-set mode)
                              "extend"
                              "move")
                  :direction "backward"
                  :scale "character")))
  
  (define-command forward-word ()
    "Move caret forward by a word."
    (let ((mode (find-submode (current-buffer) 'visual-mode)))
      (caret-move :action (if (mark-set mode)
                              "extend"
                              "move")
                  :direction "forward"
                  :scale "word")))
  
  (define-command backward-word ()
    "Move caret backward by a word."
    (let ((mode (find-submode (current-buffer) 'visual-mode)))
      (caret-move :action (if (mark-set mode)
                              "extend"
                              "move")
                  :direction "backward"
                  :scale "word")))
  
  (define-command forward-line ()
    "Move caret forward by a line."
    (let ((mode (find-submode (current-buffer) 'visual-mode)))
      (caret-move :action (if (mark-set mode)
                              "extend"
                              "move")
                  :direction "forward"
                  :scale "line")))
  
  (define-command backward-line ()
    "Move caret backward by a line."
    (let ((mode (find-submode (current-buffer) 'visual-mode)))
      (caret-move :action (if (mark-set mode)
                              "extend"
                              "move")
                  :direction "backward"
                  :scale "line")))
  
  (define-command beginning-line ()
    "Move caret to the beginning of the line."
    (let ((mode (find-submode (current-buffer) 'visual-mode)))
      (caret-move :action (if (mark-set mode)
                              "extend"
                              "move")
                  :direction "backward"
                  :scale "lineboundary")))
  
  (define-command end-line ()
    "Move caret to the end of the line."
    (let ((mode (find-submode (current-buffer) 'visual-mode)))
      (caret-move :action (if (mark-set mode)
                              "extend"
                              "move")
                  :direction "forward"
                  :scale "lineboundary")))
  
  (define-command forward-sentence ()
    "Move caret forward to next end of sentence."
    (let ((mode (find-submode (current-buffer) 'visual-mode)))
      (caret-move :action (if (mark-set mode)
                              "extend"
                              "move")
                  :direction "forward"
                  :scale "sentence")))
  
  (define-command backward-sentence ()
    "Move caret backward to start of sentence."
    (let ((mode (find-submode (current-buffer) 'visual-mode)))
      (caret-move :action (if (mark-set mode)
                              "extend"
                              "move")
                  :direction "backward"
                  :scale "sentence")))
  