anchor.diff:      ;; AJAX calls
       (defun kill-thread ()
         (post/json "/cl-notebook/system/kill-thread" (create)))
  -
  +    
       (defun notebook/current (name)
         (post/json "/cl-notebook/notebook/current" (create :book name)
  -		 #'notebook!))
  +		 #'notebook!
  +		 (lambda (res)
  +		   (map (lambda (opt) (chain opt (remove-attribute :selected)))
  +			(by-selector-all "#book-list option"))
  +		   (chain (by-selector "#book-list option") (set-attribute :selected "selected"))
  +		   (dom-set 
  +		    (by-selector "#notebook")
  +		    (who-ps-html (:h2 "Notebook '" name "' not found..."))))))
   
       (defun new-book () 
         (post/json "/cl-notebook/notebook/new" (create) 
  
positive.code: 
      ;; cl-notebook specific DOM manipulation
      (defun display-book (book-name)
        (set-page-hash (create :book book-name))
        (hash-updated))
  
      (defun hash-updated ()
        (let ((book-name (@ (get-page-hash) :book)))
  
negative.code: 	(hide! (by-selector ".book-title input"))
  	(nativesortable (by-selector "ul.cells"))
  	(set-page-hash (create :book (notebook-name *notebook*)))
  	(map (lambda (opt) (chain opt (remove-attribute :selected)))
  	     (by-selector-all "#book-list option"))
  	(chain (by-selector (+ "#book-list option[value='" (notebook-name *notebook*) "']"))
  	       (set-attribute :selected "selected"))
  	(map (lambda (cell) 
  