anchor.diff:      ;; 0 : never been saved with the current file name
       ;; 1 : saved at least once
       (defvar ever-been-saved 0)
  +
  +        
  +    (defun first (x) (getprop x 0))
  +    (defun rest (x) (chain x (slice 1)))
  +    (defun last1 (x)
  +      (getprop x (- (chain x length) 1)))
  +
  +
   
       (defun open-in-new-tab (url)
         (setf win (window.open url "_blank"))
  
positive.code: 		 (chain document (get-element-by-id "rename_input") value)))))
      
  
      
      (defun first (x) (getprop x 0))
      (defun rest (x) (chain x (slice 1)))
  
      (defun last1 (x)
        (getprop x (- (chain x length) 1)))
      
      (defun handle-message (msg)
        (let* ((json-msg (chain +JSON+ (parse msg)))
  
negative.code: 		       "extraKeys"
  		       (create "Ctrl-Enter"
  			       (lambda (cm)))))
  	
  	
  	;; set id to div-outer for later use
  