anchor.diff:  	  (:ul :class "cells"
   	       (join (map (lambda (cell) (cell-template cell))
   			  (notebook-cells notebook))))))
  -    
  +
  +
  +    ;; AJAX calls
       (defun server/eval (thing target-elem)
         (post/json "/eval" (create :thing thing)
   	    (lambda (res) (dom-set target-elem (result-template res)))))
  
positive.code:       (post/json "/notebook/eval-to-cell" (create :book (notebook-name *notebook*) :cell-id cell-id :contents contents)
  		 #'notebook!))
  
      (defun cell-selector (cell &rest children)
        (+ "#cell-" (@ cell id)
  	 (if children 
  	     (+ " " (join children " "))
  	     "")))
      
      (defun show-editor (cell-id)
        (console.log "SHOW-EDITOR" cell-id)
        (setf (@ (by-selector (+ "#cell-" cell-id " .CodeMirror")) hidden) nil))
  
negative.code: 		 (by-selector (+ "#cell-" cell-id " .cell-contents"))
  		 options)))
  	mirror))
  
      ;; Notebook-related
      (defvar *notebook*)
  
      (defun notebook-condense (notebook)
  