anchor.diff:  					     (let ((contents (cell-editor-contents cell-id)))
   					       (notebook/eval-to-cell cell-id contents)))
   					   "Ctrl-Space" "autocomplete"
  -					   "Tab"
  -					   (lambda (cm)
  -					     (chain -code-mirror commands (indent-auto cm)))))))
  +					   "Tab" "indentAuto"))))
   	(setf 
   	 mirror (chain -code-mirror (from-text-area (by-cell-id cell-id ".cell-contents") options))
   	 (@ cell editor) mirror)
  
positive.code:       (mirror! cell))
  
      ;; CodeMirror and utilities
      (defun show-editor (cell-id)
        (show! (by-cell-id cell-id ".CodeMirror"))
        (chain (cell-mirror cell-id) (focus)))
  
negative.code: 
      (dom-ready
       (lambda ()
         (register-helpers 
  	"hint"
  	(create :ajax
  		(lambda (mirror callback options)
  		  (let* ((cur (chain mirror (get-cursor)))
  			 (tok (chain mirror (get-token-at cur))))
  		    (callback 
  		     (create :list (list "one" "two" "three")
  			     :from (chain -code-mirror (-pos (@ cur line) (@ tok start)))
  			     :to (chain -code-mirror (-pos (@ cur line) (@ tok end)))))))
  		:auto
  		(lambda (mirror options)
  		  (chain -code-mirror commands (autocomplete mirror (@ -code-mirror hint ajax) (create :async t))))))
         
         (notebook-events)
         (hide! (by-selector ".footer"))
         (chain 
  