anchor.diff:      (defun hash-updated ()
         (let ((book-name (@ (get-page-hash) :book)))
   	(when book-name
  -	  (setf document.title (+ book-name " - cl-notebook"))
   	  (notebook/current book-name))))
   
       (defun dom-replace-cell-value (cell)
  
positive.code: 	 (by-selector "#notebook")
  	 (notebook-template *notebook*))
  	(surgical! raw)
  	(nativesortable (by-selector "ul.cells"))
  	(map (lambda (opt) (chain opt (remove-attribute :selected)))
  	     (by-selector-all "#book-list option"))
  
negative.code: 	  (post/json uri args on-success on-fail)
  	  (fork-book (lambda (res)
  		       (surgical! res)
  		       (setf document.title (+ (@ res book-name) " - cl-notebook"))
  		       (setf (@ args :book) (@ res id))
  		       (dom-replace (by-selector ".book-title") (notebook-title-template (@ res book-name)))
  		       (post/json uri args on-success on-fail)))))
  