anchor.diff:  	(by-selector "body")
   	(add-event-listener
   	 :keyup (key-listener
  -		 <esc> (progn
  -			 (clear-selection)
  -			 (hide-title-input)
  -			 (hide-macro-expansion!)
  -                         (hide-open-book-menu!)
  -			 (map (lambda (cell)
  -				(with-slots (id cell-type) cell
  -				  (when (= 'markup cell-type)
  -				    (hide-editor id))))
  -			      (notebook-cells *notebook*))))))
  +		 <esc> (esc-pressed))))
   
          (unless (get-page-hash)
            (get/json
  
positive.code: 		       (dom-replace (by-selector ".book-title") (notebook-title-template (@ res book-name)))
  		       (post/json uri args on-success on-fail)))))
  
      ;; cl-notebook specific DOM manipulation
      (defun display-book (book-name)
        (when book-name
  
negative.code:         (if (dom-empty? el)
              (notebook-selector! "#notebook-selector")
              (dom-set el ""))))
  
      (defun dom-replace-cell-value (cell)
        (when (@ cell result)
  