anchor.diff:        (who-ps-html
          (:div :class "notebook-selector"
                (:ul :class "loaded-books-list")
  -             (:input :class "filesystem-input" :onkeypress "filesystemInputChange(event, this)")
  +             (:input :class "filesystem-input" :onkeydown "filesystemInputChange(event, this)")
                (:span :class "filesystem-view"))))
   
       (defun file-template (file)
  
positive.code:              ((= 9 key-code)
                (chain event (prevent-default))
                (chain elem (focus))
                (setf (@ elem value) (common-prefix-of val (chain fnames (concat dirnames)))))
               ((and (= 13 key-code) (member? val fnames))
                (setf (@ window location href) (+ "/#book=" val)))
               ((and (= 13 key-code) (member? dval dirnames))
                (filesystem! (by-selector ".filesystem-view") dval))
               ((and (= 13 key-code))
                (new-book val))
  
negative.code:                :filter? f))
               ((not (= 0 (@ event char-code)))
                (unless (and (= 0 (length (@ filtered :directories))) (= 0 (length (@ filtered :files))))
                  (render-filesystem! (by-selector ".filesystem-view") filtered))))))
         200))
  
      (defun filesystem-directory-click (directory)
  