anchor.diff:  					   "Ctrl-Space" 'autocomplete
   					   "Ctrl-Right" (lambda (cmd) (forward-sexp (cell-mirror cell-id)))
   					   "Ctrl-Left" (lambda (cmd) (backward-sexp (cell-mirror cell-id)))
  +					   "Ctrl-Down" (lambda (cmd) (forward-block (cell-mirror cell-id)))
  +					   "Ctrl-Up" (lambda (cmd) (backward-block (cell-mirror cell-id)))
   					   "Tab" 'indent-auto))))
   	(setf 
   	 mirror (chain -code-mirror (from-text-area (by-cell-id cell-id ".cell-contents") options))
  
positive.code: 		 (go-char direction mirror))
  		((and (bracket-at-cursor? direction mirror)
  		      (char-at-cursor? direction mirror paren :ls ls))
  		 (loop with tally = 1 until (til mirror ls)
  		    do (go-char direction mirror)
  		    when (and (char-at-cursor? direction mirror paren :ls ls) 
  			      (not (string-at-cursor? direction mirror))) 
  
negative.code: 		 (skip-to direction mirror (+ " " other-paren) :ls ls))))))
  
      (defun forward-sexp (mirror)
        (console.log mirror (map (lambda (l) (length l)) (lines (mirror-contents mirror))))
        (go-sexp :right mirror))
      (defun backward-sexp (mirror) 
        (go-sexp :left mirror))
  
      (defun forward-block (mirror) (go-block :down mirror))
      (defun backward-block (mirror) (go-block :up mirror))
  
      (defun kill-forward-sexp (mirror))
      (defun kill-backward-sexp (mirror))
  